PureBoard

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