进度条作控件代码
mybox = box();
completeredraw();
rollout progressTest "Progress Test"
(
progressbar doit_prog color:black pos:[15,20];
label lab1 "www!"
local temp = 0 ;
on doit_prog clicked arg do
(
doit_prog.value = arg;
if arg > temp then
(
mybox.pos.x += (arg - temp);
format "%\n" mybox.pos.x;
temp = doit_prog.value;
)
else
(
mybox.pos.x -= (temp - arg);
format "%\n" mybox.pos.x;
temp = doit_prog.value;
);
);
);
createDialog progressTest 200 60 ;