Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: GEORGEFRT en 12 Marzo 2015, 08:41 am



Título: De este código, que desaparece al WebBrowser?
Publicado por: GEORGEFRT en 12 Marzo 2015, 08:41 am
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  


Título: Re: De este código, que desaparece al WebBrowser?
Publicado por: tincopasan en 12 Marzo 2015, 09:15 am
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?


Título: Re: De este código, que desaparece al WebBrowser?
Publicado por: BlackM4ster en 12 Marzo 2015, 11:18 am
Comenta la línea
Código
  1. WebBrowser1.Visible = False
a
Código
  1. 'WebBrowser1.Visible = False
o
Código
  1. WebBrowser1.Visible = True


Título: Re: De este código, que desaparece al WebBrowser?
Publicado por: 79137913 en 12 Marzo 2015, 13:10 pm
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
  1. WebBrowser1.Visible = False
el mismo desaparece.

GRACIAS POR LEER!!!


Título: Re: De este código, que desaparece al WebBrowser?
Publicado por: GEORGEFRT en 13 Marzo 2015, 01:00 am
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


Título: Re: De este código, que desaparece al WebBrowser?
Publicado por: GEORGEFRT en 16 Marzo 2015, 01:39 am
y si yo quiero guardar el contenido del listbox a un .txt como seria, con un boton de guardar.