Propriétés Locked, DropButtonStyle et ShowDropButtonWhen – Exemple

L’exemple suivant illustre les différents symboles que vous pouvez spécifier pour une flèche déroulante dans un objet ComboBox ou TextBox.

Dans cet exemple, l’utilisateur choisit un style de flèche déroulante dans un contrôle ComboBox. Cet exemple utilise également la propriété Locked .

Pour utiliser cet exemple, copiez le code de l’exemple dans la partie Déclarations d’un formulaire. Vérifiez que le formulaire contient :

• un ComboBox nommé ComboBox1 ;
• Une étiquette nommée Label1.
• un TextBox nommé TextBox1 et placé sous Label1.

Private Sub ComboBox1_Click() 
 ComboBox1.DropButtonStyle = ComboBox1.Value 
 TextBox1.DropButtonStyle = ComboBox1.Value 
End Sub 
 
Private Sub UserForm_Initialize() 
 ComboBox1.ColumnCount = 2 
 ComboBox1.BoundColumn = 2 
 ComboBox1.TextColumn = 1 
 
 ComboBox1.AddItem "Blank Button" 
 ComboBox1.List(0, 1) = 0 
 ComboBox1.AddItem "Down Arrow" 
 ComboBox1.List(1, 1) = 1 
 ComboBox1.AddItem "Ellipsis" 
 ComboBox1.List(2, 1) = 2 
 ComboBox1.AddItem "Underscore" 
 ComboBox1.List(3, 1) = 3 
 
 ComboBox1.Value = 0 
 
 TextBox1.Text = "TextBox1" 
 TextBox1.ShowDropButtonWhen = fmShowDropButtonWhenAlways 
 TextBox1.Locked = True 
 
 Label1.Caption = "TheDropButton also " _ 
 & "applies to a TextBox." 
 Label1.AutoSize = True 
 Label1.WordWrap = False 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.