发表于:2008-01-23 14:21:00
4楼
自己做了一个Pause函数:
Public Sub Pause(PauseTime)
Dim Start, Finish
Start = Timer ' 设置开始暂停的时刻。
Do While Timer < Start + PauseTime
DoEvents ' 将控制让给其他程序。
Loop
End Sub
可在本画面中使用,语句为 Pause 时间值(例如:2) 单位是秒,不能改变单位
可问题是:此函数只能在本副画面中有用。若其他画面也需要用,要重新写一遍。怎么办?