none
VBA Para eliminar un items de un listbox si cumple un criterio RRS feed

  • Pregunta

  • TENGO UN FORMULARIO EN DODNE HABRE UN LISTBOX, ESE LISTBOX TIENE VARIOS DATOS, QUIERO QUE REMUEVA CON UN BOTON SOLO LOS ITEMS SIGUIENES  :

    "CUBA"

    "MEXICO"

    "COLOMBIA"

    "VENEZUELA"

    Y LOS DEMAS DATOS QUE ESTAN EN MI LISTBOX SI NO SON IGUALES, QUE NO LOS PUEDA REMOVER CESTE BOTON.

    viernes, 27 de septiembre de 2019 18:32

Todas las respuestas

  • Puedes recorrer los items del ListBox en orden inverso y comprobar si su texto coincide con uno de los buscados. Si es así lo eliminas:

    For j As Integer = ListBox1.Items.Count - 1 To 0 Step -1 
    
        Dim TextoItem As String = ListBox1.Items(i).ToString.ToUpper()
    
        If TextoItem = "CUBA" or TextoItem = "MEXICO" or TextoItem = "COLOMBIA" or TextoItem = "VENEZUELA" Then
            ListBox1.Items.RemoveAt(j) ' elimina el elemento indicando el índice                     
        End If
    
    Next


    Saludos, Javier J

    • Propuesto como respuesta Pablo Rubio miércoles, 2 de octubre de 2019 16:32
    lunes, 30 de septiembre de 2019 6:18