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
