Aprender] a usar WebBrowser (Básico) by hackmin

Bueno amigos de M-H hoy aprenderemos a usar el componente WebBrowser, la verdad que es bastante fácil...


Antes que nada tendremos que poner el complemento Microsoft Internet Controls

Por si alguien no sabe ponerlo..





Luego pon así el form como muestra la imagen, 4 comandos y un texto




y ya por ultimo ponemos el webrowser en nuestro form

Código:

Private Sub cmdgo_Click()
WebBrowser1.Navigate (Text1.Text)
End Sub
Private Sub cmdback_Click()
WebBrowser1.GoBack
End Sub
Private Sub Cmdforward_Click()
WebBrowser1.GoForward
End Sub
Private Sub cmdrefresh_Click()
WebBrowser1.Refresh
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate ("http://www.google.com")
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Text1.Text = (WebBrowser1.LocationURL)
Form1.Caption = (WebBrowser1.LocationName)

Bueno el código es muy fácil creo que con un traductor de google (si no sabes ingles) te dice para que sirve xP

Ej: navigate = navegar

Bueno chic@s cualquier duda ponerla que hare todo lo posible por ayudar


Saludos