看流星社区

 找回密码
 注册账号
查看: 2515|回复: 1

[VB] VB中timer控件的用法

[复制链接]

该用户从未签到

发表于 2014-7-22 09:00:54 | 显示全部楼层 |阅读模式
编写程序实现移动字幕显示。当程序运行时,单击“开始”按钮,则显示为“欢迎学习Visual Basic”的标签开始从右往左移动,当全部文字移出窗体后,则自动从窗体最右边再次出现。当单击“停止”按钮时,文字停止移动。设置标签的AutoSize属性,以使标签自动适应文字大小。
实现方法:用计时器自动触发Timer事件,在该事件中用Move方法移动标签。

该用户从未签到

发表于 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
点击按钮快速添加回复内容: 支持 高兴 激动 给力 加油 苦寻 生气 回帖 路过 感恩
您需要登录后才可以回帖 登录 | 注册账号

本版积分规则

小黑屋|手机版|Archiver|看流星社区 |网站地图

GMT+8, 2024-3-29 20:52

Powered by Kanliuxing X3.4

© 2010-2019 kanliuxing.com

快速回复 返回顶部 返回列表