UC知道vb Move方法移动
来源：百度知道 编辑：UC知道 时间：2024/06/23 01:35:46
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Label1.Move (Label1.Left - 100)
If Label1.Left <= Label1.Width Then
Label1.Left = Form1.Width
Label.Move (Label1.Left - 100)
End If
End Sub
这个代码哪有问题啊 为什么没动起来呢
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Label1.Move (Label1.Left - 100)
If Label1.Left <= Label1.Width Then
Label1.Left = Form1.Width
Label.Move (Label1.Left - 100)
End If
End Sub
这个代码哪有问题啊 为什么没动起来呢
Timer1的Interval值没有设置，相当于Timer1.Enabled = False。
设置Timer的Interval属性，或加上下面一句代码就OK了。
Private Sub Form_Load()
'一秒触发一次
Timer1.Interval=1000
End Sub
1、Timer1的Interval值没有设置，Timer1.Interval=1000
2、倒数第三句：Label.Move (Label1.Left - 100) ，
应该为Label1.Move (Label1.Left - 100)