实现能动的图形

 

Privavte Sub Command_Click()

Timer1.Enabled = True

Timer1.Interval = 100

End Sub

Private Sub Command2_Click()

Form1.Cls

End Sub

Private Sub Command3_Click()

Timer1 = False

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

'Form1.Circle (Int(Rnd * 8000), Int(Rnd * 8000)), Int(Rnd * 800)

'FillStyle = Int(Rnd * 7)

'FillColor = QBColor(Int(Rnd * 15))

'Timer1.Interval = 10

End Sub

Private Sub Timer1_Timer()

Form1.Circle (Int(Rnd * 8000), Int(Rnd * 8000)), Int(Rnd * 800)

FillStyle = Int(Rnd * 7)

FillColor = QBColor(Int(Rnd * 15))

Line (Int(Rnd * 8000), 
 
 心得体会： 在编写程序时总会遇到一些或大或小的问题 ——没有结束语，单词拼写错误，或公式错误等等，这都必须耐下心来，静静思考，而且需要 反复实验，不断摸索，成功是在经历无数次的失败后取得的，正所谓“失败是成功之母”。以后必须要认真学习 VB知识，不断丰富自己，现在学到知识的就是日后的财富 ！