pb9,怎么样使用水平进度条
我想到达效果,处理数据的时候,就像在操作系统拷贝文件那种进程.
我应该怎么实现.请大家帮助一下,最好有代码,谢谢大家了
简单的也可直接用ole，比如类似的‘微软progressbar’控件。
赋ole_1.object.max、value等值控制
找找看，
也可以做用户定义对象，平时如控件般调用。那种好，看着办。
新建一个用户对象UO_PROGRESSBAR，加上两个长方形(rectangle)控件r_1和r_2，同时加上两条线(line)控件ln_1和ln_2。线用于增加r_1的立体效果，r_2颜色为兰色，用于显示进度。R_1属性为：
X=5
y=4
width=1408
height=64
Visible=true
LineColor=33554431
FillColor=33554431
FillPattern=solid!
LineStyle=continuous!
LineThickness=12
R_2属性为：
X=5
y=4
width=41
height=60
Visible=true
LineColor=16777215
FillColor=16711680
FillPattern=vertical!
LineStyle=continuous!
LineThickness=12
先定义窗口的实例变量(Instance Variables)：
private:int thick; //进度条与外框的距离
int bpublic:long max,min; //max,min
long pos; //poslong color;
窗口Constructor的Script：
long w,h
thick=5
b=1
w=this.width
h=this.height
r_1.x=thick
r_1.y=thick
r_2.x=thick
r_2.y=thick
r_1.width=w
r_1.height=h
r_2.height=hln_1.begin
x=thickln_1.begin
y=thickln_1.end
x=w - 2*thickl n_1.end
y=thickln_2.begin
x=thickln_2.begin
y=thickln_2.end
x=thickln_2.end
y=h - 2*thick
窗口Progress的Script：
long bet
bet=(max - min)/10
if min>max then
return
end if
if pos=max then
r_2.width=r_1.width
b=1return
end if
if pos>=min and pos<max
then
if pos>=b*bet then
r_2.resize(r_1.width*(abs((pos - min)/(max - min))),r_2.height)
b=b+1
end if
end if
以上便完成了用户对象，以后只需调用即可，比如：
int iuo_1.min=0
uo_1.max=10000
for i=1 to 10000
uo_1.pos=iuo_1.triggerevent("progress")
next
其中，uo_1为进度条用户对象。
相关：
1、创建一个应用程序（working－out)。
2、创建一个窗口（w_01）。
3、在应用程序的Open事件中最未尾Open()函数改为Open(w_01)。
4、编辑w_01窗口。
5、添加三个控件在 w_01窗口上,即两个Rectangle ：r_1，r_2 和一个commandButton ：cb_1。
6、将 r_1的Fill Color:设为White 将Line Color:设为Black，将X设为243，Y设为645，Width设为1541，Height设为113。按Apply 或 OK即可。
7、将 r_2的Fill Color:设为Blue 将Line Color:设为White，将X设为261，Y设为661，Width设为5，Height设为85。按“Apply” 或 “OK”即可。
8、在cb_1的 clicked事件中添写：
r_1.visible= true
r_2.visible = true
int lock
lock=0
do while lock <100
lock = lock ＋ 1
r_2.width=lock＊15
loop
9、按 “Run” 键运行此程序，就会看到一条从头走到尾的像安装Win98一样的指未灯出现在你的程序窗口上。
注＊ 此程序只是作为一个指示灯，那什么时候指示灯该向前走，什么时候指示灯该停，只要想办法用变量给Lock赋值就可以了。
[此贴子已经被作者于2006-7-14 15:52:59编辑过]
