vb 绘制图形/蝴蝶动画

最新推荐文章于 2024-06-27 06:31:43 发布

寒泉Hq

最新推荐文章于 2024-06-27 06:31:43 发布

阅读量1.8w

点赞数

分类专栏： vb

本文链接：https://blog.csdn.net/sinat_42483341/article/details/90450350

版权

vb 专栏收录该内容

11 篇文章 7 订阅

订阅专栏

实验一画图形

在这里插入图片描述
代码

Private Sub Form_Click()
    Scale (0, 30)-(120, 0)
    Circle (15, 15), 10
    Circle (45, 15), 10, , , , 2
    Circle (75, 15), 10, , -0.7, -2.1
    Circle (105, 15), 10, , -2.1, 0.7
End Sub

实验二画圆形

在这里插入图片描述

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    FillColor = QBColor(Int(Rnd * 15))
    FillStyle = Int(Rnd * 8)
    Circle (x, y), 500
End Sub

实验三蝴蝶动画
在这里插入图片描述

Dim i As Integer
Private Sub Command1_Click()
    Timer1.Interval = 100
End Sub

Private Sub Command2_Click()
    Timer1.Interval = 0
End Sub

Private Sub Command3_Click()
    End
End Sub

Private Sub Form_Load()
    i = 0
End Sub

Private Sub Timer1_Timer()
    i = i + 2
    Picture1.Picture = LoadPicture(App.Path & "\DH\" & i & ".bmp")
    If i = 8 Then i = 0

End Sub