progressbar（VB progressbar 问题）
本文目录
VB progressbar 问题
progressbar重要属性如下：
min:进度条的起始值。也就是取小值，如1。
max:进度条的终止值。也就是最大值，如100
value:任务进展到哪个数，即进度条的填充值。
visible：决定进度条是否可见。
value使用在任务的变化处，以不断改变其值，这样，就能直观地显示任务进度。
b = Len(Text1.Text) 确定最大值
ProgressBar1.Visible = True
ProgressBar1.Min = 1
ProgressBar1.Max = b
ProgressBar1.Value = 1 初始化
……
For c = 1 To b
d = Mid(Text1.Text, c, 1)
Print #2, Asc(d) Xor x
ProgressBar1.Value = c 跟踪进度
Next c
ProgressBar1.Value = 1
ProgressBar1.Visible = False 任务结束
progressbar控件的align属性：指定进度条在容器中的位置，0为任意，1为顶部，2为底部，3为左部，4为右部。
progressbar控件的orientation属性：进度条以水平放置（0）或垂直放置（1）。
progressbar控件的scrolling属性：填充方式为虚线填充（0）或实线填充（1）。
你就在开始时设置值为0，每一个删除或读入后改变一次值就可以了
progressBar控件基本用法
private sub form_load()
dim a
a=0
timer1.interval=20(或者改成你需要的数字)
progressbar1.min=0(或者改成你需要的数字)
progressbar1.max=100(或者改成你需要的数字)
end sub
private sub timer1_timer()
a=a+1
progressbar1.value=a
if progressbar1.value=progressbar1.max(或者改成你需要的数字) then
timer1.enabled=false
end if
end sub
就这么简单
更多文章：
2026年10月15日 07:30
prison break（越狱（prison break）到底是在讲个什么）
2026年10月15日 06:50
c程序设计第五版教学视频（求C程序设计（第五版）谭浩强教材源代码、视频课件等电子版资料！谢谢大家！）
2026年10月15日 06:40
2026年10月15日 06:20
十六进制转二进制表（16进制转为2进制、8进制、10进制的公式）
2026年10月15日 06:10
programdata是什么文件（win7下ProgramData 文件夹是什么，里面的内容可以删吗）
2026年10月15日 04:50
502错误的网关（“502错误网关，服务器作为网关或代理，从上游服务器收到了无效的响应”怎么处理谁能帮我）
2026年10月15日 04:10
2026年10月15日 04:00
2026年10月15日 03:40
2026年10月15日 02:40
