PureBasic Forums - English

Code: Select all

If OpenWindow(0, 0, 0, 130, 90, "", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  ButtonGadget(1, 20, 20, 90, 22, "button")
  ButtonGadget(2, 20, 50, 90, 22, "button 2")
  AddKeyboardShortcut(0, #PB_Shortcut_Return, 0)        ; assign enter-key
  AddKeyboardShortcut(0, #PB_Shortcut_Up, 1)            ; assign up-key
  
  Repeat
    Event = WaitWindowEvent()
    
    Select Event
        
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 1
            Debug "button clicked"
          Case 2
            Debug "button 2 clicked"
        EndSelect
        
      Case #PB_Event_Menu 
        If EventMenu() = 0 And GetActiveGadget() = 1         ; if enter-key while button has the focus
          Debug "enter was pressed" 
        ElseIf EventMenu() = 1 And GetActiveGadget() = 2     ; if up-key while button2 has the focus
          Debug "up-key was pressed"  
        EndIf
        
    EndSelect
    
  Until Event = #PB_Event_CloseWindow
EndIf