Partager via


Propriété TextColumn – Exemple

L’exemple suivant utilise la propriété TextColumn pour identifier la colonne de données dans un contrôle ListBox qui fournit des données pour sa propriété Text .

Il montre comment définir la troisième colonne du contrôle ListBox en tant que colonne de texte. Lorsque vous sélectionnez une entrée dans listBox, la valeur de TextColumn s’affiche dans l’étiquette.

Cet exemple montre également comment charger un ListBox multicolonne à l’aide de la méthode AddItem et de la propriété List .

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 ;
  • TextBox nommé TextBox1.
Private Sub UserForm_Initialize() 
ListBox1.ColumnCount = 3 
 
ListBox1.AddItem "Row 1, Col 1" 
ListBox1.List(0, 1) = "Row 1, Col 2" 
ListBox1.List(0, 2) = "Row 1, Col 3" 
 
ListBox1.AddItem "Row 2, Col 1" 
ListBox1.List(1, 1) = "Row 2, Col 2" 
ListBox1.List(1, 2) = "Row 2, Col 3" 
 
ListBox1.AddItem "Row 3, Col 1" 
ListBox1.List(2, 1) = "Row 3, Col 2" 
ListBox1.List(2, 2) = "Row 3, Col 3" 
 
ListBox1.TextColumn = 3 
End Sub 
 
Private Sub ListBox1_Change() 
TextBox1.Text = ListBox1.Text 
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.