yinbinly 发表于 2013-8-14 14:36:51

进度条循环

如何让这段进度条循环显示，而不是0-100之后结束ProgressOn("shipin","anzhuang",'',@DesktopWidth/2-150,@DesktopHeight/2-150,1)
For $i = 10 To 100 Step 10
    Sleep(1000)
    ProgressSet( $i, $i & " %")
Next
ProgressSet(100 , "完成", "Complete")
Sleep(500)
ProgressOff()


Sleep(5000)

user3000 发表于 2013-8-14 17:53:56

回复 1# yinbinly
你这高级会员的水分似乎很大很大.Local $htime = TimerInit()
Local $i = 0
ProgressOn("shipin","anzhuang",'',@DesktopWidth/2-150,@DesktopHeight/2-150,1)
While True
        $i += 10
    ProgressSet( $i, $i & " %")
        If $i = 100 Then $i = 0
        If TimerDiff($htime)/1000 >= 5 Then ExitLoop
        Sleep(100)
WEnd
ProgressSet(100 , "完成", "Complete")
ProgressOff()

xz00311 发表于 2013-8-16 09:48:06

第5次后看不到100，60后就退程序了

gczxhzb 发表于 2013-8-16 15:52:24

这个连我都会，同意user3000的质疑！
页: [1]
查看完整版本: 进度条循环