PureBasic

Code : Tout sélectionner

; PureBasic Visual Designer v3.95 build 1485 (PB4Code)


;- Window Constants
;
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #String_0
  #Button_0
  #Frame3D_0
  #String_1
  #Listview_0
EndEnumeration


Procedure Open_Window_0()
  If OpenWindow(#Window_0, 220, 0, 179, 300, "Titre : Joker",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(#Window_0))
      StringGadget(#String_0, 10, 10, 140, 20, "Tape un mot")
      ButtonGadget(#Button_0, 10, 40, 140, 20, "action !")
      Frame3DGadget(#Frame3D_0, 10, 80, 140, 190, "")
      StringGadget(#String_1, 20, 90, 120, 20, "T'as entré ça  :", #PB_String_ReadOnly)
      ListViewGadget(#Listview_0, 20, 120, 120, 140)
      
    EndIf
  EndIf
EndProcedure

; *********************************************************************************
Open_Window_0()
; *********************************************************************************
Repeat ;
      
      event = WaitWindowEvent () ; cette ligne recupere les evenements de windows
       windowid = EventWindow () ; ici on recupere l'evenement de la fenetre ce peut etre un gadget par exemple
       gadgetid = EventGadget () ; ici on est sur d'avoir recuperé un evenement de gadget !!!
      
       If event = #PB_Event_Gadget
             If GadgetID = #Button_0
                   MessageRequester ( "Action !" , "Tu viens d'écrire ceci : " +Str(#String_0) , #PB_MessageRequester_Ok )
                   SetGadgetText(#String_1 ,"T'as entré ça : " +Str(#String_0) )
                   SetWindowTitle(#Window_0, "Nouveau titre : " +Str(#String_0) )
             EndIf
            
       EndIf
      
Until event = #PB_Event_CloseWindow
; *********************************************************************************
End
; Fin !