PureBasic

Code : Tout sélectionner

EventID = WaitWindowEvent()
  Select EventID 
      
      Case #PB_Event_Gadget
          Select EventGadget()
       
            Case #Button_01 ; on appuie sur le button envoyer ;          <=============== mon probleme est ici
              If nb_client=1
                SendNetworkString(ClientID, pseudo$+" : "+GetGadgetText(#String_01), #PB_UTF8) ; on envoie le message au client
                AddGadgetItem(#Editor_01, -1, pseudo$+" : "+GetGadgetText(#String_01), 0, 0)   ; on affiche le message dans l'editor
                SetGadgetText(#String_01, "")                                                  ; on vide le string
              EndIf
              
          EndSelect
          
        Case #PB_Event_Menu
          Select EventMenu()
              
            Case 15
              Debug "Prout"
              
          EndSelect
    EndSelect

  Until EventID = #PB_Event_CloseWindow
CloseNetworkServer(#Server_01)
End