关于Vb 如何设定倒计时来定时执行某项事件

发布网友发布时间：2024-10-22 15:09

共1个回答

热心网友时间：2024-10-25 17:17

刚刚我也遇到这问题，
首先定义一个Timer如：
Private WithEvents CDTimer As New System.Windows.Forms.Timer
Dim interval_time as integer 10
然后创建一个方法
Private Sub CDTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CDTimer.Tick
interval_time = interval_time - 1
if interval_time < 0 then
CDtimer.Enable = false
messagebox.show("10秒过了")
End if
End Sub

最后调用以上方法：
CDtime.interval = 1000 ‘’单位微秒
CDtime.Enable = true '触发计时器

以上结果就是当触发后，每一秒调用一次该方法，而该方法调用一次就减1，最终10秒后触发提示框，而.enable = false就结束该计时器。

用法大意如此，你自己修改吧。
希望对你有用