Hotkey to trigger GUI button

[niftyapple]

Here is a snippet of code that creates a singel GUI with simply a dropdown and an OK button. For some reason I am lapsing on how to get a hotkey to trigger the switch event for the OK button. My question, do I make a new case for the hotkey or can I trigger the case directly with the hotkey? Could I @hotkeypressed a case and run the necessary from another function?

expandcollapse popup

Func _RunSingle()
   local $pFile = $path & "programs.txt"
;~    ensure file is in its spot before loading
   if NOT FileExists($pFile) Then
      FileWrite($pFile, "")
   EndIf
   local $count = _FileCountLines($pFile)
   if $count = 0 Then
      $count = 1
   EndIf
   ;~Check for an empty file, write something to the first slot. will be removed later. 
   Local $plist[$count]
   If FileGetSize($pfile) <= 1 Then
      $plist[0] = ""
   Else
      _FileReadToArray($pFile, $plist)
      for $i = UBound($plist) - 1 to 0 Step -1
         if $plist[$i] = "" OR $plist[$i] = " " OR $plist[$i] = "|" Then
           _ArrayDelete($plist, $i)
         EndIf
      Next
      _ArrayDelete($plist, 0)
   EndIf
   
   ;~ Make sure there is data to put into the control before showing the GUI
   If UBound($plist) > 0 Then
      $GUISingle = GUICreate("Run Once", 500, 300)
      $GUISingleL1 = GUICtrlCreateCombo("", 10, 10, 200, 100)
      $GUISingleB1 = GUICtrlCreateButton("OK", 10, 130, 100, 100)
      
      For $t in $plist
         GUICtrlSetData($GUISingleL1, $t)
      Next
      
      GUISetState(@SW_SHOW, $GUISingle)
      
      While 1
         HotKeySet("{ENTER}", "_pressedOK")
         Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
               ExitLoop
            Case $GUISingleB1
               $runsingle = GUICtrlRead($GUISingleL1)
               if $runsingle = "" Then
                  msgbox(0, "Error", "That is not a correct item. Please select one from the drop down.")
               Else
                  Local $show[2]
                  $show = _GetContents()
                  RunAs(_decrypt($show[0]), $domain, _decrypt($show[1]), 2, $runsingle)
                  ExitLoop
               EndIf
         EndSwitch
      WEnd
      GUISetState(@SW_HIDE, $GUISingle)
   EndIf
EndFunc

[JohnOne]

You want to automate a button on your own GUI? Why? That;s crazy.

[orbs]

GUISetAccelerators

[reb]

use hot key set like this <<<<<<<<<<<<<<<

expandcollapse popup

Func _RunSingle()
    Local $pFile = $path & "programs.txt"
;~    ensure file is in its spot before loading
    If Not FileExists($pFile) Then
        FileWrite($pFile, "")
    EndIf
    Local $count = _FileCountLines($pFile)
    If $count = 0 Then
        $count = 1
    EndIf
;~Check for an empty file, write something to the first slot. will be removed later.
    Local $plist[$count]
    HotKeySet("{ENTER}", "$GUISingleB1") ;<<<<<<<<<<<<<<< Note Placement is not in your loop
    If FileGetSize($pFile) <= 1 Then
        $plist[0] = ""
    Else
        _FileReadToArray($pFile, $plist)
        For $i = UBound($plist) - 1 To 0 Step -1
            If $plist[$i] = "" Or $plist[$i] = " " Or $plist[$i] = "|" Then
                _ArrayDelete($plist, $i)
            EndIf
        Next
        _ArrayDelete($plist, 0)
    EndIf

;~ Make sure there is data to put into the control before showing the GUI
    If UBound($plist) > 0 Then
        $GUISingle = GUICreate("Run Once", 500, 300)
        $GUISingleL1 = GUICtrlCreateCombo("", 10, 10, 200, 100)
        $GUISingleB1 = GUICtrlCreateButton("OK", 10, 130, 100, 100) ;<<<<<<<<<<<<<<< Assigned to here

        For $t In $plist
            GUICtrlSetData($GUISingleL1, $t)
        Next

        GUISetState(@SW_SHOW, $GUISingle)

        While 1
            Switch GUIGetMsg()
                Case $GUI_EVENT_CLOSE
                    ExitLoop
                Case $GUISingleB1
                    $runsingle = GUICtrlRead($GUISingleL1)
                    If $runsingle = "" Then
                        MsgBox(0, "Error", "That is not a correct item. Please select one from the drop down.")
                    Else
                        Local $show[2]
                        $show = _GetContents()
                        RunAs(_decrypt($show[0]), $domain, _decrypt($show[1]), 2, $runsingle)
                        ExitLoop
                    EndIf
            EndSwitch
        WEnd
        GUISetState(@SW_HIDE, $GUISingle)
    EndIf
EndFunc   ;==>_RunSingle

[kylomas]

niftyapple,

If your purpose is to action the button when the enter key is pushed then an accelerator key (as orb pointed out) can do it like this...

expandcollapse popup

Func _RunSingle()
   local $pFile = $path & "programs.txt"
;~    ensure file is in its spot before loading
   if NOT FileExists($pFile) Then
      FileWrite($pFile, "")
   EndIf
   local $count = _FileCountLines($pFile)
   if $count = 0 Then
      $count = 1
   EndIf
   ;~Check for an empty file, write something to the first slot. will be removed later.
   Local $plist[$count]
   If FileGetSize($pfile) <= 1 Then
      $plist[0] = ""
   Else
      _FileReadToArray($pFile, $plist)
      for $i = UBound($plist) - 1 to 0 Step -1
         if $plist[$i] = "" OR $plist[$i] = " " OR $plist[$i] = "|" Then
           _ArrayDelete($plist, $i)
         EndIf
      Next
      _ArrayDelete($plist, 0)
   EndIf

   ;~ Make sure there is data to put into the control before showing the GUI
   If UBound($plist) > 0 Then
      $GUISingle = GUICreate("Run Once", 500, 300)
      $GUISingleL1 = GUICtrlCreateCombo("", 10, 10, 200, 100)
      $GUISingleB1 = GUICtrlCreateButton("OK", 10, 130, 100, 100)
      $dummy_enter = GUICtrlCreatedummy()   ; <----- add dummy def

      ; accelerator key definition
      Dim $aAccelKeys[1][2] = [["{ENTER}", $dummy_enter]]
      GUISetAccelerators($aAccelKeys)

      For $t in $plist
         GUICtrlSetData($GUISingleL1, $t)
      Next

      GUISetState(@SW_SHOW, $GUISingle)

      While 1
         Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
               ExitLoop
            Case $GUISingleB1, $dummy_enter ; <----- add dummy ctl
               $runsingle = GUICtrlRead($GUISingleL1)
               if $runsingle = "" Then
                  msgbox(0, "Error", "That is not a correct item. Please select one from the drop down.")
               Else
                  Local $show[2]
                  $show = _GetContents()
                  RunAs(_decrypt($show[0]), $domain, _decrypt($show[1]), 2, $runsingle)
                  ExitLoop
               EndIf
         EndSwitch
      WEnd
      GUISetState(@SW_HIDE, $GUISingle)
   EndIf
EndFunc

not tested obviously

kylomas

[niftyapple]

Sorry for the late reply, but GUISetAccelerators was the key. Thanks!