Problème avec combobox

[wolfjeremy]

Salut,

J'ai un petit problème avec mon combobox, il veut pas lui ajouter de nouveaux éléments
Donc il reste vide.

Code : Tout sélectionner

  ;-Les tableaux
Structure Profils
  Pseudo.s
  Dossier.s
EndStructure

Global Dim TabProfils.Profils(99)

Tabpos.l = 2

TabProfils(0)\Pseudo = "test 1"
TabProfils(1)\Pseudo = "test 2"
TabProfils(2)\Pseudo = "test 3"
  
  OpenWindow(0, 0, 0, 200, 135, "Définition du mot de passe", #PB_Window_ScreenCentered)
    CreateGadgetList(WindowID(0))
    TextGadget(1, 10, 10, 180, 17, "Choisissez votre profil", #PB_Text_Center)
    ComboBoxGadget(2, 40, 30, 120, 17)
    TextGadget(3, 10, 60, 180, 17, "Choisissez votre mot de passe", #PB_Text_Center)
    StringGadget(4, 10, 80, 180, 17, "", #PB_String_Password)
    ButtonGadget(5, 60, 110, 70, 17, "Valider")
  
  For i=0 To Tabpos
    AddGadgetItem(2, -1, TabProfils(i)\Pseudo)
  Next i
  
  Repeat
  
    EventID = WaitWindowEvent()
    
    If EventID = #PB_Event_Gadget
    
      Select EventGadget()
      
      Case 5
        Debug TabProfils(GetGadgetState(2))\Dossier
        CloseWindow(0)
        Break
      
      EndSelect
    
    EndIf
  
  ForEver

Essayer chez vous, chez moi ça va pas, si quelqu'un trouve le problème, qu'il me le dise

Merci !

[Chris]

Augmente la hauteur du combo

Code : Tout sélectionner

ComboBoxGadget(2, 40, 30, 120, 200)

[wolfjeremy]

Ha ok ça marche comme ça... c'est un peux con lol
Bizar, j'en avais déjà utilisé pourtant, je me rappel pas qu'il faillais faire ça.

Un grand merci en tout cas !