GUISetAccelerators with Multi GUI?

[langthang084]

I want to Press Enter to Click Button on Gui1 and Gui 2, But It not work.

Could any help me?

Thanks all!

expandcollapse popup

#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <Misc.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <GuiButton.au3>

Global $hMain = GuiCreate("New AutoIt v3 Script", 228, 130, -1, -1)
Global $Button_1 = GuiCtrlCreateButton("Button1", 60, 20, 140, 40)
Global $Button_2 = GuiCtrlCreateButton("Button2", 60, 80, 140, 40)
$Iddummy = GUICtrlCreateDummy()
GUISetState()

$Gui1 = GUICreate("GUI - 1", 200, 100, 0, 0)
$ButtonGui1 = GUICtrlCreateButton("Test Gui1", 60, 20, 100, 40)
GuiSetState(@SW_HIDE, $Gui1)

$Gui2 = GUICreate("GUI - 2", 200, 100, 0, 0)
$ButtonGui2 = GUICtrlCreateButton("Test Gui2", 60, 20, 100, 40)
GuiSetState(@SW_HIDE, $Gui2)

Local $aAccelKeys[1][2] = [["{enter}", $idDummy]]               ;tạo hotkey (Ấn ENTER --> Tự động ấn ADD)
GUISetAccelerators($aAccelKeys)

Do
    Switch GuiGetMsg()
        Case $GUI_EVENT_CLOSE
            ExitLoop

        Case $Button_1
           GUISetState(@SW_SHOWNORMAL, $Gui1)
            GuiSetState(@SW_HIDE, $Gui2)
        Case $Button_2
           GUISetState(@SW_SHOWNORMAL, $Gui2)
            GuiSetState(@SW_HIDE, $Gui1)
         case $ButtonGui1
            MsgBox(0, "", "Test GUI 1")
         case $ButtonGui2
            MsgBox(0, "", "Test GUI 2")
         case $IdDummy
            _GUICtrlButton_Click($ButtonGui1)
            _GUICtrlButton_Click($ButtonGui2)
            ;
    EndSwitch
Until False

 

[Melba23]

langthang084,

Just reset the accelerator key each time you change the GUI:

expandcollapse popup

#include <GUIConstantsEx.au3>

Global $hMain = GuiCreate("New AutoIt v3 Script", 228, 130, -1, -1)
Global $Button_1 = GuiCtrlCreateButton("Button1", 60, 20, 140, 40)
Global $Button_2 = GuiCtrlCreateButton("Button2", 60, 80, 140, 40)
GUISetState()

$Gui1 = GUICreate("GUI - 1", 200, 100, 0, 0)
$ButtonGui1 = GUICtrlCreateButton("Test Gui1", 60, 20, 100, 40)
GuiSetState(@SW_HIDE, $Gui1)

$Gui2 = GUICreate("GUI - 2", 200, 100, 0, 0)
$ButtonGui2 = GUICtrlCreateButton("Test Gui2", 60, 20, 100, 40)
GuiSetState(@SW_HIDE, $Gui2)

Do
    Switch GuiGetMsg()
        Case $GUI_EVENT_CLOSE
            ExitLoop

        Case $Button_1
           GUISetState(@SW_SHOW, $Gui1)
            GuiSetState(@SW_HIDE, $Gui2)
            Local $aAccelKeys[1][2] = [["{enter}", $ButtonGui1]]

            GUISetAccelerators($aAccelKeys, $Gui1)
        Case $Button_2
           GUISetState(@SW_SHOW, $Gui2)
            GuiSetState(@SW_HIDE, $Gui1)
            Local $aAccelKeys[1][2] = [["{enter}", $ButtonGui2]]
            GUISetAccelerators($aAccelKeys, $Gui2)
         case $ButtonGui1
            MsgBox(0, "", "Test GUI 1")
         case $ButtonGui2
            MsgBox(0, "", "Test GUI 2")
    EndSwitch

Until False

M23

[langthang084]

Thanks Melba23!
But if I have many Gui, Is there anyway to create the list accelerator keys like _GUICtrlButton_Click($ButtonGui1) with $IdDummy above?

[Melba23]

langthang084,

I think not - Accelerator keys are only active if the GUI with which they are associated is active, so as soon as one of the other GUIs has focus the dummy control will not fire.

You could do something like this - store the GUI handles and associated ControlDs in an array:

expandcollapse popup

#include <GUIConstantsEx.au3>

Global $hMain = GUICreate("New AutoIt v3 Script", 228, 130, -1, -1)
Global $Button_1 = GUICtrlCreateButton("Button1", 60, 20, 140, 40)
Global $Button_2 = GUICtrlCreateButton("Button2", 60, 80, 140, 40)
GUISetState()

$Gui1 = GUICreate("GUI - 1", 200, 100, 0, 0)
$ButtonGui1 = GUICtrlCreateButton("Test Gui1", 60, 20, 100, 40)
GUISetState(@SW_HIDE, $Gui1)

$Gui2 = GUICreate("GUI - 2", 200, 100, 0, 0)
$ButtonGui2 = GUICtrlCreateButton("Test Gui2", 60, 20, 100, 40)
GUISetState(@SW_HIDE, $Gui2)

; Array holding GUI handles and controls
Global $aGUIData[3][2] = [[0, 0], [$Gui1, $ButtonGui1], [$Gui2, $ButtonGui2]]

Do
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            ExitLoop



        Case $Button_1
            GUISetState(@SW_SHOW, $Gui1)
            GUISetState(@SW_HIDE, $Gui2)
            _SetAccel(1)
        Case $Button_2
            GUISetState(@SW_SHOW, $Gui2)
            GUISetState(@SW_HIDE, $Gui1)
            _SetAccel(2)
        Case $ButtonGui1
            MsgBox(0, "", "Test GUI 1")
        Case $ButtonGui2
            MsgBox(0, "", "Test GUI 2")
    EndSwitch



Until False

Func _SetAccel($iIndex)
    
    ; Set accelerators for the active GUI
    Local $aAccelKeys[1][2] = [["{ENTER}", $aGUIData[$iIndex][1]]]
    GUISetAccelerators($aAccelKeys, $aGUIData[$iIndex][0])
EndFunc   ;==>_SetAccel

M23