重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
button里执行
创新互联公司主营东乌珠穆沁网站建设的网络公司,主营网站建设方案,成都APP应用开发,东乌珠穆沁h5微信小程序开发搭建,东乌珠穆沁网站营销推广欢迎东乌珠穆沁等地区企业咨询
sleep 5000 '等5秒
call xxxx '另外的过程代码
即可。
可以利用Timer时钟控件实现,这样做的好处是无需等待,释放CPU时间去做别的事
如果在这10秒的时间里,你的程序什么也不用做,只是等待,那么可以这样:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Sleep 10000
MsgBox "Hello!"
End Sub
但是如果你的程序在这10秒的时间里仍然要做其他事情,比如点击其他按钮等等,那么就应该这样:
Private Sub Command1_Click()
Timer1.Interval = 10000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
MsgBox "Hello!"
Timer1.Enabled = False
End Sub
再次强调,第一种方法中,在你点击按钮后的10秒时间里,你的程序会暂时处于无反应状态。
Private Sub Button1_Click()
MsgBox("A")
Threading.Thread.Sleep(3000)
MsgBox("B")
End Sub
如果暂停的3秒有影响,就给他开一个线程:
Private Sub Button1_Click()
Dim th As New Threading.Thread(AddressOf MsgBoxProc)
th.Start()
End Sub
Private Sub MsgBoxProc()
MsgBox("A")
Threading.Thread.Sleep(3000)
MsgBox("B")
End Sub