51问答网 > 请问VB怎么让Timer控件让label1从左向右移动，超出窗体范围后又重新从左到右开始移动

请问VB怎么让Timer控件让label1从左向右移动，超出窗体范围后又重新从左到右开始移动

2025-01-08 09:16:50

推荐回答（1个）

回答1：

Option Explicit
Dim W As Long
Private Sub Command1_Click()
Timer1.Interval = 100
End Sub

Private Sub Command2_Click()
Timer1.Interval = 0
End Sub

Private Sub Timer1_Timer()
W = Me.Width
If Label1.Left > W Then
    Label1.Left = 0 - Label1.Width
    Else
    Label1.Left = Label1.Left + 84
End If
End Sub

附源文件， VB6运行通过。