Question

VB label 的左右移动

通过创建一个Option组 实现label的从左向右移动，和从右向左移动
本人已经建立完label timer 等 试验结果是label向右移动 求解 如何加一个一个Option组 实现label的从左向右移动，和从右向左移动

Answer 1

在窗体上创建一个LABEL1.加上下面的代码
Dim lefttoright As Boolean = True
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If lefttoright Then
Label1.Left = Label1.Left + 1
Else
Label1.Left = Label1.Left - 1
End If
If Me.Width < Label1.Left + Label1.Width Then
lefttoright = False
End If
If Label1.Left < 1 Then
lefttoright = True
End If
End Sub
label1向右移动到最右边后，会向左移动。当移到最左边时，再向右移。请看是否能帮助到你。

Answer 2

加减其坐标。