恭喜,你发布的帖子
发布于 2021-09-23 17:03:23
13楼
Option Explicit
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Sub CommandButton1_Click()
Dim Savetime As Double
Savetime = timeGetTime '记下开始时的时间
While timeGetTime < Savetime + 3000 '循环等待毫秒
DoEvents '转让控制权,以便让操作系统处理其它的事件
Wend
openpicture "AA3" '需要处理的事件
End Sub
请填写推广理由:
分享
只看
楼主