Combo box dynamique et restriction à liste

mayvba -  
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,

Je crée des combo box dynamiquement, j'aimerai des leur création les verrouillé à la propriété
style= 2- fmStyleDropDownList


comment puis je faire????

(mon code ci dessous)



Dim classe As CComboBox
Set classe = New CComboBox
Set Objet = Controls.Add("Forms.ComboBox.1")
With Objet
.Name = "CBox" & nom & NbCondSi
.AutoTab = True
'.Font.Name = "Arial monospaced for SAP"
.Left = gauche
.Top = 138 + 24 * (NbCondSi - 1) - moins
.Width = largeur
End With
A voir également:

2 réponses

Utilisateur anonyme
 
je m'y connait pas en visual basic,
mais essaie ça :

Dim classe As CComboBox
Set classe = New CComboBox
Set Objet = Controls.Add("Forms.ComboBox.1")
With Objet
.Name = "CBox" & nom & NbCondSi
.AutoTab = True
'.Font.Name = "Arial monospaced for SAP"
.Left = gauche
.Top = 138 + 24 * (NbCondSi - 1) - moins
.Width = largeur
.Style = fmStyleDropDownList // en tous cas c'est un truc du genre, mais c'est là qu'il faut le placer
End With
0
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
Bonjour à tout les deux,
c'est exactement ça pour Style
Mais je vois que tu à mis l'attribution de la police en rem, ça ne marche pas !
Certaine propriétés ne fonctionne pas en With, et pour une police tu doit mettre

   Set Objet .Font.Name = "Arial monospaced for SAP"

A+
0