用VB编写文字在窗体上左右摇摆

Question

即文字撞到左边向右边走，当撞到右边就向左边走。

Answer 1

最简单的方法：
在你的窗体上面放一个标签控件名为label1，再拖放一个timer1控件。 把代码考进去就ok了。

Dim fx As Boolean
Private Sub Form_Load()
Label1.AutoSize = True
Timer1.Interval = 30
Timer1.Enabled = True
fx = True
End Sub

Private Sub Timer1_Timer()
If fx = True Then
Label1.Left = Label1.Left + 20
Else
Label1.Left = Label1.Left - 20
End If
If Label1.Left + Label1.Width + 100 > Me.Width Or Label1.Left - 20 < 0 Then fx = Not fx
End Sub

Answer 2

新建一个窗体，上面放一个标签控件(里面就是你写的文字)，再放一个timer控件。
已经过测试，保证通过。

Dim flag As String
Private Sub Form_Load()
flag = "left"
Timer1.Interval = 50
Label1.Top = 0
Label1.Left = 0

End Sub

Private Sub Timer1_Timer()

Select Case flag
Case "left"
If Label1.Left + Label1.Width + 250 > Form1.Width Then
Label1.Left = Form1.Width - Label1.Width - 250
flag = "right"
Else
Label1.Left = Label1.Left + 100
End If

Case "right"
If Label1.Left - 100 < 0 Then
Label1.Left = 0
flag = "left"
Else
Label1.Left = Label1.Left - 100
End If
End Select
End Sub