Ajout dynamique de ComboBox

Résolu
sebast105
Messages postés
37
Date d'inscription
mercredi 28 janvier 2004
Statut
Membre
Dernière intervention
18 avril 2005
- 29 mars 2005 à 08:39
sebast105
Messages postés
37
Date d'inscription
mercredi 28 janvier 2004
Statut
Membre
Dernière intervention
18 avril 2005
- 29 mars 2005 à 14:42
Bonjour,

Je voudrais savoir si il est possible d'ajouter des ComboBox de manière dynamique lors du lancement d'une application.

Merci d'avance.

Cordialement Sébastien

2 réponses

sebast105
Messages postés
37
Date d'inscription
mercredi 28 janvier 2004
Statut
Membre
Dernière intervention
18 avril 2005

29 mars 2005 à 14:42
Merci beaucoup pour ta réponse.

Sébastien
3
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
29 mars 2005 à 14:22
Oui, c'est possible.

Option Explicit
Private WithEvents cboObj As ComboBox
Private Sub cboObj_Click()
MsgBox "Ceci est un Combobox ajouté de façon dynamique."
End Sub
Private Sub Form_Load()
Set cboObj = Controls.Add("VB.Combobox", "cboObj")
With cboObj
.Visible = True
.Width = 2000
.AddItem "Bonjour"
.Top = 1000
.Left = 1000
.ListIndex = 0
End With
End Sub

jpleroisse
0