ComboBox para NavegadorWeb

[boeing763]

Hola a todos!!

Estoy haciendo un navegador web y me he quedado "atascaillo", pues consigo que se guarden las direcciones en el combobox, pero se repiten si pongo la misma dirección varias veces, y no se deben de repetir, y también, no debe guardar el about:blank

he creado un método que luego llamaré en el evento webbrowser_documentCompleted, puesto que no quiero que se guarden hasta que se haya cargado la página, por si ésta no esxistiera o la escribiéramos mal.

El método es:

Private Sub buscadirecciones(ByVal buscar As String)
Dim i As Integer
For i = 0 To ComboBox1.Items.Count - 1
If buscar <> ComboBox1.Items(i) And buscar <> "about:blank" Then
ComboBox1.Items.Add(buscar)
i = i + 1
End If
Next

End Sub

Seguro que es una chorrada, pero me está volviendo loco...

Gracias a tod@s!!!

[bookmaster]

Puedes probar a hacer lo siguiente, esto lo estoy usando yo para ver que formularios estan abiertos ya y no volver a abrirlos.

Código vb:

' Este lo declaras dentro del Class
Public ControlAbiertos As New List(Of String)
 
' Esto ya iria en una funcion
If Not ControlAbiertos.Contains(Pagina) Then            
            ControlAbiertos.Add(Pagina)
End If
 

Te explico por encima lo que se pretende conseguir con esto:

ControlAbiertos es una lista de Strings (En este caso las URL)
Pagina es la URL que le estas intentando meter

El IF te esta buscando lo que estas intentando meter en la lista que ya tienes, si no lo a encontrado lo mete, sino no hace nada.

Luego para rellenar el control del combo puedes hacer un For Each a ControlAbiertos, que contendrá todas las páginas abiertas sin que esten repetidas.
Dentro del IF tambien le puedes meter la parte de que si la página es "about:blank" que tampoco la meta.

Como digo siempre este es un código de ejemplo, luego cada uno lo adapta a las necesidades que se tengan.

Código vb:

Dim ControlAbiertos As New List(Of String)
        Dim Pagina As String
        Pagina = "" ' Aqui tienes que meterle la url según la estés obteniendo.
        ' Esto ya iria en una funcion
        If Not ControlAbiertos.Contains(Pagina) And Pagina <> "about:blank" Then
            ControlAbiertos.Add(Pagina)
        End If
 
        ' Esto seria por ejemplo para llenar con las paginas
        For Each Urls In ControlAbiertos
            ComboBox1.Items.Add(Urls)
        Next
 

Luego en el caso de querer borrar alguna URL simplemente le haces un ControlAbiertos.Remove(Pagina) y listo.

Espero que te sirva el ejemplo y consigas lo que necesitas.

[boeing763]

Gracias por la respuesta bookmaster, pero se guardan las direcciones,pero pasándole lo mismo que a mi, que se repiten las direcciones en el desplegable.

Seguiré investigando

Muchas gracias de nuevo y perdona la tardanza pero dejé apartado el navegador durante un tiempito porque estaba con otros trabajos.

Un saludo!!