juanc_educ
07 de Abril del 2004

Hola, tengo un problema y no sé como solucionarlo. Lo que pasa es que tengo un ListBox con elementos en ella pero quiero restringir la cantidad que el usuario puede seleccionar.
Si alguien sabe como hacerlo se los agradeceria contarmelo.
Gracias
Juan

Alejandro R.
07 de Abril del 2004

¿En tu programa hay varios usuarios, y quieres que te aparezcan diferentes opciones dependiendo del tipo de usuario, o solo quieres que el usuario pueda elegir una opcion inicial por default?
Un poco mas de informacion.

juanc_educ
07 de Abril del 2004

El tema es que el usuario debe seleccionar multiples datos de un List pero la cantidad maxima que puede seleccionar es de 3 y no quiero que pueda seleccionar mas de esa cantidad

sdemingo
07 de Abril del 2004

Hola,

no está muy depurado porque no tengo mucho tiempo, así que es posible que en algunos casos falle, pero te paso un código de ejemplo para que a partir de ahí puedas sacarlo.

el listbox tiene que tener su propiedad Multiselect = 1

Private Sub Form_Load()

List1.AddItem "Elemento 1"
List1.AddItem "Elemento 2"
List1.AddItem "Elemento 3"
List1.AddItem "Elemento 4"
List1.AddItem "Elemento 5"
List1.AddItem "Elemento 6"
List1.AddItem "Elemento 7"

End Sub


Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim i As Integer

i = List1.SelCount
If List1.SelCount > 3 Then
MsgBox "Solo puedes seleccionar 3 elementos"
List1.Selected(i) = False
End If

End Sub

salu2
sdemingo
http://boards.melodysoft.com/sdemingo