Question

vb中怎么利用timer控制label中的文字滚动，并且可以通过command改变滚动方向（从左向右及从右向左）

最好有解释哦，不然水平太差看不懂

Answer 1

Dim m As Boolean '滚动方向

Private Sub Command1_Click()
m = Not m '改变方向
End Sub

Private Sub Form_Load()
Label1.AutoSize = True
Timer1.Interval = 100
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim s
s = 100 '滚动速度，越大越快
If m Then s = -s
Label1.Left = Label1.Left + s
If Label1.Left < -Label1.Width Then Label1.Left = Me.ScaleWidth '超出左边框
If Label1.Left > Me.ScaleWidth Then Label1.Left = -Label1.Width '超出右边框
End Sub

Answer 2

是啊！一楼说的不难！

追问

不难就教一下嘛。。。要是会就不用问了嘛。。。。。

Answer 3

这个label的文字滚动设置时间和timer相同就好了嘛，滚动方向很简单吧？

追问

就是不会啊。。。能具体说一下吗