|
本帖最后由 aux649350702 于 2011-11-17 21:14 编辑
各位高手,本人用AU3设计了个窗口,在Windows 封装部署环境下不能正常运行,求高手解决。
程序源代码:
#include <GUIConstantsEx.au3>
Opt("GUIOnEventMode", 1)
Local $msg,$time
$time =300
$Form1 = GUICreate("xx公司信息部装机专用系统", 400, 450) ; 创建一个居中显示的 GUI 窗口
GUICtrlSetFont ($Form1,10)
GUICtrlSetColor($Form1,0xee00ee)
$Pic1 = GUICtrlCreatePic(".\pic\syfx.jpg",-1,-1,400,380)
$Label1 =GUICtrlCreateLabel("正在为部署系统而初始化设置,请稍等..."&$time&"秒",20,385,400,20)
$Label2 =GUICtrlCreateLabel("设计制作:xxx",280,430,120,20)
$progressbar1 = GUICtrlCreateProgress(0, 405, 400, 20)
GUICtrlSetFont ($Label1,11)
GUICtrlSetColor($Label1,0x0000ff)
GUICtrlSetFont ($Label2,9)
GUICtrlSetColor($Label2,0x0000ff)
GUICtrlSetColor($progressbar1,0x0000ff)
GUISetOnEvent(-3, "GuiEvent")
GUISetState(@SW_SHOW) ; 显示一个空白的窗口
WinSetState ($Form1, "", @SW_DISABLE)
Local $i = 300,$j=0
While $i
$i -= 1
$j=300-$i
GUICtrlSetData($Label1," 正在为部署系统而初始化设置,请稍等... "&$i&"秒")
GUICtrlSetData($progressbar1, Int($j/3))
Sleep(1000)
WEnd
Func GuiEvent()
Exit
EndFunc |
|