Page 1 sur 1

[Résolu] Ajouter un élément à une liste

Publié : dim. 03/avr./2011 19:07
par David02
Bonsoir à tous,

Voici mon problème:
En faite, j'ai une liste vide mais j'aimerais rajouter des choses comme je le souhaite grâce à un bouton ainsi qu'un gadget de saisie de texte.
Et quand je tape quelque chose dans le gadget de saisie, celui se rajoute dans la liste en cliquant sur le bouton.
Enfin, voici le code pour mieux comprendre:

Code : Tout sélectionner

Enumeration
  #fenetre
  #liste
  #add
  #text
EndEnumeration

OpenWindow(#fenetre, 0, 0 , 800, 600, "test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_TitleBar | #PB_Window_MinimizeGadget)
ListViewGadget(#liste, 10, 10, 200, 580)
ButtonGadget(#add, 300, 10, 100, 25, "ajouter")
StringGadget(#text, 300, 50, 100, 25, "Ajouter")

Repeat
  
  Select WaitWindowEvent()
      
      Case #PB_Event_Gadget
        Select EventGadget()
          
          Case #add
            AddGadgetItem(#text, 0, text$)
            EndSelect
            
            
Case #PB_Event_CloseWindow
      Fermer=#True
      
  EndSelect
  
Until fermer
Merci

Re: Ajouter un élément à une liste

Publié : dim. 03/avr./2011 19:12
par falsam
Remplace AddGadgetItem(#text, 0, text$)

par

Code : Tout sélectionner

AddGadgetItem(#Liste, -1, GetGadgetText(#Text))
-1 veut dire que tu ajoutes en fin de liste

Re: Ajouter un élément à une liste

Publié : dim. 03/avr./2011 19:14
par venom
code présent a plusieurs reprise sur le forum.

voici un code vite fait sans commentaire :

Code : Tout sélectionner

Enumeration
	#fenetre
	#liste
	#add
	#text
EndEnumeration

OpenWindow(#fenetre, 0, 0 , 800, 600, "test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_TitleBar | #PB_Window_MinimizeGadget)
ListViewGadget(#liste, 10, 10, 200, 580)
ButtonGadget(#add, 300, 10, 100, 25, "ajouter")
StringGadget(#text, 300, 50, 100, 25, "Ajouter")

  Repeat
   EventID = WaitWindowEvent()
    If EventID = #PB_Event_Gadget
      Select EventGadget()
        
       Case #add
        AddGadgetItem(#liste, -1, GetGadgetText(#text), 0)
        
      EndSelect
    EndIf
  Until EventID = #PB_Event_CloseWindow
a toi de voir les différentes fonctions dans l'aide de purebasic pour bien comprendre.

[EDIT] zut dépasser par falsam :D




@++

Re: Ajouter un élément à une liste

Publié : dim. 03/avr./2011 19:24
par David02
Je vous remercie :D

Par contre je vais remettre le 0 car je veux que ce soit plutôt en début liste.