7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
foolishtiger 2001-11-09
- 打赏
- 举报
Option Explicit
' Purpose:
' Author:吴文智
' Date:2001-11-09
'Description:要试用本例请在窗体中填加一个按钮
' 然后在代码窗体中粘贴如下代码
' Good luck!
Private Sub Command1_Click()
Dim PauseTime, Start, Finish, TotalTime
MsgBox "按确定后程序延迟3秒", vbInformation
Start = Timer ' 设置开始暂停的时刻。
Do While Timer < Start + 3 '对时间进行比较
DoEvents
Loop
MsgBox "延迟结束", vbInformation
End Sub
' Purpose:
' Author:吴文智
' Date:2001-11-09
'Description:要试用本例请在窗体中填加一个按钮
' 然后在代码窗体中粘贴如下代码
' Good luck!
Private Sub Command1_Click()
Dim PauseTime, Start, Finish, TotalTime
MsgBox "按确定后程序延迟3秒", vbInformation
Start = Timer ' 设置开始暂停的时刻。
Do While Timer < Start + 3 '对时间进行比较
DoEvents
Loop
MsgBox "延迟结束", vbInformation
End Sub
loveyxy 2001-11-09
- 打赏
- 举报
中原 请详细点说明一下谢谢！！
jspxnet 2001-11-09
- 打赏
- 举报
.dll也用Timer控件.
loveyxy 2001-11-09
- 打赏
- 举报
如果 是在.dll中如何办？
foolishtiger 2001-11-09
- 打赏
- 举报
最方便的就是用Timer控件.
DeityFox 2001-11-09
- 打赏
- 举报
Public Declare Function GetTickCount Lib "kernel32" () As Long
Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Dim a As Integer
a = GetTickCount()
Do While GetTickCount - a < 3000
DoEvents
Loop
End Sub
或者sleep(3000)
Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Dim a As Integer
a = GetTickCount()
Do While GetTickCount - a < 3000
DoEvents
Loop
End Sub
或者sleep(3000)
jpsr 2001-11-09
- 打赏
- 举报
是Active Dll还是Dll?
伽楠 2001-11-09
- 打赏
- 举报
用timer控件设定延迟时间为1000是1秒,10000是十秒
dave75 2001-11-09
- 打赏
- 举报
sleep函数
