Office中国论坛/Access中国论坛

标题: 时间延迟问题： [打印本页]

作者: xingzhihao 时间: 2002-12-19 05:59
标题: 时间延迟问题：
时间延迟问题：
我想在运行第一行代码后若干时间后（如1分钟）
再执行第二行代码——
怎么办？？？[em04][em04]

作者: 李寻欢 时间: 2002-12-19 19:26
设一公共变量NumTime
在Form_Timer过程里加一语句：NumTime=NumTime+1
然后在第一行代码及第二行代码之间插入以下语句
me.TimerInterval = 1000
do while numtime< = 60
DoEvents
loop
me.TimerInterval = 0

作者: zhengjialon 时间: 2002-12-19 20:30
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

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

作者: eio 时间: 2003-1-10 07:49
两种方法都试过，提示错误哦

作者: Trynew 时间: 2003-1-10 16:19
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
如果是在窗体模块中声明的话要加Private.

作者: eio 时间: 2003-1-10 17:23
这种方法可用了，只是如果这样
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 时间: 2003-1-10 18:03
-->点击浏览
看看这个程序的子窗体:在Timer事件中执行要延时的过程.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)