De este código, que desaparece al WebBrowser?

Iniciado por GEORGEFRT, 12 Marzo 2015, 08:41 AM

0 Miembros y 1 Visitante están viendo este tema.

GEORGEFRT

De este código que encontré, lo ejecute y puse los requerimientos pero al momento de ejecutarlo desaparece el WebBrowser, que opción hace que se desaparezca, no se mucho de programación.

Un webBrowser
Un Listbox
Un TextBox
Un Button

----------------------------------------CODIGO
Option Explicit On  
Option Strict On  
 
Public Class Form1  
 
   Private Sub Button1_Click( _  
       ByVal sender As System.Object, _  
       ByVal e As System.EventArgs) Handles Button1.Click  
       ListBox1.Items.Clear()  
       WebBrowser1.Navigate(TextBox1.Text.Trim)  
 
   End Sub  
 
   Private Sub WebBrowser1_DocumentCompleted( _  
       ByVal sender As System.Object, _  
       ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) _  
       Handles WebBrowser1.DocumentCompleted  
 
       If e.Url.ToString = String.Empty Or e.Url.ToString = "http:///" Then  
           Exit Sub  
       End If  
       Try  
           Me.Cursor = Cursors.WaitCursor  
 
           Call links()  
 
           Me.Cursor = Cursors.Default  
 
       Catch ex As Exception  
           Debug.Print(ex.Message.ToString)  
       End Try  
 
   End Sub  
 
   'Extrae los links  
   ' ''''''''''''''''''''''''''''''''  
   Private Sub links()  
 
       ListBox1.Items.Clear()  
       For i As Integer = 0 To WebBrowser1.Document.Links.Count - 1  
           ListBox1.Items.Add(WebBrowser1.Document.Links.Item(i).GetAttribute("href"))  
       Next  
 
   End Sub  
 
   Private Sub Form1_Load( _  
       ByVal sender As System.Object, _  
       ByVal e As System.EventArgs) Handles MyBase.Load  
       Button1.Text = " Cargar página y obtener links "  
       WebBrowser1.Visible = False  
       TextBox1.Text = "www.google.com"  
 
   End Sub  
End Class  

tincopasan

diria que no se mucho de programación es no se nada, en todo caso ¿será WebBrowser1.Visible = False ?  lo que está despues del punto es un propiedad, supongo que visible es para verlo e igual a false ¿suena a que no?

BlackM4ster

Comenta la línea
Código (vbnet) [Seleccionar]
WebBrowser1.Visible = False
a
Código (vbnet) [Seleccionar]
'WebBrowser1.Visible = False
o
Código (vbnet) [Seleccionar]
WebBrowser1.Visible = True
- Pásate por mi web -
https://codeisc.com

79137913

HOLA!!!

Exactamente como dice BlackM4aster , aunque la respuesta correcta seria que la operacion .Visible hace que los controles aparezcan ( True ) o desaparezcan ( False ) por ende en la instruccion
Código (vb) [Seleccionar]
WebBrowser1.Visible = False el mismo desaparece.

GRACIAS POR LEER!!!
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

79137913                          *Shadow Scouts Team*

GEORGEFRT

Gracias mucha razón y creerán que no vi esa instrucción, gracias, por su ayuda bueno espero compartir este programa ya terminado y solucionado, recolecta los url de las pagina en donde navega uno. Gracias

GEORGEFRT

y si yo quiero guardar el contenido del listbox a un .txt como seria, con un boton de guardar.