Question

求助一道VB作业~~ 将标签从左向右自动滚动，到达最右边时，又从右边开始向左滚动。

该怎么做啊~~或者把做好的窗体名、工程名都发到520486514@163.com

Answer 1

窗体上添加一个标签Label1，一个定时器Timer1，设置属性Enable为True,Interval值为100
双击窗体，复制一下代码。运行后能直接看到效果
Dim a%
Private Sub Form_Load() '窗体加载时
a = 100 '开始时往右移+100
End Sub

Private Sub Timer1_Timer() '定时器
Label1.Left = Label1.Left + a '不停地左右移
If Label1.Left > Me.Width Then a = -a '到达右侧后，要求左移
If Label1.Left < 0 Then a = -a '到达左侧后，要求右移
End Sub