Question

VB中timer控件的用法

编写程序实现移动字幕显示。当程序运行时，单击“开始”按钮，则显示为“欢迎学习Visual Basic”的标签开始从右往左移动，当全部文字移出窗体后，则自动从窗体最右边再次出现。当单击“停止”按钮时，文字停止移动。设置标签的AutoSize属性，以使标签自动适应文字大小。
实现方法：用计时器自动触发Timer事件，在该事件中用Move方法移动标签。

Answer 1

先设置计时器的 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

Answer 2

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