时间延迟问题：

xingzhihao

时间延迟问题：
我想在运行第一行代码后若干时间后（如1分钟）
再执行第二行代码——
怎么办？？？[em04][em04]

李寻欢

设一公共变量NumTime
在Form_Timer过程里加一语句：NumTime=NumTime+1
然后在第一行代码及第二行代码之间插入以下语句
me.TimerInterval = 1000
do while numtime< = 60
DoEvents
loop
me.TimerInterval = 0

zhengjialon

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Sub AsyncThread()
    '让这个线程停止十秒。
    Sleep 10000
    MsgBox dd
End Sub

eio

两种方法都试过，提示错误哦

Trynew

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
如果是在窗体模块中声明的话要加Private.

eio

这种方法可用了，只是如果这样
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub 命令10_Click()
DoCmd.OpenForm "find"
Sleep 10000 '延时10秒
MsgBox "dd"
End Sub
只能是10秒后才打开find窗体和masbox
不能实现先打开find 10秒后再masbox

Trynew

-->点击浏览
看看这个程序的子窗体:在Timer事件中执行要延时的过程.