Freigeben über


TextColumn-Eigenschaft (Beispiel)

The following example uses the TextColumn property to identify the column of data in a ListBox that supplies data for its Text property.

This example sets the third column of the ListBox as the text column. Wenn Sie einen Eintrag aus dem ListBox-Element auswählen, wird der Wert aus der TextColumn in der Bezeichnung angezeigt.

In diesem Beispiel wird auch veranschaulicht, wie ein mehrspaltiges ListBox-Objekt mithilfe der AddItem-Methode und der List-Eigenschaft geladen wird.

Kopieren Sie diesen Beispielcode in den Deklarationsbereich eines Formulars. Stellen Sie sicher, dass das Formular folgende Komponenten enthält:

  • Ein ListBox -Steuerelement mit der Bezeichnung "ListBox1".
  • Ein Textfeld-Steuerelement ( TextBox ) mit der Bezeichnung "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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.