vb label 移动问题~~

来源：百度知道 编辑：UC知道 时间：2024/06/07 08:01:08
如何令label自右向左移
当到达窗体左边时 再从右边出现

功课来的~ 请各位教教~~

以下是一秒钟左移一次的程序代码，需要添加一个timer控件和一个label控件
Private Sub Form_Load()
Timer1.Interval = 1000
Label1.Left = Form1.Width - Label1.Width
End Sub

Private Sub Timer1_Timer()

If Label1.Left < 0 Then
Label1.Left = Form1.Width - Label1.Width
Else
Label1.Left = Label1.Left - 100
End If

End Sub

放一个Label1,Timer1
设定Timer1.Interval=1000(或者其他的整数，越小越快)
Private Sub Timer1_Timer()
if Label1.Left>=100 then
Label1.Left=Label1.Left-100
Else
Label1.left=Me.width
End if
End Sub