vb用一个按钮如何做出停止和暂停

你运行过程中应该用到了Timer1控制地鼠出现的时间你暂停时把Timer1的Enabled 为 False就可以了。

暂停代码为：

Timer1Enabled = False

继续运行代码为：

Timer1Enabled = True

停止你只需要把开始运行的各种函数值重新赋予初始值就可以了。

Private

Sub

Command1_Click()

Timer1Enabled

=

Not

Timer1Enabled

'点击一次是暂停，再点击是启动

End

Sub

Private

Sub

Timer1_Timer()

Static

Count

As

Integer

'可以用static保存值

Count

=

Count

+

1

MeCls:

MePrint

Count

End

Sub

这里提供一个思路，可以这样设计。

通用位置声明一个布尔型变量例如a，每次运行刷屏程序前先检查变量a是否为”真“ 如果是才运行刷屏程序，而a的值在真/假之间循环转换，转换间隔由另一个定时器决定（也可以通过一个累加器来控制，例如每秒累加一次，累加若干次后改变a的值到另一种状态同时累加归零开始下一循环），这样就可以实现暂停一段时间了。

你只需要放一个按钮，一个文本框，一个定时器即可，调整好控件的大小的位置，其它的由程序自动完成设置。程序如下（用一个按钮实现和继续）：

Dim A As Date

Dim N As Date

Private Sub Command1_Click()

    If Command1Caption = "开始" Or Command1Caption = "继续" Then

        A = Now() + CDate(Text1Text)

        Timer1Enabled = True

        Command1Caption = "暂停"

    ElseIf Command1Caption = "暂停" Then

        Timer1Enabled = False

        Command1Caption = "继续"

    End If

End Sub

Private Sub Form_Load()

    Text1Text = "0:10:00"

    Timer1Interval = 100

    Timer1Enabled = False

    Command1Caption = "开始"

End Sub

Private Sub Timer1_Timer()

    If Text1 = "0:00:00" Then

        Timer1Enabled = False

        Text1Text = "时间到！"

        Command1Caption = "开始"

    Else

        Text1 = CDate(A - Now)

    End If

End Sub

已经运行过。

以上就是关于vb用一个按钮如何做出停止和暂停全部的内容，包括:vb用一个按钮如何做出停止和暂停、vb如何暂停timer、VB中如何让程序暂停一段时间等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！