Probléme pour remplir une ComboBox [Résolu]

[ThoT]

J'essaye de remplir une ComboBox pour que l'utilisateur puisse definir la date (jour, mois, année), mais le souci est que ma ComboBox ne se remplie pas...

Code : Tout sélectionner

;- Window Constants
;
Enumeration
  #principale
EndEnumeration

;- Gadget Constants
;
Enumeration
  #Text_0
  #Text_1
  #Text_2
  #valider
  #annuler
  #nom
  #valeur
  #jour
  #mois
  #annee
EndEnumeration

;- Fonts
Global FontID1
FontID1 = LoadFont(1, "Arial", 12)

Procedure Open_principale()
  If OpenWindow(#principale, 310, 139, 306, 152, "Comptabilité",  #PB_Window_SystemMenu | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(#principale))
      TextGadget(#Text_0, 10, 10, 100, 20, "Date :")
      SetGadgetFont(#Text_0, FontID1)
      TextGadget(#Text_1, 10, 40, 100, 20, "Nom :")
      SetGadgetFont(#Text_1, FontID1)
      TextGadget(#Text_2, 10, 70, 100, 20, "Valeur :")
      SetGadgetFont(#Text_2, FontID1)
      ButtonGadget(#valider, 10, 100, 120, 30, "Valider")
      ButtonGadget(#annuler, 170, 100, 120, 30, "Annuler")
      StringGadget(#nom, 110, 40, 180, 20, "non connu")
      StringGadget(#valeur, 110, 70, 180, 20, "0", #PB_String_Numeric)
      ComboBoxGadget(#jour, 110, 10, 40, 20)
      ComboBoxGadget(#mois, 160, 10, 70, 20)
      ComboBoxGadget(#annee, 240, 10, 50, 20)
      
    EndIf
  EndIf
EndProcedure

;-----------------------------------------------

; PureBasic Visual Designer v3.95 build 1485 (PB4Code)

IncludeFile "compta1.pb"

Open_principale()

For a = 1 To 31
AddGadgetItem(#jour, -1, Str(a))
Next a

For a = 1 To 12
AddGadgetItem(#mois, -1, Str(a))
Next a

For a = 2000 To 2100
AddGadgetItem(#annee, -1, Str(a))
Next a

Repeat
evenement = WaitWindowEvent()
Until evenement = #PB_Event_CloseWindow

La, je bloque completement! :oops:

[Flype]

bah si il se remplit

le probleme c'est que la hauteur de ton combobox est trop petit.

change les lignes 39 à 41 par

ComboBoxGadget(#jour, 110, 10, 40, 300)
ComboBoxGadget(#mois, 160, 10, 70, 300)
ComboBoxGadget(#annee, 240, 10, 50, 300)

note bien le 300 pixels au lieu de 20.



car en effet la hauteur n'est pas auto-dimensionnée.