【求助】简单的字母动画演示

elainewy 发布于 2012-02-19 20:20， 671 次点击

Private Sub Form_Load()
Timer1.Interval = 0
End Sub
Private Sub Command1_Click()
Timer1.Interval = 0
Call MyMove
End Sub
Private Sub Command2_Click()
Timer1.Interval = 200
End Sub
Private Sub Timer1_Timer()
Call MyMove
End Sub
Sub MyMove()
Label1.Move Label1.Left, Label1.Top + 50
If Label1.Top > Form1.Height Then Label1.Top = 0
End Sub
为什么不能运行

2 回复

Artless2012-02-19 23:15

测试过能运行

mayuebo2012-02-20 20:31

Private Sub Command1_Click()
Timer1.Interval = 0 '这边设置为0有问题,相当于timer控件停止工作
Call MyMove
End Sub

一般的做法是先设置好Interval,然后希望Timer工作时设置Timer.Enable=true,不工作时设置为false