Contrôle ListBox, propriété BoundColumn – Exemple

L’exemple suivant montre comment la propriété BoundColumn influence la valeur d’un contrôle ListBox. L’utilisateur peut choisir de définir la valeur de la ListBox sur la valeur d’index de la ligne spécifiée ou sur une colonne de données spécifiée de la ListBox.

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 contrôle ListBox nommé ListBox1 ;
• Une étiquette nommée Label1.
• Trois contrôles OptionButton nommés OptionButton1, OptionButton2 et OptionButton3.

Private Sub UserForm_Initialize() 
 ListBox1.ColumnCount = 2 
 
 ListBox1.AddItem "Item 1, Column 1" 
 ListBox1.List(0, 1) = "Item 1, Column 2" 
 ListBox1.AddItem "Item 2, Column 1" 
 ListBox1.List(1, 1) = "Item 2, Column 2" 
 
 ListBox1.Value = "Item 1, Column 1" 
 
 OptionButton1.Caption = "List Index" 
 OptionButton2.Caption = "Column 1" 
 OptionButton3.Caption = "Column 2" 
 OptionButton2.Value = True 
End Sub 
 
Private Sub OptionButton1_Click() 
 ListBox1.BoundColumn = 0 
 Label1.Caption = ListBox1.Value 
End Sub 
 
Private Sub OptionButton2_Click() 
 ListBox1.BoundColumn = 1 
 Label1.Caption = ListBox1.Value 
End Sub 
 
Private Sub OptionButton3_Click() 
 ListBox1.BoundColumn = 2 
 Label1.Caption = ListBox1.Value 
End Sub 
 
Private Sub ListBox1_Click() 
 Label1.Caption = ListBox1.Value 
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.