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

全部回答

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息