Combo box dynamique et restriction à liste
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
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
Configuration: Windows XP Internet Explorer 6.0
2 réponses
-
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
-
ContributeurBonjour à 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+
