Question

急急!!VB高手帮下忙!~~

谢谢!!
单击命令按纽"开始",标签文字在定时器控制下自动的从左向右移动,移动的速度为每个时间间隔右移100缇,当标签移到窗体外时,再从窗体的左边进入,同时,命令的"开始"按纽变为"停止"按纽
定时器的时间间隔为0.1秒

再次谢谢!!

Answer 1

Private Sub Command1_Click()
If Command1.Caption = "开始" Then
Timer1.Enabled = True
Command1.Caption = "停止"
Else
Timer1.Enabled = False
Command1.Caption = "开始"
End If
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 100
If Label1.Left >= Form1.Width Then
Label1.Left = 0 - Label1.Width
End If
End Sub

Answer 2

从左向右
Private Sub Timer1_Timer()
If Label1.Left > 20000 Then
Label1.Left = -100
End If
Label1.Left = Label1.Left + 10
End Sub
从右向左
Private Sub Timer1_Timer()
If Label1.Left <-100 Then
Label1.Left = 1000
End If
Label1.Left = Label1.Left - 10
End Sub