VB 每60S触发事件

来源:百度知道 编辑:UC知道 时间:2024/05/12 00:42:33
VB 采用 外部插件 进行1分钟的计时 时间到时 出发时间 要求 计时精确
出发时间时 不影响本身的计时 需要详细的代码 急求

老规矩 高分追好答案的
补充一下 计时的时候程序还要做其他的事 而计时时间到的时候 跳转到被触发的时间 但是计时功能不能停

我自己写的程序 是用TIMER函数写的 现在问题是 有没有比TIMER函数更精确的计时 还有 就是 触发事件后 计

时功能不能暂停 注意是TIMER函数 不是控件

明显的timer事件啊??
全局变量dim a as integer
a=60
timer事件代码:
a=a-1
if a=0 then
……
a=60
end if
应该明白了吧!
我晕你还是没明白啊!!
你把我这里的省略号随便换成个什么看看
比如说换成text1.fontsize=text1.fontsize+1
你看看是不是每格60秒字体增大1号!
并不是只增大一次所以说计时功能呢个并没有停止

用timer来返回系统的时间还不准确吗!
那你就用sleep 函数挂起好了,不过这个函数挂起的时候程序就呈现假死状态!
模块声明
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

sleep 1000 '就等于1秒

TIMER函数很精确了。1分钟的计时,不用精确到毫秒级吧?!