移动速度由水平滚动条控制,该怎样编写

min=1 max=100vb
2024-11-24 18:32:13
推荐回答(1个)
回答1:

Private Sub Timer1_Timer()
If Label1.Left > Me.Width Then
Label1.Left = -Label1.Width
End If
Label1.Left = Label1.Left + HScroll1.Value
End Sub