|
楼主 |
发表于 2012-2-7 12:02:38
|
显示全部楼层
我花了三天时间只做过这样一个按钮程序,而且奇怪的是当我点运行按钮后第一个窗口没有关闭,
#include <GUIConstantsEx.au3>
;设置界面大小及按钮和说明文字
GUICreate("程序接口", 420, 200)
$Label1 = GUICtrlCreateLabel("程序接口", 200, 18, 220, 40)
GUICtrlSetFont(-1, 14, 400, 1, "黑体")
$Label2 = GUICtrlCreateLabel(" 程序接口一", 180, 50, 220, 40)
GUICtrlSetFont(-1, 10, 400, 1, "黑体")
$Label3 = GUICtrlCreateLabel(" 程序接口二.", 180, 98, 220, 40)
GUICtrlSetFont(-1, 10, 400, 1, "黑体")
$Label4 = GUICtrlCreateLabel(" 本程序需要外连BAT运行", 220, 138, 240, 40)
GUICtrlSetFont(-1, 10, 400, 1, "黑体")
$Label5 = GUICtrlCreateLabel(" 于2012年1月28号", 220, 158, 240, 40)
GUICtrlSetFont(-1, 10, 400, 1, "黑体")
GUISetState(@SW_SHOW)
;设置按钮名字,位置及大小
$btn1 = GUICtrlCreateButton("程序接口一", 20, 10, 150, 45)
GUICtrlSetState(-1, $GUI_FOCUS);设置焦点
$btn2 = GUICtrlCreateButton("退出程序", 20, 70, 150, 45)
$btn3 = GUICtrlCreateButton("程序接口二", 20, 130, 150, 45)
GUISetState()
;确定并调用用户按下的按钮
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE;点 X 关闭窗口时退出,否则会退不出
Exit;退出
Case $btn3
#include <GUIConstantsEx.au3>
GUICreate("程序接口一", 420, 200)
$Label1 = GUICtrlCreateLabel("程序接口二", 200, 18, 220, 40)
GUICtrlSetFont(-1, 14, 400, 1, "黑体")
$Label2 = GUICtrlCreateLabel(" 程序接口二", 180, 50, 220, 40)
GUICtrlSetFont(-1, 10, 400, 1, "黑体")
$Label4 = GUICtrlCreateLabel(" 本程序外连BAT二", 220, 138, 240, 40)
GUICtrlSetFont(-1, 10, 400, 1, "黑体")
$Label5 = GUICtrlCreateLabel(" 于2012年1月28号", 220, 158, 240, 40)
$Button1 = GUICtrlCreateButton("程序接口二", 20, 10, 150, 45)
GUICtrlSetState(-1, $GUI_FOCUS);设置焦点
$Button2 = GUICtrlCreateButton("退出程序", 20, 70, 150, 45);如这后面再加一个上一步按钮,怎么退到上一窗口
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
Exit;调用程序后马上退出
Case $Button1
Run('auyo2.bat')
Exit;调用程序后马上退出
EndSwitch
WEnd
Exit;调用程序后马上退出
Case $btn2
Exit;退出
Case $btn1
#include <GUIConstantsEx.au3>
GUICreate("程序接口一", 420, 200)
$Label1 = GUICtrlCreateLabel("程序接口一", 200, 18, 220, 40)
GUICtrlSetFont(-1, 14, 400, 1, "黑体")
$Label2 = GUICtrlCreateLabel("程序接口一", 180, 50, 220, 40)
GUICtrlSetFont(-1, 10, 400, 1, "黑体")
$Label4 = GUICtrlCreateLabel(" 本程序需外连BAT一", 220, 138, 240, 40)
GUICtrlSetFont(-1, 10, 400, 1, "黑体")
$Label5 = GUICtrlCreateLabel(" 于2012年1月28号", 220, 158, 240, 40)
$Button1 = GUICtrlCreateButton("程序接口一", 20, 10, 150, 45)
GUICtrlSetState(-1, $GUI_FOCUS);设置焦点
$Button2 = GUICtrlCreateButton("退出程序", 20, 70, 150, 45)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
Exit;调用程序后马上退出
Case $Button1
Run('auto1.bat')
Exit;调用程序后马上退出
EndSwitch
WEnd
Exit;调用程序后马上退出
EndSwitch
WEnd |
|