vb中关于进度条progressbar的问题
发布网友
发布时间：2022-04-22 04:02
共1个回答
热心网友
时间：2023-11-01 08:57
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，每一个删除或读入后改变一次值就可以了
