VB.NET progressbar 简单小程序.doc

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 = T