Visual Basic - selecciones en listbox

Life is soft - evento anual de software empresarial
 
Vista:

selecciones en listbox

Publicado por angie (11 intervenciones) el 26/12/2006 10:52:25
Hola,

Quiero realizar un filtrado a partir de las selecciones que un usuario haga en un listbox, de manera que a continuación se muestren tan sólo los elementos que el usuario haya escogido.

¿Alguna sugerencia?

Muchas gracias, un saludo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:selecciones en listbox

Publicado por AlbertoV (200 intervenciones) el 26/12/2006 12:17:21
Hola.
Si, te sugiero que expliques donde querés hacer el filtrado, supongo que será en alguna consulta de una base de datos. Pero ¿qué tipo de base de datos?, ¿o es desde un archivo de texto?.
La selección que hace el usuario ¿es de los nombres de campos de la base?, ¿puede seleccionar uno sólo o varios?
Son detalles que te pueden parecer obvios, pero aquí hay cientos de consultas por día, y las respuestas a lo que te pregunto son muy variadas.
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:selecciones en listbox

Publicado por Jasall (60 intervenciones) el 26/12/2006 23:57:47
Buenas, te mustro una manera de hacerlo. en un from , pon un list1 y un Command1
'
Private Sub _Click()
Dim Lista() As String ' temporal
Dim Cont As Integer ' contador lista nueva
Cont = 0

For i = 0 To List1.ListCount - 1
List1.ListIndex = i
If List1.Selected(i) = True Then ' si esta seleccionado
ReDim Preserve Lista(Cont) ' redimensionamos la lista
Lista(Cont) = List1.Text ' guardamos el valor
Cont = Cont + 1
End If
Next
List1.Clear

For i = 0 To UBound(Lista) ' llenamos el list con la lista temporal
List1.AddItem Lista(i)
Next

End Sub

Private Sub Form_Load()

For i = 1 To 10

List1.AddItem i

Next

End Sub
'saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar