VB中timer控件的用法

先设置计时器的 Enabled=false

然后在单击“开始”按钮的事件中设置计时器的 Enabled=true

然后在计时器的Timer事件中写移动标签的代码

if label1.Left+label1.Width >= 0 then
label1.Left=label1.Left-80 '修改80 可以改变移动的速度
else
label1.Left=this.Width
end if

再在单击“停止”按钮的事件里设置计时器的 Enabled=false

Private Sub Command1_Click() '开始
Timer1.Enabled = True
End Sub

Private Sub Command2_Click() '停止
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Label1.Caption = "欢迎学习Visual Basic"
Label1.AutoSize = True
Timer1.Interval = 100
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Label1.Move IIf(Label1.Left <= Me.ScaleLeft - Label1.Width, Me.ScaleWidth, Label1.Left - 100)
End Sub