看流星社区 › 其它编程技术 › VB中timer控件的用法

pinkx 发表于 2014-7-22 09:00:54

VB中timer控件的用法

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

bimuyu 发表于 2014-7-22 09:01:02

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

查看完整版本: VB中timer控件的用法