addkeyboardshortcut

[Gast]

Ich wollte mal fragen wie der Code aussehen muss damit ich die shortcut und den button benutzen kann ?

Code: Alles auswählen

AddKeyboardShortcut(0, #PB_Shortcut_Return, 3)
InitNetwork()
CreateGadgetList(WindowID(0))
EditorGadget(1,5,5,390,300, #PB_Editor_ReadOnly)
StringGadget(2,5,310,400,60,"")
ButtonGadget(3,400,310,95,25,"Senden")
ButtonGadget(6,400,340,95,25,"Farbe")

...

Select id
    Case #PB_Event_Gadget 
      Select EventGadget()
        Case 3
          If SendUDPBroadcast(port,Text) = 0
            SetGadgetText(2,"")
            SetGadgetText(5,"Nachricht wurde erfolgreich gesendet")
          Else
            SetGadgetText(5,"Nachricht wurde nicht erfolgreich gesendet")
          EndIf
        Case 6
          farbe = ColorRequester()
          SetGadgetColor(2,#PB_Gadget_FrontColor,farbe)
      EndSelect
      
    Case #PB_Event_Menu
      If EventMenu() = 3
      If SendUDPBroadcast(port,Text) = 0
        SetGadgetText(2,"")
        SetGadgetText(5,"Nachricht wurde erfolgreich gesendet")
      Else
        SetGadgetText(5,"Nachricht wurde nicht erfolgreich gesendet")
      EndIf
     EndIf 
  EndSelect

aber da kann ich nur den shortcut benutzen und keinen button mehr.
kann mir einer helfen ?

[ts-soft]

http://www.purebasic.fr/german/viewtopic.php?t=10771

[Gast]

danke schön ts-soft, es hat geklappt

[ts-soft]

danke schön ts-sof, es hat geklappt

Bitte Maikel, gern geschehen

[Gast]

Bitte Maike, gern geschehen

hab es ja verbessert

[ts-soft]

Bitte Maike, gern geschehen

hab es ja verbessert

Ich auch