有没有办法把菜单里的选项和GUI窗口上的按钮关联起来

wbsgege

如题,写了个GUI的界面,现在想把一个按钮的功能和菜单上的选项关联起来,实现同一个效果,请问有没有办法实现

[ 本帖最后由 wbsgege 于 2008-10-6 14:28 编辑 ]

liongodmien

有！ 调用同一个功能函数

#NoTrayIcon
#include-once
#include <IE.AU3>
#include <Constants.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>

HotKeySet("{F7}", "_RUN_STOP_SCRIPT")

Opt("TrayMenuMode", 1)
Opt("TrayOnEventMode", 1)
$Show = TrayCreateItem("隐藏窗口")
TrayItemSetOnEvent($Show, "_Tray_Menu_Show")
TrayCreateItem("")
$SLEEP = TrayCreateItem("暂停辅助")
TrayItemSetOnEvent($SLEEP, "_RUN_STOP_SCRIPT")
TrayItemSetState($SLEEP, $TRAY_CHECKED)
TrayCreateItem("")
$Quit = TrayCreateItem("退出辅助")
TrayItemSetOnEvent($Quit, "_Tray_Menu_Quit")
TraySetState()

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $gui_event_minimize
                        _Tray_Menu_Show()          
                                                     ．
    
                              ．
    
                              ．
                Case $Checkbox6
                        If GUICtrlRead($Checkbox6) = $GUI_CHECKED Then
                                GUICtrlSetState($Checkbox7, $GUI_ENABLE)
                        Else
                                GUICtrlSetState($Checkbox7, $GUI_DISABLE)
                        EndIf
                Case $Button3
                        _RUN_STOP_SCRIPT()
                Case $Button4
                        Exit
                Case $Edit1
        EndSwitch
WEnd


Func _Tray_Menu_Show()
        If TrayItemGetText($Show) = "显示窗口" Then
                TrayItemSetText($Show, "隐藏窗口")
                WinSetState($Form1, "", @SW_SHOW)
                WinActivate($Form1, "")
        Else
                TrayItemSetText($Show, "显示窗口")
                WinSetState($Form1, "", @SW_HIDE)
        EndIf
EndFunc

Func _Tray_Menu_Quit()
        Exit
EndFunc

Func _RUN_STOP_SCRIPT()
        $PAUSE = Not $PAUSE

        If $PAUSE = 0 Then
                TrayItemSetState($SLEEP, $TRAY_UNCHECKED)
        Else
                TrayItemSetState($SLEEP, $TRAY_CHECKED)
        EndIf

        If $PAUSE = 0 Then
                GUICtrlSetColor($Button3, 0x0000FF)
                GUICtrlSetTip($Button3, "暂停辅助程序，热键（F7）")
                GUICtrlSetData($Button3, "暂停辅助")
        Else
                GUICtrlSetColor($Button3, 0xFF0000)
                GUICtrlSetTip($Button3, "开始辅助程序，热键（F7）")
                GUICtrlSetData($Button3, "开始辅助")
        EndIf
EndFunc

[ 本帖最后由 liongodmien 于 2008-9-26 20:56 编辑 ]