El problema que tengo es al eliminar la primera lista agregada, por ejemplo:
Yo agrego una sola y al dar quitar esta se elimina, perfecto pero cuando agrego mas al intentar seleccionar las primeras para eliminarlas me dice que fuera de los limites obviamente hice un array pero no me funciona con el listbox sino con los combobox.
Este es el ejemplo que tengo al eliminar las listas del listbox:
Public Sub Button_quitar_Click()
Dim ArrayContenido1 As String[]
Dim a As Integer
Dim I As Integer
If ListBox_lista_multimedia.Text = "" Then
Message.Error("NO HAY LISTA SELECCIONADA PARA ELIMINAR!")
Else
ArrayContenido1 = ListBox_lista_multimedia.List
For a = 0 To (ArrayContenido1.count - 1) 'recorro todo el contenido del listbox
If ArrayContenido1[a] = ListBox_lista_multimedia.current.Text Then ListBox_lista_multimedia.Remove(a)-Fuera de los limites
Next
Endif
End
Dim ArrayContenido1 As String[]
Dim a As Integer
Dim I As Integer
If ListBox_lista_multimedia.Text = "" Then
Message.Error("NO HAY LISTA SELECCIONADA PARA ELIMINAR!")
Else
ArrayContenido1 = ListBox_lista_multimedia.List
For a = 0 To (ArrayContenido1.count - 1) 'recorro todo el contenido del listbox
If ArrayContenido1[a] = ListBox_lista_multimedia.current.Text Then ListBox_lista_multimedia.Remove(a)-Fuera de los limites
Next
Endif
End
Lo mas extraño es que yo si puedo ir eliminando las ultimas que he agregado, pero cuando intento eliminar las primeras me dice fuera de los limites en:If ArrayContenido1[a] = ListBox_lista_multimedia.current.Text Then ListBox_lista_multimedia.Remove(a), es como si el vector o array no reconociera el conteo de las primeras.