从品牌网站建设到网络营销策划,从策略到执行的一站式服务
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
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图