VB编程之Timer倒计时控件怎么用
主讲老师:郭盛华
Timer控件是一种通过引发Timer事件,可以有规律地隔一段时间执行一次代码的控件。
Dim N As Integer ‘定义N变量为数字
Private Sub Form_Load()
N = 10’默认N等于 10
Timer1.Interval = 1000 '设置频率时间1秒
Timer1.Enabled = True '开启
End Sub
Private Sub Timer1_Timer()
N = N - 1
If N > 0 Then
Label1.Caption = "倒计时为:"& N
Else
Label1.Caption = "时间到"
Timer1.Enabled = False
End If
End Sub
Timer控件是一种通过引发Timer事件,可以有规律地隔一段时间执行一次代码的控件。
Dim N As Integer ‘定义N变量为数字
Private Sub Form_Load()
N = 10’默认N等于 10
Timer1.Interval = 1000 '设置频率时间1秒
Timer1.Enabled = True '开启
End Sub
Private Sub Timer1_Timer()
N = N - 1
If N > 0 Then
Label1.Caption = "倒计时为:"& N
Else
Label1.Caption = "时间到"
Timer1.Enabled = False
End If
End Sub
>更多相关文章
- 11-15VB编程之是否显示图片应用程序
- 11-15VB编程之编写我的第一个浏览器
- 11-15VB编程之单击一个按钮就可以打开网页
- 11-15VB编程之读取TXT文件
- 11-15VB编程之多个程序文档的关联
- 11-15VB编程之菜单界面的设计
- 11-15VB编程之直线与形状控件
- 11-15VB编程之图形与图像控件的使用方法
首页推荐
佛山市东联科技有限公司一直秉承“一切以用户价值为依归
- 01-11全球最受赞誉公司揭晓:苹果连续九年第一
- 12-09罗伯特·莫里斯:让黑客真正变黑
- 12-09谁闯入了中国网络?揭秘美国绝密黑客小组TA
- 12-09警示:iOS6 惊现“闪退”BUG
- 05-06TCL科技:预计大尺寸面板价格上涨动能有望延
- 05-06新加坡电信Optus任命新首席执行官以重建品牌
- 05-06微软宣布为消费级用户账户提供安全密钥支持
- 05-06当好大数据产业“守门员”(筑梦现代化 共绘
- 04-29通用智能人“通通”亮相中关村论坛
相关文章
24小时热门资讯
24小时回复排行
热门推荐
最新资讯
操作系统
黑客防御