PureBasic

Code : Tout sélectionner

  SetGadgetItemText(ListIndex(panel.s()), -1,nouveau_nom_panel$) 

Code : Tout sélectionner

; Auteur : Le Soldat Inconnu
; Version de PB : 4
;
; Explication du programme :
; Pour faire des programmes de test rapidement, il ne reste qu'a rajouter les gadgets et la gestion des évènements.

; Création de la fenêtre et de la GadgetList
If OpenWindow(0, 0, 0, 300, 300, "Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget) = 0
  End
EndIf

PanelGadget(0, 0, 0, 300, 300)
  For n = 0 To 3
    AddGadgetItem(0, n, "Texte " +Str(n))
  Next
CloseGadgetList()

SetGadgetItemText(0, 1, "Nouveau texte")

Repeat
  Event = WaitWindowEvent()
  
  Select Event
    Case #PB_Event_Menu
      Select EventMenu() ; Menus
          
      EndSelect
      
    Case #PB_Event_Gadget
      Select EventGadget() ; Gadgets
          
      EndSelect
  EndSelect
  
Until Event = #PB_Event_CloseWindow

End