十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
用两种方法,一种是建立Timer,设置按下按钮后触发Timer计时,十秒后运行代码。
昌乐ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景,ssl证书未来市场广阔!成为创新互联公司的ssl证书销售渠道,可以享受市场价格4-6折优惠!如果有意向欢迎电话联系或者加微信:18982081108(备注:SSL证书合作)期待与您的合作!
第二种是使用API:Sleep,在声明之后只要在执行代码前加一句Sleep 10000就可以了
个人推荐第一种,因为第二种在VB单线程状态下容易造成无响应情况,但也可以通过一定方法解决。
可以利用Timer时钟控件实现,这样做的好处是无需等待,释放CPU时间去做别的事
Dim so As Integer
Dim A As Integer
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
A = 1
End Sub
Private Sub Timer1_Timer()
so = so + 1
If A = 0 Then
so = 0
Me.Caption = "正常运行"
Exit Sub
Else
Me.Caption = so
If so = 6 Then
so = 0
' 触发button事件
End If
End If
End Sub
Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
sleep(5000) '延时五秒
button里执行
sleep 5000 '等5秒
call xxxx '另外的过程代码
即可。
在窗体上画一个Timer控件,将其interval属性置为1000,即1000毫秒如果你希望倒计时30秒执行那就用这段代码Dim c as integer '全局变量private sub timer1_timer() c=c+1 if c=30 then '这里写你要执行的语句 timer1.enabled=false end ifend sub 如果想没10秒执行一次,那就这样写Dim c as integer '全局变量private sub timer1_timer()c=c+1if c mod 10 =0 then '这里写你要执行的语句end ifend sub 就可以了