vb用timer倒计时到0程序停止

在 VB 中使用 Timer 控件来实现倒计时功能很简单，你可以按照以下步骤进行编写：

添加 Timer 控件到窗体中，设置它的 Interval 属性为 1000（表示以毫秒为单位的计时器间隔）。

在窗体的 Load 事件中初始化倒计时的初始值：

Private Sub Form_Load()

Label1Caption = "10"

End Sub

这里将倒计时的初始值设置为 10 秒。

在 Timer 控件的 Tick 事件中处理倒计时逻辑：

Private Sub Timer1_Timer()

Dim count As Integer

count = CInt(Label1Caption) - 1 ' 计时器减一

If count >= 0 Then

Label1Caption = CStr(count) ' 更新标签的显示文本

Else

Timer1Enabled = False ' 停止计时器

Command1Enabled = False ' 禁用按钮

MsgBox "时间到了！", vbInformation ' d出消息框提示

End If

End Sub

在 Tick 事件中，我们首先将标签的显示文本减一，然后判断计时器是否已经减到了 0。如果还没到 0，就更新标签的显示文本，继续等待下一次 Tick 事件；如果已经到了 0，就停止计时器、禁用按钮，并d出一个消息框提示计时结束。

在按钮的 Click 事件中启动计时器：

Private Sub Command1_Click()

Timer1Enabled = True

Command1Enabled = False

End Sub

是timer事件：在一个timer控件的预定时间间隔过去之后发生。该间隔的频率贮存于该控件的interval属性中，以0001秒为单位指定时间的长度。 控件的默认事件，一般建立控件之后直接双击该控件，在代码中就可得到。

Sorry呀

我冇讲清楚

我指既计时器系倒数计时- - 非常抱歉 可以再补充说明一下吗

更新2:

即系到数到0就出msgbox~ 因为如果textbox-1会减到负数 多谢赐教!

Double click个timer

会出 Private Sub Timer1_Timer() End Sub o系中间加 Text1Text = Text1Text + 1 即 Private Sub Timer1_Timer() Text1Text = Text1Text + 1 End Sub 再play

禁mand1 button

就会见个text每075秒加一 2010-04-08 22:07:40 补充： Private Sub Timer1_Timer() Text1Text = Text1Text - 1 if val(Text1Text)<=0 then msgbox("玩完啦") timer1enabled = false end if End Sub

你都冇 Timer event，Textbox 点会郁﹖加个 Timer event 就掂。 Private Sub Timer1_Timer() Text1Text = Second(Now()) End Sub

以上就是关于vb用timer倒计时到0程序停止全部的内容，包括:vb用timer倒计时到0程序停止、vb程序中timer控件默认的事件是、VB6.0 timer 计时器 (急&15点)等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！