|
发表于 2015-6-27 10:49:11
|
显示全部楼层
回复 10# bhffhzh
没时间去搜索?
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
Global $PBS_SMOOTH, $Progressa1, $Form1_2
GUI_D1()
While 1
Sleep(100)
WEnd
Func GUI_D1()
$Form1_2 = GUICreate('无边框自绘图', 400, 106, -1, -1, BitOR($WS_SYSMENU, $WS_POPUP, $DS_MODALFRAME))
$Label = GUICtrlCreateLabel('×', 385, -2, 20, 20)
;GUICtrlSetBkColor(-1, 0x0000FF)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetFont(-1, 12, 400, 0, 'Verdana')
GUICtrlSetCursor(-1, "SIZEALL");鼠标指针
GUICtrlSetOnEvent($Label, "Form1Close")
$ico1 = GUICtrlCreateIcon("", 2, 10, 38, 48, 48)
GUICtrlSetImage($ico1, @ScriptDir & "\E01.ico")
$Label0 = GUICtrlCreateLabel("正在安装 ,请耐心等待------", 65, 20, 300, 40)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetFont(-1, 12, 600, 0, 'Verdana')
$Progressa1 = GUICtrlCreateProgress(65, 75, 300, 14, $PBS_SMOOTH)
GUISetState(@SW_SHOW, $Form1_2)
GUICtrlSetData($Progressa1, "35")
EndFunc ;==>GUI_D1
Func Form1Close()
Exit
EndFunc ;==>Form1Close |
|