求问vb中延时的实现方法
想要实现一个延时方式,比如说我在一个事件中使用了
While time = False '延时时间到,退出延时,
Timer1.Enabled = False
Text5.Text = "通信检测中..."
Wend
似乎不行啊,在VB里好象是顺序执行语句没有中断之说?调试时它一直在while中循环定时时间到后也不会中断响应Timer1的事件,用Sleep好象类似冻结了程序,如果我在Sleep之前使用了Text5.Text = "通信检测中..."在Sleep定时没有完之前Text5.Text的内容是空的,而不是我所期望给出的提示消息.求问这个延时是怎么实现的?
[解决办法]
Dim starttime As DateTime
starttime = Now()
While DateDiff("s", date, Now()) < 10 '10秒
DoEvents
Sleep 100
Text5.Text = "通信检测中..."
Wend