Problème avec combobox
Publié : sam. 21/juin/2008 18:37
Salut,
J'ai un petit problème avec mon combobox, il veut pas lui ajouter de nouveaux éléments
Donc il reste vide.
Essayer chez vous, chez moi ça va pas, si quelqu'un trouve le problème, qu'il me le dise 
Merci !
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
ForEverMerci !
