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 !
Quelqu'un aurait-il la solution ? (et au passage comment ajouter un item dans la ListView car avec AddGadgetItem j'ai des erreurs de syntaxe)
Joke
