VB.NET progressbar 简单小程序

点击启动按钮时文本框内容自动显示100次，到了100次立即清零重新开始，如果选中复选框按钮，则进度条进度会跟随文本框的内容变。

点击重做按钮时，所有的都停止。代码如下：

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.MaxLength = 100 '文本框最大长度为100
        TextBox1.ReadOnly = True '文本框在运行时只读，不可写入
        TextBox1.Multiline = True '文本框内容可在多行显示
        Timer1.Interval = 10 '间隔10ms显示“8”
        ' Me.AcceptButton = Button1  '按键盘上回车键同点击Button1 按钮有相同的效果
        ' Me.CancelButton = Button2  ‘按键盘上esc键同点击Button2 按钮效果相同
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button1.Enabled = False
        Timer1.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
        Button1.Enabled = True
        TextBox1.Text = ""
        Label1.Text = "当期字符数=" & TextBox1.Text
        CheckBox1.Checked = False
        ProgressBar1.Value = 0
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        TextBox1.Text = TextBox1.Text & "8"
        Label1.Text = "当前字符数=" & TextBox1.TextLength '标签内容动态显示文本框长度
        If TextBox1.TextLength = TextBox1.MaxLength Then '如果文本框长度等于最大长度则文本框清零重新计数
            TextBox1.Text = ""
        End If
        If CheckBox1.Checked = True Then
            ProgressBar1.Value = TextBox1.TextLength '如果选中了复选框，进度条跟随文本框长度一起变化
        End If
    End Sub
End Class