请教VB中精确延时的问题.十万火急！！！

[Phillip]

我的程序如下
Private Sub Command1_Click()
text1.Text = "abc"
<-------在此插入延时程序.
text1.Text = "cde"
End Sub
要求在显示 "cde"之前,
能精确延时300毫秒,
并且运行指针不能跳出Command1_Click()

[iwin]

‘试试以下代码
Text1.Text="abc"
Dim t as Time
t=Timer
Do
Loop until(timer-t>=0.03)

Text1.Text="cde"

[thriller]

iwin 的方法不错。
不过在Windows环境中没有可能精确到1毫秒。
即使是300毫秒，也是大约的。
我试过几万遍了。
如果有人说不，我给1000分。
（timer-t>=0.03)本身要耗时的，而且这不是最好的办法。
t不应该是Time,而是Single或Double.

[mxp]

用api函数：
Public Declare Function timeGetTime Lib "winmm.dll" Alias "timeGetTime" () As Long

[liujin]

Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
还有一个 sleepex 用用试试

[sanhan]

Sleep似乎不能精确控制延时，还是timeGetTime可靠一些,可能达到1ms精度。

但是你要确保不会有另一个线程在这之间抢走你的时间片。