Question

VB的timer控件

在VB里面利用TIMER来实现时按钮不断移动 且是连续的

Answer 1

Private Sub Form_Load()
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
If Command1.Left > 0 Then
Command1.Left = Command1.Left - 20
Else
Command1.Left = Me.Width - 200
End if '一定行!
End Sub

Answer 2

Private Sub Form_Load()
Timer1.Interval = 200
End Sub

Private Sub Timer1_Timer()
If Command1.Left > 0 Then Command1.Left = Command1.Left - 50 Else Command1.Left = Me.Width - 200
End Sub

Answer 3

不可能是连续的，只是视觉上是连续的，因为都是以1缇为步进效果
要速度快一点可将1改为10，看自己所需

Private Sub Form_Load()
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
If Command1.Left +command1.width> form1.width Then Command1.Left = 0
command1.left=command1.left+1
End Sub

Answer 4

设置timer intervar 小一点，使移动连续变化
例如：Timer1.Intervar=10
command1.left=command1.left+10 '向右移动
command1.top=command1.top+10 '向下移动
其它控件也可以通过这样设置实现