Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => 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 (vbnet) [Seleccionar]
WebBrowser1.Visible = False
a
Código (vbnet) [Seleccionar]
'WebBrowser1.Visible = False
o
Código (vbnet) [Seleccionar]
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 (vb) [Seleccionar]
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.