ssjoe 发表于 2011-2-7 01:22:17

请教如何在循环前后执行文件！

请教一下大虾们，如何在进度条一直滚动当中前后执行文件，执行文件的同时，进度条还要一直在滚动，请问这样能否做到？

这两个用那个都可以，谢谢了！#include <GuiConstants.au3>
Opt("GUIOnEventMode", 1)
dim $start=0
    Global Const $PrCopyGui = GUICreate("测试", 220, 40)
    $Progress = GUICtrlCreateProgress(6, 10, 207, 20)
    GUISetState(@SW_SHOW)
    GUISetOnEvent($GUI_EVENT_CLOSE, "gui")
While 1
If $start >= 0 Then
        GUICtrlSetData($Progress, $start)
        Sleep(50)
        $start+=1
      If $start >= 100 Then $start = 0
Endif
WEnd

Func gui()
Switch @GUI_CtrlId
Case $GUI_EVENT_CLOSE
   Exit
EndSwitch
EndFunc   ;==>gui第二段：ProgressOn("进度条", "Increments every second", "0 %")
For $i = 1 to 100 step 1
    sleep(100)
    ProgressSet( $i, $i & " %")
Next
ProgressSet(100 , "完成", "Complete")
sleep(500)
ProgressOff()

12250279 发表于 2011-2-7 02:31:19

等待高手来吧,新手我看着.

ssjoe 发表于 2011-2-7 11:50:52

高人们，请问有没办法解决这个问题呢？

auto 发表于 2011-2-7 12:30:41

进度做成一个过程或函数，中间的SLEEP不要，执行过程调用就行了

ssjoe 发表于 2011-2-7 13:11:56

这样是可以，但是没有一种一直滚动的感觉，我是想在一直滚动的时候前后执行文件，但我试了很多方法也无法现实，所以请教一下论坛的强人！
页: [1]
查看完整版本: 请教如何在循环前后执行文件！