用VB绘制图形并使其运动
绘制圆形并运动的程序代码
打开VB6.0程序，新建一个窗体。应用command画出一个按钮，将command的caption属性改为“开始运动”；插入一个timer,将其interval属性改为1000，enabled属性改为FALSE。用shape控件画出一个圆。
Dim g As Boolean
Dim x As Long
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
g = True
x = Shape1.Left
End Sub
Private Sub Timer1_Timer()
If g Then
x = x - 300
Else
x = x + 300
End If
If x < 0 Or x >(Me.ScaleWidth - Shape1.Width) Then
g = Not g
End If
Shape1.Move x
End Sub
在窗体中使用了一个按钮、一个计时器，并且用shape控件绘制了一个圆
 

实验一 画图形


代码
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

屏幕绘画 V1.1 - 一念

注释：该程序用VB6.0编写，如果疑问在下方留言。



1.打开程序界面



2.打开程序后第二个界面。点击红黄两只笔图按钮，开始绘画。



3.默认是画随意线条，你也可以选择数学几何图形（圆形、方形、三角形、直角三角形、扇形、多边形、五角星、心形、弧线等），你可以点击黑色笔选择笔粗和画图样式及添加文字。颜色，颜色填充，线条粗细，保存绘画图片，画板、橡皮擦等功能。



4.看视频也可以绘制各种图形。



5.PPT全屏也可以绘制各种图形。