当前位置：首页 → 问答吧 → vb定时窗体跳转

vb定时窗体跳转

时间：2011-07-23

来源：互联网

现需要form在没有操作开始计时10分钟后自动跳转到第一个窗体
小弟目前想到的方法是定义一个全局变量在Form_load里赋当前时间（窗体加载时间）然后再每个方法里也赋当前时间（方法运行的时间）在timer里判断如果时间超过10分钟即返回请问这种方法可行不可行。不可能请大牛给一个比较好的方法。谢谢。

作者: dgtg77 发布时间: 2011-07-23

嘿大牛们快出来

作者: dgtg77 发布时间: 2011-07-23

vb 里面监控鼠标键盘的咋写的啊。。。。。。。

作者: dgtg77 发布时间: 2011-07-23

大牛们快看这里看这里

作者: dgtg77 发布时间: 2011-07-23

引用楼主 dgtg77 的回复:
现需要form在没有操作开始计时10分钟后自动跳转到第一个窗体
小弟目前想到的方法是定义一个全局变量在Form_load里赋当前时间（窗体加载时间）然后再每个方法里也赋当前时间（方法运行的时间）在timer里判断如果时间超过10分钟即返回请问这种方法可行不可行。不可能请大牛给一个比较好的方法。谢谢。

Option Explicit

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Timer1.Interval = Timer1.Interval + 1000
If Timer1.Interval = 10000 Then Timer1.Enabled = False: Form2.Show: Unload Me
End Sub

作者: xiaolinyouni 发布时间: 2011-07-23

引用 2 楼 dgtg77 的回复:
vb 里面监控鼠标键盘的咋写的啊。。。。。。。

你是在写一个vb监控程序吧,

这个得调用API函数,我下班了得走了,让楼下给你回答吧!祝lz好运

作者: xiaolinyouni 发布时间: 2011-07-23

引用 4 楼 xiaolinyouni 的回复:

Option Explicit

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Timer1.Interval = Timer1.Interval + 1000
If Timer1.Interval = 10000 Then Timer1.Enabled = False: Form2.Show: Unload Me
End Sub

如果窗体load之后有操作过 Timer1不会重新开始计时吧。

作者: dgtg77 发布时间: 2011-07-23

vb定时窗体跳转

热门阅读

热门下载