Exemplo do controle ListBox, da propriedade BoundColumn

O exemplo a seguir demonstra como a propriedade BoundColumn influencia o valor de uma ListBox. O usuário pode optar por definir o valor de ListBox para o valor de índice da linha especificada ou para uma coluna de dados especificada na ListBox.

Para usar este exemplo, copie esta amostra de código para a parte Declarações de um formulário. Verifique se o formulário contém:

• A ListBox named ListBox1.
• Um rótulo chamado Label1.
• Três controles OptionButton chamados OptionButton1, OptionButton2 e 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.