VB 不假死延时方法
答案:3 悬赏:30 手机版
解决时间 2021-03-21 09:58
- 提问者网友：心牵心
- 2021-03-21 03:36
在几个语句之间插入一个延时，SLEEP太容易假死，用TIMER要怎么写？有没有别的简单句子可以延时的？
最佳答案
- 五星知识达人网友：一秋
- 2021-03-21 04:02
定义一个全局的变量
Private flg As Boolean
在程序要延时的地方
flg=true
Timer1.Interval = 5000'延时5秒
Timer1.enabled=true
while flg
doevents'这样不会假死，而且5秒后Timer1_Timer会执行
wend
timer的事件
Private Sub Timer1_Timer()
flg = False
End Sub
Private flg As Boolean
在程序要延时的地方
flg=true
Timer1.Interval = 5000'延时5秒
Timer1.enabled=true
while flg
doevents'这样不会假死，而且5秒后Timer1_Timer会执行
wend
timer的事件
Private Sub Timer1_Timer()
flg = False
End Sub
全部回答
- 1楼网友：傲气稳了全场
- 2021-03-21 05:49
threading.thread.sleep(3000)'延时3000毫秒
或者下面的过程
private sub delay(byval t as long) '延时方法
dim temp as long = environment.tickcount
while environment.tickcount - temp <= t
application.doevents()
end while
end sub
- 2楼网友：鱼芗
- 2021-03-21 04:34
Private Declare Function GetTickCount Lib "kernel32" _
() As Long
Private Sub delay(L As Long) '这个是延时程序，L参数单位是毫秒
Dim time_L As Long
time_L = GetTickCount
Do
If GetTickCount - time_L > L Then Exit Sub
DoEvents
Loop
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯