窗口Progress的Script: long bet bet=(max - min)/10 if min$#@62;max then return end if if pos=max then r_2.width=r_1.width b=1 return end if if pos$#@62;=min and pos$#@60;max then if pos$#@62;=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 i uo_1.min=0 uo_1.max=10000 for i=1 to 10000 uo_1.pos=i uo_1.triggerevent("progress") next 其中,uo_1为进度条用户对象。