金箍棒变长

编程代码如下:

Dim Step As Integer
Private Sub Command1_Click()
Timer1.Enabled = False

Step = Step + 150

Line (1000, 1000)-(30 + Step, 1000), QBColor(Int(Rnd * 15))

End Sub


Private Sub Timer1_Timer()
Timer1.Enabled = True
Step = Step + 150

Line (1000, 1000)-(30 + Step, 1000), QBColor(Int(Rnd * 15))

End Sub


 孙悟空的金箍棒可随意变,我们的也可以的

阅读更多
文章标签: timer command 编程
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭
关闭