Como Crear un Web Browser en visual basic 5 y 6

[700esoj]

EL codigo es

Código:

Private Sub Command1_click
If Text1.text<> "" Then
Webbrowser1.navigate text1.text
if Webbrowser1.visible = False Then
Webbrowser1. Visible = True
end iF
End If
end sub

Private Sub text1_keyPress(keyAscii As Integer)
If KeyAScci = 13 Then
Enter
Command1_click
end if
end Sub
Private Sub WebBrowser1_downloadBegin()
StatusBar1.panels(1).text = "loading/cargando"
end Sub

Private Sub Webbrowser1_downloadComplete()
StatusBar.Panel(1).text = "done/listo"
end Sub

Esta Aplicacion utiliza el Control no estandar, por lo tanto necesitamos extraerlo de componentes.  Busquen en Project, Component, Microsot Internet Control.

Si desea Tambien puede extraer el Toolbar 1.0 type library pero no es necesario.





BIen eso es todo!

Criticas, comentarios etc.

Gracias.

[ranefi]

¡Gracias por tu aporte 700esoj! Y por cierto, ¡bienvenido al foro!

[maurivi]

Creo que hay un par de errores en el codigo, pero nada del otro mundo, se soluciona facil.
Pruebenlo asi a ver que pasa:

Private Sub Command1_click()
If Text1.Text <> "" Then
WebBrowser1.Na vigate Text1.Text
If WebBrowser1.Vi sible = False Then
WebBrowser1.Vi sible = True
End If
End If
End Sub

Private Sub text1_keyPress(keyAscii As Integer)
If keyAscii = 13 Then Command1_click
End Sub
Private Sub WebBrowser1_do wnloadBegin()
StatusBar1.Pan els(1).Text = "loading/cargando"
End Sub

Private Sub Webbrowser1_do wnloadComplete ()
StatusBar1.Pan els(1).Text = "done/listo"
End Sub


Ni que hablar que hay que usar un textbox, un command, un control Statusbar que se trae desde Microsoft Windows Common Controls y el navegador que es el Microsoft internet control.
Saludos.....