Foro de elhacker.net

tanto molestarles   :rolleyes:

lo que quiero es eliminar los items en blanco o vacios de un listbox
ejemplo:


y que me quede sin los item vacios


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

??

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!¡.