Ejemplo de propiedades MultiSelect y Selected

En el ejemplo siguiente se utilizan las propiedades MultiSelect y Selected para mostrar cómo el usuario puede seleccionar uno o varios elementos en un control ListBox.

El usuario especifica un método de selección eligiendo un botón de opción y, a continuación, selecciona un elemento de ListBox. El usuario puede mostrar los elementos seleccionados en un segundo ListBox haciendo clic en commandbutton.

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

• Dos controles ListBox denominados ListBox1 y ListBox2.
• Un control CommandButton denominado CommandButton1.
• Tres controles OptionButton denominados de OptionButton1 a OptionButton3.

Dim i As Integer 
 
Private Sub CommandButton1_Click() 
 ListBox2.Clear 
 
 For i = 0 To 9 
 If ListBox1.Selected(i) = True Then 
 ListBox2.AddItem ListBox1.List(i) 
 End If 
 Next i 
 
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 UserForm_Initialize() 
 For i = 0 To 9 
 ListBox1.AddItem "Choice " & (ListBox1.ListCount + 1) 
 Next i 
 
 OptionButton1.Caption = "Single Selection" 
 ListBox1.MultiSelect = fmMultiSelectSingle 
 OptionButton1.Value = True 
 
 OptionButton2.Caption = "Multiple Selection" 
 OptionButton3.Caption = "Extended Selection" 
 
 CommandButton1.Caption = "Show selections" 
 CommandButton1.AutoSize = True 
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.