如何让程序暂停2秒?

visualbasic999 2002-04-12 08:41:05
如何让程序暂停2秒?
...全文
207 13 打赏 收藏 转发到动态 举报
写回复
用AI写文章
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
likesome 2002-04-12
  • 打赏
  • 举报
回复

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
sleep(2000)
sllwt 2002-04-12
  • 打赏
  • 举报
回复
sleep(2000)
wgku 2002-04-12
  • 打赏
  • 举报
回复
sleep(2000)

zyl910(910:分儿,我来了!) 的方法挺有意思的:)
Alsen 2002-04-12
  • 打赏
  • 举报
回复
sleep
Sean918 2002-04-12
  • 打赏
  • 举报
回复
Public Sub Delay(mmSec As Long)
On Error GoTo ShowError
Dim start As Single
start = Timer
While (Timer - start) < (mmSec / 1000#)
DoEvents
Wend
Exit Sub
ShowError:
MsgBox Err.Source & "------" & Err.Description
Exit Sub
End Sub


'''''''''''''''''''''''''''''''''''''''''''''''''''''
.........(程序)
delay 2000


water_j 2002-04-12
  • 打赏
  • 举报
回复
楼上!
pandawind 2002-04-12
  • 打赏
  • 举报
回复
sleep
human_2 2002-04-12
  • 打赏
  • 举报
回复
sleep(2000)
HungryBoy 2002-04-12
  • 打赏
  • 举报
回复
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Me.Caption = "Your system will sleep 5 sec."
Sleep 5000
Me.Caption = ""
End Sub
Private Sub Form_Load()
Me.Caption = ""
Command1.Caption = "Sleep ..."
End Sub
thirdapple 2002-04-12
  • 打赏
  • 举报
回复
【函数】
Sleep

【操作系统】
Win9X:Yes
WinNT:Yes

【声明】
Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)As Boolean

【说明】


【返回值】


【其它】


【参数表】
visualbasic999 2002-04-12
  • 打赏
  • 举报
回复
Timer是什么东?
thirdapple 2002-04-12
  • 打赏
  • 举报
回复
Sleep(2000)
zyl910 2002-04-12
  • 打赏
  • 举报
回复
Dim T as Single

T=Timer
Do While T+2>= Timer
Loop

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧