vb计时器停止和继续程序

你只需要放一知宽个按钮,一个文本框,一个定时器即可,调整好控件的大小的位置,其它的由程序自动完成设置。程序如下(用一个按樱肢钮实现和继续脊猛世): Dim A As DateDim N As DatePrivate Sub Command1_Click() If Command1.Caption = "开始" Or Command1.Caption = "继续" Then A = Now() + CDate(Text1.Text) Timer1.Enabled = True Command1.Caption = "暂停" ElseIf Command1.Caption = "暂停" Then

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

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

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

Private Sub Form_Load()

Label1.Caption = "10"

End Sub

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

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

Private Sub Timer1_Timer()

Dim count As Integer

count = CInt(Label1.Caption) - 1 ' 计时器减一

If count >= 0 Then

Label1.Caption = CStr(count) ' 更新标签的显示文本

Else

Timer1.Enabled = False ' 停止计时器

Command1.Enabled = False ' 禁用按钮

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

End If

End Sub

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

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

Private Sub Command1_Click()

Timer1.Enabled = True

Command1.Enabled = False

End Sub

---