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
Rejoignez-nous