如何在VB6.0中实现每隔几分钟执行一段代码

[吃瓜日常]

具体需求描述：因为一个页面执行某些操作需要特定的权限，而老板希望把这个权限验证做成动态的，每隔5分钟就需要进行一次权限验证，否则就会因为验证失效，而无法进行接下来的操作，我设想是用定时器实现，每五分钟执行一段按钮为不可使用的代码，按钮不可用，也就无法进行操作，只有通过验证，按钮才重新启用，因为对VB和定时器不甚了解，希望能得到各位大佬解答

[神奇的VBA]

将一个timer控件拖到窗体上，此时会有一个时钟一样的图标，特别的。。。。。丑，不过运行的时候是看不见的 双击这个图标。 在里面写上： Me.Timer1.Enabled = True　　’启动控件 Me.Timer1.Interval = 5000 '5分钟执行一次 以下你看情况选一个 Me.Button.enable = not me.Button.enable '五分钟能用五分钟不能用 if me.button.enable then me.button.enable= false ‘如果按钮可以用，就将按钮设置为不可以用。

[哥是龙王]

引用 6 楼 吃瓜日常 的回复:

额，我已经解决了，这个知识点你可能太久有点忘了，timer控件最高只能设置65000多毫秒，也就是一分钟多一点，我用的方法是定义一个分钟变量，timer控件间隔为60000毫秒，也就是一分钟，每隔一分钟就给变量加1，变量为五的时候就是我想要的效果了

timer控件最高只能设置65000多毫秒???
我只能说你这个结论是严重的错误。

[吃瓜日常]

如果是VB6.0自带的timer控件，是这样的，这是我在网上查了很多资料的结果，你要是说在网上找的插件，那当我没说

[吃瓜日常]

引用 1 楼 神奇的VBA 的回复:

将一个timer控件拖到窗体上，此时会有一个时钟一样的图标，特别的。。。。。丑，不过运行的时候是看不见的
双击这个图标。
在里面写上：
Me.Timer1.Enabled = True　　’启动控件
Me.Timer1.Interval = 5000 '5分钟执行一次
以下你看情况选一个
Me.Button.enable = not me.Button.enable '五分钟能用五分钟不能用
if me.button.enable then me.button.enable= false ‘如果按钮可以用，就将按钮设置为不可以用。

Private Sub Timer1_Timer()
Timer1.Interval = 5000
If Command_Power.Enabled = True Then
Command_Power.Enabled = False
Else
Command_Power.Enabled = True
End If
End Sub

我的代码是这样写的但是Timer事件触发的太快了，时间间隔根本没有五分钟，大概也就几十秒

[神奇的VBA]

引用 2 楼 吃瓜日常的回复:

[quote=引用 1 楼 神奇的VBA 的回复:]
将一个timer控件拖到窗体上，此时会有一个时钟一样的图标，特别的。。。。。丑，不过运行的时候是看不见的
双击这个图标。
在里面写上：
Me.Timer1.Enabled = True　　’启动控件
Me.Timer1.Interval = 5000 '5分钟执行一次
以下你看情况选一个
Me.Button.enable = not me.Button.enable '五分钟能用五分钟不能用
if me.button.enable then me.button.enable= false ‘如果按钮可以用，就将按钮设置为不可以用。

Private Sub Timer1_Timer()
Timer1.Interval = 5000
If Command_Power.Enabled = True Then
Command_Power.Enabled = False
Else
Command_Power.Enabled = True
End If
End Sub

我的代码是这样写的但是Timer事件触发的太快了，时间间隔根本没有五分钟，大概也就几十秒[/quote] 哦 不好意思 5000应该是5秒 这个控件一分钟等于一千秒

[神奇的VBA]

更正：一秒是一千毫秒 5分钟的话你应该写300000

[神奇的VBA]

引用 3 楼 神奇的VBA的回复:

[quote=引用 2 楼 吃瓜日常的回复:][quote=引用 1 楼 神奇的VBA 的回复:]
将一个timer控件拖到窗体上，此时会有一个时钟一样的图标，特别的。。。。。丑，不过运行的时候是看不见的
双击这个图标。
在里面写上：
Me.Timer1.Enabled = True　　’启动控件
Me.Timer1.Interval = 5000 '5分钟执行一次
以下你看情况选一个
Me.Button.enable = not me.Button.enable '五分钟能用五分钟不能用
if me.button.enable then me.button.enable= false ‘如果按钮可以用，就将按钮设置为不可以用。

Private Sub Timer1_Timer()
Timer1.Interval = 5000
If Command_Power.Enabled = True Then
Command_Power.Enabled = False
Else
Command_Power.Enabled = True
End If
End Sub

我的代码是这样写的但是Timer事件触发的太快了，时间间隔根本没有五分钟，大概也就几十秒[/quote] 哦 不好意思 5000应该是5秒 这个控件一分钟等于一千秒[/quote] 更正：一秒是一千毫秒 5分钟的话你应该写300000

[吃瓜日常]

额，我已经解决了，这个知识点你可能太久有点忘了，timer控件最高只能设置65000多毫秒，也就是一分钟多一点，我用的方法是定义一个分钟变量，timer控件间隔为60000毫秒，也就是一分钟，每隔一分钟就给变量加1，变量为五的时候就是我想要的效果了

[threenewbee]

timer+计数器 timer的interval设置为1000，1秒 计数器变量 private cnt as integer sub timer1_timer() cnt = cnt + 1 if (cnt = 300) then cnt = 0 做你的事情 end if end sub

[E去不回]

轮循程序，timer.interval=60000，enabled=true，.start()，timer_tick事件里写你需要轮循执行的程序