Question

VB 字幕从左往右滚动

VB课程实习，要求字幕从左往右穿透式循环滚动。急求代码！先谢谢各位了！！

Answer 1

首先添加一个Timer1 控件(时钟控件)

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 50
Label1.Left = -Label1.Width
End Sub

Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 50
If Label1.Left > Me.Width Then Label1.Left = -Label1.Width
End Sub

Answer 2

啊,最简单是做个时钟控件和一个LABEL控件,字在LABEL里,时钟0.1秒一刷,让LABEL的坐标向右移动一点,就行了