进度条作控件代码

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 ;