重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
时间控件是让你来设定系统等计时用的,比如:
创新互联专注于企业成都全网营销推广、网站重做改版、壶关网站定制设计、自适应品牌网站建设、H5场景定制、商城网站定制开发、集团公司官网建设、成都外贸网站建设、高端网站制作、响应式网页设计等建站业务,价格优惠性价比高,为壶关等各大城市提供网站开发制作服务。
你的时间控件
名为:timer1
你想让一个对话框每5秒钟调出来一次
你可以这样写:先设定时间控件的
interval
属性
为5000(每1000是一秒)
代码为:
Private
Sub
Timer1_Timer()
MsgBox
"请速度点确定!",
vbOKOnly,
"jklovesx提示您!"
End
Sub
另外,建议你多看基本方面的书,控件方面的很适合你,好吧,这样,TKS!
有不明白的,我们可以一起再交流
这种功能用不到TIMER,TIMER控件用在这种地方也不适合。(假如你所统计的时间很短,在几分中内话,可以使用,假如你统计的时间很长:几小时、几天几夜,建议改用以下方式):
在你需要开始计时的地方加入一个记录当前时间,在你想结束的地方也得到一个当前时间。然后将两个时间相减。
希望以上思路可以帮到你。
使用多线程。
如果操作时候长了,就把查询操作放在多线程里去执行,不要在窗体的主线程里执行。
因为定时器是通过Windows消息来实现的,而你的数据库操作阻塞了窗口线程,所以,窗口无法处理Windows消息。
动画的帧播放也是如此。
/----------------------
那就创建一条线程,然后在线程里执行数据库操作啊!
参见 System.Threading.Thread 对象。
我使用Visual Basic 2008 编写
1、新建2个窗体Form1和Form2
2、Form1窗体新建一个Button按扭和一个Timer1控件
3、打开Form1编写如下代码
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Form2.Show()
Me.Hide() '隐藏本窗体
Timer1.Enabled = False '使其只执行1次
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True '能使用 其实这个在属性窗口中更容易设置
Timer1.Interval = 2000 '毫秒 即2秒
End Sub
End Class
VB有现成的函数:
DateDiff(格式,日期1,日期2)
如今天到2010-5-1 8:00:00的时间差,代码:
DateDiff("yyyy",Now,#2010-5-1 8:00:00#) '还有几(整)年
DateDiff("q",Now,#2010-5-1 8:00:00#) '还有几(整)季度
DateDiff("m",Now,#2010-5-1 8:00:00#) '还有几(整)月
DateDiff("d",Now,#2010-5-1 8:00:00#) '还有几(整)天
DateDiff("ww",Now,#2010-5-1 8:00:00#) '还有几(整)周
DateDiff("h",Now,#2010-5-1 8:00:00#) '还有几(整)小时
DateDiff("n",Now,#2010-5-1 8:00:00#) '还有几(整)分钟
DateDiff("s",Now,#2010-5-1 8:00:00#) '还有几(整)秒