Question

VB怎样将文字从右到组滚动，文字出窗体后还会从右到左滚动的代码？谢谢

Answer 1

你把要滚动的文字写在一个label里面，在加一个timer
Private Sub form_load()
Timer1.Interval = 100
End Sub
Private Sub form_click()
Timer1.Enabled = True
End Sub
Private Sub timer1_timer()
If Label1.Left + Label1.Width < 0 Then Label1.Left = Form1.ScaleWidth
Label1.Left = Label1.Left - 100
End Sub

Answer 2

添加一个标签(label1)，和一个计时器（timer1）
Private Sub Form_Load()
Label1.Left = Form1.ScaleWidth
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
If Label1.Left + Label1.Width < 0 Then
Label1.Left = Form1.ScaleWidth
Else
Label1.Left = Label1.Left - 10
End If
End Sub