listbox FER

08/10/2004 - 01:29 por Gil Romero | Informe spam
Gracias Fer, funciona correctamente, solo hay un detalle,
al momento que seleccionó el sexto elemento me envia el
mensaje de que no se pueden seleccionar mas de 5 items,
hasta aquí esta perfecto, pero al momento de darle aceptar
me deja seleccionado el sexto elemento y me quita el
quinto elemento y necesito que queden seleccionados solo
los primeros cinco elementos que seleccione

Espero me puedas ayudar, de antemano gracias



Hola Gilro:
Prueba esto dentro del userform.

Private Sub ListBox1_Change()
Dim r As Integer
Dim elegido As Integer

elegido = 0

For r = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(r) Then elegido = elegido + 1
If elegido = 6 Then
ListBox1.Selected(r) = False
MsgBox "No se pueden selecionar más de 5


items", 16

Exit Sub
End If
Next

End Sub

 

Leer las respuestas

#1 Gilro
12/10/2004 - 01:16 | Informe spam
Gracias Fer, desafortunadamente tengo que lidiar con
usuarios especiales y precisamente tengo que evitar esto
que comentas, no se si exista otra forma

Saludos
Gil Romero


No entiendo, yo lo probe y anda bien

Si queres cambiar la seleccion cliquea sobre un item


seleccionado y este
automaticamente se deselecciona y luego elegis el que


quieras

Saludos, fer


"Gil Romero"


escribió en el mensaje
news:033f01c4acc5$7b14c4f0$
Gracias Fer, funciona correctamente, solo hay un detalle,
al momento que seleccionó el sexto elemento me envia el
mensaje de que no se pueden seleccionar mas de 5 items,
hasta aquí esta perfecto, pero al momento de darle aceptar
me deja seleccionado el sexto elemento y me quita el
quinto elemento y necesito que queden seleccionados solo
los primeros cinco elementos que seleccione

Espero me puedas ayudar, de antemano gracias


Hola Gilro:
Prueba esto dentro del userform.

Private Sub ListBox1_Change()
Dim r As Integer
Dim elegido As Integer

elegido = 0

For r = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(r) Then elegido = elegido +




1
If elegido = 6 Then
ListBox1.Selected(r) = False
MsgBox "No se pueden selecionar más de 5


items", 16
Exit Sub
End If
Next

End Sub





.

Preguntas similares