Ejemplo de propiedad TextColumn

En el ejemplo siguiente se utiliza la propiedad TextColumn para identificar la columna de datos de un control ListBox que suministra los datos a su propiedad Text.

En el ejemplo se establece como columna de texto la tercera columna del control ListBox. Al seleccionar una entrada de ListBox, el valor de TextColumn se mostrará en la etiqueta.

En este ejemplo también se muestra cómo cargar un ListBox de varias columnas mediante el método AddItem y la propiedad List .

Para usar este ejemplo, copie este código de muestra en la parte Declaraciones de un formulario. Asegúrese de que el formulario contiene:

• Un control ListBox denominado ListBox1.
• Un control TextBox denominado 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.