Table of contents
TOC
Recolher sumário
Expandir sumário

ListStyle, exemplo das propriedades MultiSelectListStyle, MultiSelect Properties Example

office 365 dev account|Última Atualização: 22/03/2018
|
2 Colaboradores

O exemplo a seguir usa as propriedades ListStyle e MultiSelect para controlar a aparência de um ListBox. O usuário escolhe um valor para ListStyle usando ToggleButton e escolhe um OptionButton para um dos valores MultiSelect . A aparência do ListBox altera apropriadamente, bem como o comportamento de seleção dentro de um ListBox.The following example uses the ListStyle and MultiSelect properties to control the appearance of a ListBox. The user chooses a value for ListStyle using the ToggleButton and chooses an OptionButton for one of the MultiSelect values. The appearance of the ListBox changes accordingly, as well as the selection behavior within the 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:To use this example, copy this sample code to the Declarations portion of a form. Make sure that the form contains:

  • Uma ListBox denominada ListBox1.A ListBox named ListBox1.

  • Um Label denominado Label1.A Label named Label1.

  • Três controles OptionButton denominados OptionButton1 a OptionButton3.Three OptionButton controls named OptionButton1 through OptionButton3.

  • Um ToggleButton denominado ToggleButton1.A ToggleButton named ToggleButton1.

Private Sub UserForm_Initialize() 
 Dim i As Integer 

 For i = 1 To 8 
 ListBox1.AddItem "Choice" &; (ListBox1.ListCount + 1) 
 Next i 

 Label1.Caption = "MultiSelect Choices" 
 Label1.AutoSize = True 

 ListBox1.MultiSelect = fmMultiSelectSingle 
 OptionButton1.Caption = "Single entry" 
 OptionButton1.Value = True 
 OptionButton2.Caption = "Multiple entries" 
 OptionButton3.Caption = "Extended entries" 

 ToggleButton1.Caption = "ListStyle - Plain" 
 ToggleButton1.Value = True 
 ToggleButton1.Width = 90 
 ToggleButton1.Height = 30 
End Sub 

Private Sub OptionButton1_Click() 
 ListBox1.MultiSelect = fmMultiSelectSingle 
End Sub 

Private Sub OptionButton2_Click() 
 ListBox1.MultiSelect = fmMultiSelectMulti 
End Sub 

Private Sub OptionButton3_Click() 
 ListBox1.MultiSelect = fmMultiSelectExtended 
End Sub 

Private Sub ToggleButton1_Click() 
 If ToggleButton1.Value = True Then 
 ToggleButton1.Caption = "Plain ListStyle" 
 ListBox1.ListStyle = fmListStylePlain 
 Else 
 ToggleButton1.Caption = "OptionButton " _ 
 &; "or CheckBox" 
 ListBox1.ListStyle = fmListStyleOption 
 End If 
End Sub
© 2018 Microsoft