Ver Mensaje Individual
  #2 (permalink)  
Antiguo 24/12/2012, 22:47
Avatar de bookmaster
bookmaster
 
Fecha de Ingreso: febrero-2002
Ubicación: Toledo
Mensajes: 976
Antigüedad: 22 años, 3 meses
Puntos: 67
Respuesta: ComboBox para NavegadorWeb

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:
Ver original
  1. ' Este lo declaras dentro del Class
  2. Public ControlAbiertos As New List(Of String)
  3.  
  4. ' Esto ya iria en una funcion
  5. If Not ControlAbiertos.Contains(Pagina) Then            
  6.             ControlAbiertos.Add(Pagina)
  7. 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:
Ver original
  1. Dim ControlAbiertos As New List(Of String)
  2.         Dim Pagina As String
  3.         Pagina = "" ' Aqui tienes que meterle la url según la estés obteniendo.
  4.        ' Esto ya iria en una funcion
  5.        If Not ControlAbiertos.Contains(Pagina) And Pagina <> "about:blank" Then
  6.             ControlAbiertos.Add(Pagina)
  7.         End If
  8.  
  9.         ' Esto seria por ejemplo para llenar con las paginas
  10.        For Each Urls In ControlAbiertos
  11.             ComboBox1.Items.Add(Urls)
  12.         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.
__________________
Decir si te a funcionado la respuesta es ¡GRATIS!. Por favor indicarlo.
http://www.lohacemosweb.net
http://tutoriales.lohacemosweb.net