vb中利用timer控制标签左右循环移动

来源：百度知道 编辑：UC知道 时间：2024/05/19 15:46:42
当标签移动到右边的时候，看不见了，然后在往左边移动，这样循环的， 不知道怎么写， 可以帮帮忙吗？
lblshow.Left = lblshow.Left + 200
If lblshow.Left > 4725 Then
lblshow.Left = lblshow.Left - 200
ElseIf lblshow.Left < 0 Then
lblshow.Left = lblshow.Left + 200
End If
走到右边看不见了，它就不不往左边移动了

Dim Step As Integer

Private Sub Form_Load()
Step = 200
End Sub

Private Sub Timer1_Timer()

If lblshow.Left >= Me.ScaleWidth Then Step = -200
If lblshow.Left <= 0 Then Step = 200

lblshow.Left = lblshow.Left + Step

End Sub

什么意思请写清楚些。

直接每过一定长度的时间就把控件的坐标变一下就行了
比如说
Lable1.Left=Lable1.Left-100

Dim FX As Integer '方向

Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = True
FX = 1
End Sub

Private Sub Timer1_Timer()
If Label1.Left < 0 Then FX = 1 '正方向
If Label1.Left > Me.Width Then FX = -1 '反方向
Label1.Left = Label1.Left + (200 * FX)
End Sub