试试这个..........
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
HotKeySet('{F9}','_HIShow')
Dim $H = True
$Form1 = GUICreate("窗口显示/隐藏测试 @ ToMan", 334, 207, 282, 175)
$Label1 = GUICtrlCreateLabel("窗口显示/隐藏测试 F9", 32, 56, 256, 36)
GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
While 1
$Msg = GUIGetMsg()
Select
Case $Msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd
Func _HIShow();;显示隐藏窗口
If $H = True Then
GUISetState(@SW_HIDE,$Form1)
$H = False
Else
GUISetState(@SW_SHOW,$Form1)
$H = True
EndIf
EndFunc
[ 本帖最后由 AUFS 于 2008-8-25 00:59 编辑 ] |