Jewtus Posted October 22, 2014 Share Posted October 22, 2014 I have a gui that has 2 entry boxes and a submit button, but I want to make it so you can press enter while in the entry box and have the submit button actually submit. This is what I have so far: #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> HotKeySet("{Enter}", "HotKeyPressed") #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 623, 114, 192, 114) $Input1 = GUICtrlCreateInput("Input1", 56, 48, 121, 21) $Input2 = GUICtrlCreateInput("Input2", 240, 48, 121, 21) $Button1 = GUICtrlCreateButton("Button1", 424, 48, 75, 25) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 MsgBox(0,"","test") EndSwitch WEnd Func HotKeyPressed() Switch @HotKeyPressed ; The last hotkey pressed. Case "{Enter}" ; Enterkey If GUICtrlRead($Input1) <> '' OR GUICtrlRead($Input2) <> '' Then MsgBox(0,"Ummmm...","I have no idea how to call the button?!") EndIf EndSwitch EndFunc Link to comment Share on other sites More sharing options...
Moderators Solution Melba23 Posted October 22, 2014 Moderators Solution Share Posted October 22, 2014 Jewtus,Rather than use a HotKey I would do it like this: expandcollapse popup#include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <WinAPI.au3> $Form1 = GUICreate("Form1", 623, 114, 192, 114) $Input1 = GUICtrlCreateInput("Input1", 56, 48, 121, 21) $Input2 = GUICtrlCreateInput("Input2", 240, 48, 121, 21) $Button1 = GUICtrlCreateButton("Button1", 424, 48, 75, 25) $cEnterDummy = GUICtrlCreateDummy() GUISetState(@SW_SHOW) ; Set Accelerator key Local $aAccelKeys[1][2] = [["{ENTER}", $cEnterDummy]] GUISetAccelerators($aAccelKeys) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $cEnterDummy ; Clear flag $bOK = False ; See what has focus Switch _WinAPI_GetFocus() Case GUICtrlGetHandle($Input1), GUICtrlGetHandle($Input2) If GUICtrlRead($Input1) <> '' Or GUICtrlRead($Input2) <> '' Then ; Set flag $bOK = True EndIf EndSwitch ; If flag set then fire the button If $bOK Then ContinueCase Case $Button1 MsgBox(0,"","test") EndSwitch WEndPlease ask if you have any questions. M23 Jewtus 1 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Link to comment Share on other sites More sharing options...
Jewtus Posted October 22, 2014 Author Share Posted October 22, 2014 Perfect!! Link to comment Share on other sites More sharing options...
kylomas Posted October 22, 2014 Share Posted October 22, 2014 @M23, this appears to work. Am I missing something? #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <ButtonConstants.au3> $Form1 = GUICreate("Form1", 623, 114, 192, 114) $Input1 = GUICtrlCreateInput("Input1", 56, 48, 121, 21) $Input2 = GUICtrlCreateInput("Input2", 240, 48, 121, 21) $Button1 = GUICtrlCreateButton("Button1", 424, 48, 75, 25) $cEnterDummy = GUICtrlCreateDummy() GUISetState(@SW_SHOW) ; Set Accelerator key Local $aAccelKeys[1][2] = [["{ENTER}", $cEnterDummy]] GUISetAccelerators($aAccelKeys) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $cEnterDummy If GUICtrlRead($Input1) <> '' Or GUICtrlRead($Input2) <> '' Then GUICtrlSendMsg($Button1,$BM_CLICK,0,0) Case $Button1 MsgBox(0,"","test") EndSwitch WEnd kylomas Forum Rules Procedure for posting code "I like pigs. Dogs look up to us. Cats look down on us. Pigs treat us as equals." - Sir Winston Churchill Link to comment Share on other sites More sharing options...
Moderators Melba23 Posted October 22, 2014 Moderators Share Posted October 22, 2014 kylomas,The main difference I can see is that you are not checking to see if the focus is on one of the inputs - which was part of the initial requirement: so you can press enter while in the entry boxM23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Link to comment Share on other sites More sharing options...
kylomas Posted October 22, 2014 Share Posted October 22, 2014 @M23 - Thank you (...bowing to the God of Gui's...) Jewtus 1 Forum Rules Procedure for posting code "I like pigs. Dogs look up to us. Cats look down on us. Pigs treat us as equals." - Sir Winston Churchill Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now