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) 'FillStyle = Int(Rnd * 7) 'FillColor = QBColor(Int(Rnd * 15)) 'Timer1.Interval = 10 End Sub Private Sub Timer1_Timer()
|
能动的图形
最新推荐文章于 2023-11-30 18:29:22 发布