qq82015930 发表于 2010-9-22 22:28:49

【已解决】热键启动GUI问题.

本帖最后由 qq82015930 于 2010-9-22 23:30 编辑

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Global $Paused
Dim $Form1
Dim $ok
HotKeySet("{F8}", "_123")
HotKeySet("{PAUSE}", "_tc")   
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        _yc()

        EndSwitch
WEnd

Func _123()
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 205, 99, 192, 114)
$Label1 = GUICtrlCreateLabel("号码：", 8, 16, 84, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("500227198404211812", 80, 16, 121, 21)
$Button1 = GUICtrlCreateButton("OK", 8, 56, 75, 25)
$Button2 = GUICtrlCreateButton("KO", 112, 56, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $Button1

                     IF $ok = 0 Then
                      MsgBox(48, "提示", "没有发现！", 10)
               Else
                   _12()
                     _yc()       
               EndIf
                Case $Button2
                        _yc()                       
                Case $GUI_EVENT_CLOSE
                        _yc()

        EndSwitch
WEnd

EndFunc


Func _12()
;;;;
EndFunc

Func _yc()
        GUISetState(@SW_HIDE,$Form1);隐藏 窗口
EndFunc

Func _tc()
        Exit
EndFunc





;F8启动GUI安几次就会启动几个GUI出来如何让它只出现第一次按F8出的GUI ,在要显示必须是在执行 _yc()之后才能在用F8显示GUI更正是_yc()

lixiaolong 发表于 2010-9-22 22:53:57

加一行#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Global $Paused
Dim $Form1
Dim $ok

HotKeySet("{F8}", "_123")
HotKeySet("{PAUSE}", "_tc")
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        _yc()

        EndSwitch
WEnd

Func _123()
        HotKeySet("{F8}")
        #Region ### START Koda GUI section ### Form=
        $Form1 = GUICreate("Form1", 205, 99, 192, 114)
        $Label1 = GUICtrlCreateLabel("号码：", 8, 16, 84, 24)
        GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
        $Input1 = GUICtrlCreateInput("500227198404211812", 80, 16, 121, 21)
        $Button1 = GUICtrlCreateButton("OK", 8, 56, 75, 25)
        $Button2 = GUICtrlCreateButton("KO", 112, 56, 75, 25)
        GUISetState(@SW_SHOW)
        #EndRegion ### END Koda GUI section ###

        While 1
                $nMsg = GUIGetMsg()
                Switch $nMsg
                        Case $Button1

                                If $ok = 0 Then
                                        MsgBox(48, "提示", "没有发现！", 10)
                                Else
                                        _12()
                                        _yc()
                                EndIf
                        Case $Button2
                                _yc()
                        Case $GUI_EVENT_CLOSE
                                _yc()

                EndSwitch
        WEnd

EndFunc   ;==>_123


Func _12()
        ;;;;
EndFunc   ;==>_12

Func _yc()
        ;;;
EndFunc   ;==>_yc

Func _tc()
        Exit
EndFunc   ;==>_tc

qq82015930 发表于 2010-9-22 23:07:17

回复 2# lixiaolong


    、

谢谢，我Func _yc()
        GUISetState(@SW_HIDE,$Form1);隐藏 窗口
EndFunc
是这样的，隐藏后不能在启动拉.

lixiaolong 发表于 2010-9-22 23:20:03

回复 3# qq82015930

这样啊，那就再加一行Func _yc()
GUISetState(@SW_HIDE,$Form1);隐藏 窗口
HotKeySet("{F8}", "_123")
EndFunc

qq82015930 发表于 2010-9-22 23:30:05

谢谢，解决~！！！{:face (114):}

newstar20088 发表于 2010-9-23 02:16:10

好。。。。。。。。。
页: [1]
查看完整版本: 【已解决】热键启动GUI问题.