查人人中国名人网lols8排位重置:VB:程序能使一个Label1能从左至右来回移动?
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/02 12:59:26
Label1能从左至右来回移动就是:从左边进入,当Label1的右端碰到FORM的时候,Label1就向右边移动,当Label1的左端碰到FORM的时候就向左边移动,依次类推...
我要实现来回的。。。
我要实现来回的。。。
用如下代码可实现：
Option Explicit
Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 100
If Label1.Left + Label1.Width >= Form1.Width Then
Timer2.Enabled = True
Timer1.Enabled = False
End If
End Sub
Private Sub Timer2_Timer()
Label1.Left = Label1.Left - 100
If Label1.Left = 0 Then
Timer1.Enabled = True
Timer2.Enabled = False
End If
End Sub
用Timer写代码，控制Label1的位置不就行了。。。。
用Label1的位置与Form的宽、高比较来判断是否碰边
在timer1_timer事件中写可以速度控件在百分之一秒，剩下的就如楼上的那位说的。