VB实现计时器

最新推荐文章于 2021-01-28 15:43:54 发布

a181139079

最新推荐文章于 2021-01-28 15:43:54 发布

阅读量988

点赞数

文章标签： vb button timer class c string

本文链接：https://blog.csdn.net/a181139079/article/details/6071897

版权

这篇博客介绍了如何在VB中实现一个计时器功能。通过点击按钮，可以开始、暂停和重置计时器，计时器以小时:分钟:秒的格式显示在标签上，并在每次间隔更新时间。

摘要由CSDN通过智能技术生成

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Label1.Text = "00:00:00"
If Button1.Text = "开始" Then

            Button1.Text = "暂停"
            Timer1.Enabled = True
        ElseIf Button1.Text = "暂停" Then
            Button1.Text = "继续"
            Timer1.Enabled = False
        Else
            Button1.Text = "暂停"
            Timer1.Enabled = True
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
        Label1.Text = "00:00:00"
        Button1.Text = "开始"
    End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.Eve