CONTROL CON ESCOGENCIA MULTIPLE

hola, QUINTA !

El control de Cuadro combinado (combobox) existe alguna manera de hacerlo de escogencia multiple?.
De no poder escoger una opcion multiple cual control podria utilizar para en una lista escoger varias opciones y como funciona.

-> suponiendo que estamos hablando de controles en un formulario...
- un combobox no admite selecciones multiples :-(
- un control listbox... SI :))
-> si estableces su propiedad 'MultiSelect' en 1-frmMultiSelectMulti o... 2-frmMultiSelectExtended
[la diferencia entre un modo y otro es si la seleccion multiple va a requerir de la tecla {ctrl} [extended] o no ;)

el siguiente ejemplo -asociado a algun boton dentro del formulario- lanza un msgbox con los elementos multi-seleccionados...
Private Sub CommandButton1_Click()
Dim Sig As Byte, Msj As String
With ListBox1
For Sig = 0 To .ListCount - 1
If .Selected(Sig) Then
If Msj <> "" Then Msj = Msj & vbCr
Msj = Msj & .List(Sig)
End If
Next
If Msj <> "" Then MsgBox "Seleccionados..." & vbCr & Msj
End With
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

MUCHAS GRACIAS UDS SON DE GRAN AYUDA

"Héctor Miguel" escribió:

hola, QUINTA !

> El control de Cuadro combinado (combobox) existe alguna manera de hacerlo de escogencia multiple?.
> De no poder escoger una opcion multiple cual control podria utilizar para en una lista escoger varias opciones y como funciona.

-> suponiendo que estamos hablando de controles en un formulario...
- un combobox no admite selecciones multiples :-(
- un control listbox... SI :))
-> si estableces su propiedad 'MultiSelect' en 1-frmMultiSelectMulti o... 2-frmMultiSelectExtended
[la diferencia entre un modo y otro es si la seleccion multiple va a requerir de la tecla {ctrl} [extended] o no ;)

el siguiente ejemplo -asociado a algun boton dentro del formulario- lanza un msgbox con los elementos multi-seleccionados...
Private Sub CommandButton1_Click()
Dim Sig As Byte, Msj As String
With ListBox1
For Sig = 0 To .ListCount - 1
If .Selected(Sig) Then
If Msj <> "" Then Msj = Msj & vbCr
Msj = Msj & .List(Sig)
End If
Next
If Msj <> "" Then MsgBox "Seleccionados..." & vbCr & Msj
End With
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.