请问再VB中程序执行时等待一段指定的时间是什么命令?

Question

Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
看看？

Answer 1

原因是这样，我用form.show，后面紧跟着复杂的数学计算语句，于是结果就出现了form显示出来的只有边框，其他部分还来不及显示就已经进行数学计算了，怎么才能显示出整个FORM呢？

Answer 2

先 me.refurbish，然后再计算的过程中doevent试试看

Answer 3

先 me.refurbish，然后再计算的过程中doevent试试看

Answer 4

可以用sleep函数。函数的功能是挂起当前进程~~~~

Answer 5

Public Sub Wait(WaitTime)
Dim StartTime As Double
StartTime = Timer
Do While Timer < StartTime + WaitTime
    If Timer > 86395 Or Timer = 0 Then Exit Do
    DoEvents
Loop
End Sub调用：
Wait 0.5你可以对此代码进行修改

Answer 6

你还是用timer 最简单。 show 窗体后打开timer，在timer的执行语句中先进行计算，紧接着关闭timer即可。

Answer 7

对对对，可以考虑加一个Splash窗口，在Splash窗口中用timer

Answer 8

Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
Private Sub Form_load()
.
.
.
form1.show
DoEvents
sleep(5000)  '停顿5秒
’再此添加你的计算程序End Sub

Answer 9

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'延迟1秒
Call Sleep(1000)

Answer 10

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'延迟1秒
Sleep(1000)