Question

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

当标签移动到右边的时候，看不见了，然后在往左边移动，这样循环的， 不知道怎么写， 可以帮帮忙吗？
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
走到右边看不见了，它就不不往左边移动了

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

什么意思请写清楚些。