VB.NET progressbar 简单小程序

来源：百度文库编辑：神马文学网时间：2024/04/30 14:08:41

点击启动按钮时文本框内容自动显示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

VB.NET progressbar 简单小程序 1.4 第一个可视化vb.net程序 Vb.net 取程序运行的绝对路径 VB实用小程序123 VB.NET Sub过程简单分析 VB.NET一维数组简单介绍 VB.NET获取程序运行路径实现方法 demo：vb.net 打开记事本、beep、msgbox、取程序路径 .net安装部署中添加卸载程序简单方法 VB.NET 入门教程 VB.NET字符串函数 vb.net控件 VB开机运行程序 VB启动外部程序 VB自动更新程序 Vb自动升级程序 VB和VB.NET中的XML操作 asp.net常用函数(VB.net) asp.net常用函数(VB.net) VB.net 读写内存问题 2.4 vb.net编译项目 vb.net的ListBox控件 vb.net的Combobox控件轻松调整VB.NET控件