Question

vb6 timer控件的使用求助

我想制作一个启动程序之前先检查一些条件，比如：一运行程序 先出现一个检测窗口 检查后面的程序运行时必要的条件。我做的是一个access文件放在其他电脑中，开始的时候需要先检查能不能不能连接的上，能连接的上就弹出登录窗口。不能连接上的弹出提示。我直接在Private Sub Form_Load()中写代码，可是运行时等待好长时间程序处于死机状态，过了一会才弹出窗口不能连接。我只想要运行时2秒内检查不能连接就立马提示，然后立马关闭。
Dim fs As New FileSystemObject
If fs.FileExists("\\192.168.1.188\efi\njwn.mdb") = False Then

MsgBox "程序无法链接数据文件，请确保数据文件存在与\\192.168.1.188\efi\njwn.mdb", vbCritical, "致命错误"

End
End If

Answer 1

应用Timer控件不太符合你的要求，核搏培如果非要用的话，它只起一个计时的作用。
如果在连接前启动Timer，2秒钟后依然要银基等，连接后启动改唯，则更无意义。
建议将数据库所在目录映射到网络驱动器Z：，然后使用Shell "explorer Z:\", vbMinimizedNoFocus命令打开，这样连接速度会很快。

Answer 2

为简没嘛用timer？
用sleep函数 具体查找下 API,要先定义该清咐森API函数，答亩sleep才能用

Answer 3

在镇仿Form_Active中将可以先Sleep（2000）时间控件激活。时间触发事件间隔设置为0.双击时间控件触信烂发事件：写上你滑旅漏上面一段话。记得 Unload me