半圆型的头部要一直保持原态可能要将进度条分为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调用的程序了吧。。。?
我的目的,,是想。前面的进度条运行完成后,,进度条关了,然后调用一个程序运行,,但是又要结束这个主程序。。。思路是否是对的。?
ttmv2019sx 发表于 2019-8-9 18:58
afan大神,请问一下,,以下代码是你写的,我增加了二句,来请教几个问题,,
#include
Dim $s = 1
...
是对的。
如果只创建了一个窗口,那么 GUIDelete 无需指定参数。其它的理解也是对的。
页:
1
[2]