Question

VB中，如何让标签在窗体中反复的左右移动.

请把代码详细，简练，最好能多写几种。

Answer 1

在窗体上添加一个Timer控件,Interval属性设置为100

Dim flag As Boolean

Private Sub Form_Load()
flag = False
End Sub

Private Sub Timer1_Timer()
If Not flag And Label1.Left + Label1.Width <= Me.ScaleWidth Then
Label1.Left = Label1.Left + 200
If Label1.Left + Label1.Width >= Me.ScaleWidth Then flag = True
Else
Label1.Left = Label1.Left - 200
If Label1.Left <= 0 Then flag = False
End If
End Sub

Answer 2

又是你 我就会这两种方法了
这个我用到了闲置循环、DoEvents语句和goto语句

Private Sub Command1_Click()
While Not Label1.Left > Me.Width + Label1.Width
aa: DoEvents
Label1.Left = Label1.Left + 1
If Label1.Left > Me.Width - Label1.Width Then GoTo bb
Wend

While Not Label1.Left < 0
bb: DoEvents
Label1.Left = Label1.Left - 1
If Label1.Left < 0 Then GoTo aa
Wend
End Sub

Answer 3

空间本身是不会动的。
可以使用空格加上 时间控件来完成这个事情。
在标签的文字前面加空格，往左就加空格，往右就减空格。