实验目的:实现能动的图形
实验内容: 实验原理:
Private Sub Command1_Click() 定义三个启动按钮
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
Private Sub Command2_Click()
Form1.Cls
实验目的:实现能动的图形 实验内容: 实验原理: Private Sub Command1_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) 采用Rnd得到随机大小,随机形状,随机颜 '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), Int(Rnd * 8000))-(Int(Rnd * 8000) + 1000, Int(Rnd * 8000)) End Sub 心得体会:任何一个东西要想学好都不是轻而易举的事情。学会举一反三,灵活运用是关键。 |