16,556
社区成员
发帖
与我相关
我的任务
分享如何在VB6.0中实现每隔几分钟执行一段代码
具体需求描述：因为一个页面执行某些操作需要特定的权限，而老板希望把这个权限验证做成动态的，每隔5分钟就需要进行一次权限验证，否则就会因为验证失效，而无法进行接下来的操作，我设想是用定时器实现，每五分钟执行一段按钮为不可使用的代码，按钮不可用，也就无法进行操作，只有通过验证，按钮才重新启用，因为对VB和定时器不甚了解，希望能得到各位大佬解答
...全文
请发表友善的回复…
发表回复
E去不回 2019-10-10
- 打赏
- 举报
轮循程序，timer.interval=60000，enabled=true，.start()，timer_tick事件里写你需要轮循执行的程序
threenewbee 2019-10-09
- 打赏
- 举报
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
吃瓜日常 2019-10-09
- 打赏
- 举报
额，我已经解决了，这个知识点你可能太久有点忘了，timer控件最高只能设置65000多毫秒，也就是一分钟多一点，我用的方法是定义一个分钟变量，timer控件间隔为60000毫秒，也就是一分钟，每隔一分钟就给变量加1，变量为五的时候就是我想要的效果了
神奇的VBA 2019-10-09
- 打赏
- 举报
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神奇的VBA 2019-10-09
- 打赏
- 举报
更正：一秒是一千毫秒 5分钟的话你应该写300000
神奇的VBA 2019-10-09
- 打赏
- 举报
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吃瓜日常 2019-10-09
- 打赏
- 举报
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吃瓜日常 2019-10-09
- 打赏
- 举报
如果是VB6.0自带的timer控件，是这样的，这是我在网上查了很多资料的结果，你要是说在网上找的插件，那当我没说
哥是龙王 2019-10-09
- 打赏
- 举报
timer控件最高只能设置65000多毫秒???
我只能说你这个结论是严重的错误。
神奇的VBA 2019-10-08
- 打赏
- 举报
将一个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 ‘如果按钮可以用，就将按钮设置为不可以用。
