Question

用vb设计一个字幕滚动程序，使label1先向右移，在碰到form1的右边框后向左移，请问我的设计哪里错了？

我的程序详见图片。请高手指点！

Answer 1

问题在 Timer1_Timer()事件中，即使X为-100了，但触发事件后X又回到100了，Timer1_Timer()事件中X=100要去掉，改为如下：

Dim x As Integer
Option Explicit
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
x = 1
End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 100 * x
If Label1.Left >= Form1.Width - Label1.Width Then x = -1
If Label1.Left <= 0 Then x = 1
End Sub