关于图片代替进度条问题

ttmv2019sx

afan 发表于 2010-1-26 21:54
半圆型的头部要一直保持原态可能要将进度条分为3段比较好，如下将原图切割为3部分做的例子：

           ...

afan  大神，请问一下，，以下代码是你写的，我增加了二句，来请教几个问题，，
#include <WindowsConstants.au3>
Dim $s = 1
$Form1 = GUICreate("Form1", 614, 438, 192, 114, BitOR($WS_MINIMIZEBOX, $WS_SYSMENU, $WS_DLGFRAME, $WS_POPUP, $WS_GROUP, $WS_CLIPSIBLINGS))
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\背景.jpg", 0, 0, 613, 436)
$Picjd0 = GUICtrlCreatePic(@ScriptDir & "\进度0.jpg", 18, 131, 4, 6)
$Picjd1 = GUICtrlCreatePic(@ScriptDir & "\进度1.jpg", 18 + 4, 131, 1, 6)
$Picjd2 = GUICtrlCreatePic(@ScriptDir & "\进度2.jpg", 18 + 3, 131, 4, 6)
GUISetState(@SW_SHOW)

Sleep(500)
AdlibRegister("myadlib", 20)

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case -3
                        Exit
        EndSwitch
WEnd

Func myadlib()
        ControlMove("", "", $Picjd1, Default, Default, 1 + $s, 6)
        ControlMove("", "", $Picjd2, 18 + 3 + $s, 131)
        $s += 1
        If $s >= 188 Then
                GUIDelete()
                Run("c:\SoftTool_ScriptBuilder_Beta.exe")
               
               
                Exit
               
        EndIf
       
EndFunc   ;==>myadlib

--------------
GUIDelete()
                Run("c:\SoftTool_ScriptBuilder_Beta.exe")
这两句是我增加上去的。。。这个GUIDELETE(）与guidelete($form1)   效果是否一样，，gui窗口应该是真正的被删除了吗？？我是看到了窗口不见了。不清楚真真的效果是否是这样。，，还有。run运行的程序后，，我后面写的exit命令，哪请问这个是au3已经结束了吗，最后只是存在run调用的程序了吧。。。？


我的目的，，是想。前面的进度条运行完成后，，进度条关了，然后调用一个程序运行，，但是又要结束这个主程序。。。思路是否是对的。？

afan

ttmv2019sx 发表于 2019-8-9 18:58
afan  大神，请问一下，，以下代码是你写的，我增加了二句，来请教几个问题，，
#include
Dim $s = 1
...

是对的。
如果只创建了一个窗口，那么 GUIDelete 无需指定参数。其它的理解也是对的。