vb.net入门——ProgressBar 控件的使用


ProgressBar 控件又称进度条控件,它是一个应用很广的控件,可以在需要执行较长的程序过程中使用它来指示当前任务执行的进度,如果这样的过程中没有视觉提示,用户可能会认为应用程序不响应,通过在应用程序中使用 ProgressBar,可以告诉用户应用程序正在执行任务且仍在响应。

在vb.net工具箱中 ProgressBar 控件图标如下图一所示:

ProgressBar 控件常用属性有:Maximum、Minimum、Step、Value;常用的方法有:PerformStep、Increment。

Maximum、Minimum 属性:指ProgressBar 控件可变化的最大和最小值。

Step 属性:ProgressBar 控件调用 PerformStep 方法时候增长的步长。

Value 属性:ProgressBar 控件当前的位置值。

PerformStep 方法:按照 Step 属性的数量增加进度栏的当前位置。

Increment 方法:按指定的数量增加进度栏的当前位置。

下面我们就用示例来演示它的属性和方法。

在窗体上放置一个 ProgressBar 控件和三个 Button 控件,布局如下图二所示:

在“循环增加1”的按钮Click事件中添加如下代码:

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

Dim i As Integer = 0

ProgressBar1.Value = 0

ProgressBar1.Minimum = 0

ProgressBar1.Maximum = 100

For i = 1 To 100

ProgressBar1.Value += 1

System.Threading.Thread.Sleep(100)

Next

End Sub

在“按步长增加”按钮Click事件中添加如下代码:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim i As Integer = 0

If ProgressBar1.Value >= ProgressBar1.Maximum Then

ProgressBar1.Value = 0

End If

ProgressBar1.Step = 15

ProgressBar1.Minimum = 0

ProgressBar1.Maximum = 100

ProgressBar1.PerformStep()

End Sub

在“按输入值增加”按钮Click事件中添加如下代码: 

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

ProgressBar1.Minimum = 0

ProgressBar1.Maximum = 100

Dim i As Integer = CInt(InputBox("输入要增加的量", , "15"))

ProgressBar1.Increment(i)

End Sub

按F5运行,就可以演示 ProgressBar 控件增加值的三种方法,注意使用PerformStep、Increment这两种方法的时候并不会因为Value的值超过Maximum 而引发错误。

 

本文作者:



相关阅读:
深入学习Javascript函数
SQL Server 2005如何起用“xp_cmdshell”
F#教程:Pattern Match
关于JSP写文件的补充
打造安全主机 加固脆弱的IIS服务
Javascript - 全面理解 caller,callee,call,apply
FileUpload 控件 禁止手动输入或粘贴的实现代码
如何在PHP中定义一个类
在JavaScript中获取请求的URL参数[正则]
如何为Wordpress页面使用另一个样式表
PHP 程序授权验证开发思路
Zend实用指南连载二:性能优化
javascript 文字上下间隔滚动的代码 符合WEB标准 脚本之家修正版
深入讲解JSP 2.0下的动态内容缓存技术
快速导航

Copyright © 2016 phpStudy |