请问如何在VB使程序暂停一秒

[LuKoo]

[Pardo]

因为我VB没用过，只能给你一个参考，希望对你有帮助。用Widows API函数 DWORD GetTickCount(VOID)可以实现。

我用Delphi给你一个简单的示例：
var B:DWORD；
begin
B:=GetTickCount();
while (GetTickCount() - B)/1000 <1 do;

end;

[Putao]

用Sleep(WinAPI);
Sleep(1000)即可

[shines77]

Private Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long

Private Sub Pause(Byval sSec As Long)
Dim StartSec As Long
StartSec = GetTickCount()
While (GetTickCount() - StartSec) / 1000 < sSec
DoEvents
Wend
End Sub

调用 Pause(1) 即可暂停一秒。

[shines77]

Private Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long

Private Sub Pause(Byval sSec As Long)
Dim StartSec As Long
StartSec = GetTickCount()
While (GetTickCount() - StartSec) < sSec
DoEvents
Wend
End Sub

调用 Pause(1000) 即可暂停一秒，且暂停过程中程序仍能响应各种事件。