VB中如何timer 控件进行倒计时
2015-04-30 00:00
357 查看
1、程序加载时操作: Private Sub Form_Load() '窗体加载时自动进行
Timer1.Interval = 1000 ‘设置计时周期为1秒注意默认计时单位为毫秒,即1/1000秒
2、定义一个时间变量。可以某控件的Caption属性代替,如Label12.Caption
3、拖放timer控件到程序界面上
4、设置倒计时:双击时钟控件,输入计时规则,如Label12.Caption = Label12.Caption + 1
5、设置当时间值达到某一条件的时候应采取的方法(即动作)。可以用if语句。如if Label12.Caption =60,then Unload Form1,注意块if语句与行if语句的区别
以下是例子:
Private Sub Form_Load() '窗体加载时自动进行以下操作
Timer1.Interval = 1000 '计时频率设为1秒
end sub
Private Sub Timer1_Timer()
Label12.Caption = Label12.Caption - 1 '以秒计时
End Sub
Private Sub CommandSure_Click()
if Label12.Caption =
s = MsgBox("确认提交,取消重填!", 1, "提示信息") '弹出对话框
If s = 1 Then
f = MsgBox("提交信息成功,请点击确认退出系统", 0, "")
Unload Form1 '窗体关闭
Else
Load Form1 '重新初始化
Form1.Enabled = True '允许重填
Timer1.Enabled = True '继续计时
CommandSure.Enabled = True '确定按钮可用
end if
end sub
Timer1.Interval = 1000 ‘设置计时周期为1秒注意默认计时单位为毫秒,即1/1000秒
2、定义一个时间变量。可以某控件的Caption属性代替,如Label12.Caption
3、拖放timer控件到程序界面上
4、设置倒计时:双击时钟控件,输入计时规则,如Label12.Caption = Label12.Caption + 1
5、设置当时间值达到某一条件的时候应采取的方法(即动作)。可以用if语句。如if Label12.Caption =60,then Unload Form1,注意块if语句与行if语句的区别
以下是例子:
Private Sub Form_Load() '窗体加载时自动进行以下操作
Timer1.Interval = 1000 '计时频率设为1秒
end sub
Private Sub Timer1_Timer()
Label12.Caption = Label12.Caption - 1 '以秒计时
End Sub
Private Sub CommandSure_Click()
if Label12.Caption =
s = MsgBox("确认提交,取消重填!", 1, "提示信息") '弹出对话框
If s = 1 Then
f = MsgBox("提交信息成功,请点击确认退出系统", 0, "")
Unload Form1 '窗体关闭
Else
Load Form1 '重新初始化
Form1.Enabled = True '允许重填
Timer1.Enabled = True '继续计时
CommandSure.Enabled = True '确定按钮可用
end if
end sub
相关文章推荐
- C# Timer 控件 c#怎么获取timer剩余时间 倒计时数秒 如何获取 Interval 设置完的等待时间
- 如何:对 Windows 窗体控件进行线程安全调用(转载)
- 如何:对 Windows 窗体控件进行线程安全调用
- 【示例教程】如何使用LEADTOOLS图像标注控件在界面上对图像进行标注
- 【转】介绍vb使用xmlhttp对象、webbrowser控件、inet控件进行Post发包、Get发包的方法
- [VB.NET]如何捕捉datagridview控件中combox内容改变的事件?
- 如何通过类型库使 C DLL 更易于通过 VB 进行访问
- Android使用属性动画如何自定义倒计时控件详解
- ASP.NET - 如何:根据模式对 ASP.NET 服务器控件进行验证
- WinForm异步:如何:对 Windows 窗体控件进行线程安全调用
- QT 进行动态绑定信号槽时,如何正确找到当前操作的控件?
- timer控件 倒计时 顺时计时 重置计时
- [初学VB.net]如何通过控件的名称来控制控件
- 控件集合VB.NET用Controls集合对为空的控件进行遍历
- 如何给ocx,dll控件进行数字签名
- VB用户控件制作讲解与实例-----用户控件属性或函数的描述信息如何写入程序
- Android 中如何使用CountDownTimer进行倒计时
- 如何对自定义的Dialog的View中控件进行监听
- 如何在Visual Studio 2005或者Visual Studio 2008里实现拖动控件进行绝对定位?
- 如何使用VB调用DTS进行数据的导入、导出