发布时间 : 星期二 文章vb6控件 ProgressBar更新完毕开始阅读2fa71a81b9d528ea81c779f7
ProgressBar-进度条
ProgressBar控件通过从左到右用一些方块填充矩形来表示一个较长操作的进度。 语法
ProgressBar
说明
ProgressBar控件监视操作完成的进度。
ProgressBar控件有一个行程和一个当前位置。行程代表该操作的整个持续时间。当前位置则代表应用程序在完成该操作过程时的进度。Max 和 Min 属性设置了行程的界限。Value 属性则指明了在行程范围内的当前位置。由于使用方块来填充控件，因此所填充的数量只能是接近于 Value 属性的当前设置值。基于控件的大小，Value 属性决定何时显示下一个方块。
ProgressBar控件的 Height 属性和 Width 属性决定所填充控件的方块的数量和大小。方块数量越多，控件就越能精确地描述操作进度。为了增加显示方块的数量，需要减少控件的 Height 或者增加其 Width。BorderStyle属性的设置值同样影响方块的数量和大小。为了适应边框要求，方块的大小要更小一点。
可以用ProgressBar控件的 Align 属性把它自动定位在窗体的顶部或底部。
提示缩小方块的大小直到其所表示的进度增加量与实际进度值达到最接近的匹配程度，应使ProgressBar控件的宽度至少是其长度的 13 倍。
下面的示例说明如何用一个名为 ProgressBar1 的ProgressBar控件，来表示对一个大数组冗长的操作进度。把一个CommandButton控件和一个ProgressBar控件放在同一窗体里。示例代码中的 Align 属性把ProgressBar控件定位在沿着窗体的底部。该ProgressBar不显示任何文本。
Private Sub Command1_Click() Dim Counter As Integer
Dim Workarea(250) As String
ProgressBar1.Min = LBound(Workarea) ProgressBar1.Max = UBound(Workarea) ProgressBar1.Visible = True '设置进度的值为 Min。
ProgressBar1.Value = ProgressBar1.Min
'在整个数组中循环。
For Counter = LBound(Workarea) To UBound(Workarea)
'设置数组中每项的初始值。
Workarea(Counter) = \ ProgressBar1.Value = Counter Next Counter
ProgressBar1.Visible = False
ProgressBar1.Value = ProgressBar1.Min End Sub
Private Sub Form_Load()
ProgressBar1.Align = vbAlignBottom ProgressBar1.Visible = False
Command1.Caption = \ End Sub
在text上随便输入一个数字窗体上安插一个进度条控件当点击command1以后 text里面的数字开始每一秒减一进度条开始增加，当数字为0 进度条为百分之100.
安插一个command2控件当程序禁止的时候手动点击command2 数字减一进度条移动，当点击到数字为0 进度条为百分之100.
添加控件textbox一个,progressbar一个,按钮2个 ,timer一个,复制以下代码即可:
Option Explicit Dim n As Integer
Private Sub Command1_Click() Timer1.Enabled = True Timer1.Interval = 1000 End Sub
Private Sub Command2_Click() If Val(Text1) <= 0 Then Exit Sub Text1 = Val(Text1) - 1
ProgressBar1.Value = n - Val(Text1)
End Sub
Private Sub Text1_LostFocus() n = Val(Text1)
If n <= 0 Then MsgBox \不能为0\ProgressBar1.Max = Val(Text1) End Sub
Private Sub Timer1_Timer() Text1.Text = Val(Text1) - 1
ProgressBar1.Value = n - Val(Text1)
If Val(Text1) <= 0 Then Timer1.Enabled = False End Sub Val 函数
返回包含于字符串内的数字，字符串中是一个适当类型的数值。 语法
Val(string)
必要的 string 参数可以是任何有效的字符串表达式. 说明
Val 函数，在它不能识别为数字的第一个字符上，停止读入字符串。那些被认为是数值的一部分的符号和字符，例如美圆号与逗号，都不能被识别。但是函数可以识别进位制符号&O（八进制）和&H（十六进制）。空白、制表符和换行符都从参数中被去掉。
下面的返回值为 1615198：
Val(\ 1615 198th Street N.E.\
在下面的代码中，Val 为所示的十六进制数值返回十进制数值 -1。
Val(\
注意 Val 函数只会将句点（.）当成一个可用的小数点分隔符。当使用不同的小数点分隔符时，如在国际版应用程序中，代之以CDbl来把字符串转换为数字。 '===================================== Val 函数示例
本示例使用 Val 函数返回字符串中所含的数值。
Dim MyValue
MyValue = Val(\ ' 返回 2457。 MyValue = Val(\ ' 返回 2457。 MyValue = Val(\ ' 返回 24。