tanto molestarles :rolleyes:
lo que quiero es eliminar los items en blanco o vacios de un listbox
ejemplo:
1
2
3
4
5
y que me quede sin los item vacios
1
2
3
4
5
como lo hago? ideas..
ah! y gracias por sus respuestas ;)
podrias recorrer los items de listbox con un for
y comparar con un if si el item de la lista tiene algo o esta vacio
if item(x) = "" then
item(x).remove
un saludo
oye pero me tira error
For X = 0 To (List1.ListCount - 1)
If List1.List(X) = "" Then
List1.RemoveItem (X)
End If
Next X
??
Qué error?, sé mas especifico...
error 5 en tiempo de ejecucion:
llamada a procedimiento o argumentos no validos
terminar depurar ayuda
y muestra error en la linea
List1.RemoveItem (X)
porque?
Hay algo que no tienes en cuenta:
Estas usando un bucle FOR, el cual va desde 0 hasta (listcount - 1).
El problema es que (listcount - 1) se evalúa la primera vez que entras al FOR.
Entonces, si eliminas elementos de la lista, llegará el momento en que el indice que usas, no será válido.
La solucion es usar un while con un indice que se incremente sólo cuando no debes borrar, osea:
Dim x As Long
x = 0
Do While x <= (List1.ListCount - 1)
If List1.List(x) = "" Then
List1.RemoveItem (x)
Else
x = x + 1
End If
Loop
Saludos!
No me di cuenta y te respondi acá...
http://foro.elhacker.net/programacion_visual_basic/como_declarar_en_visual_basic_60-t412339.0.html;msg1934783#msg1934783
Dulces Lunas!¡.