crear un browser

Iniciado por egeres, 7 Octubre 2011, 16:52 PM

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

egeres

hola soy nuevo en esta comunidad y me gustaría crear un browser ¿alguien podria poner aca el code ?, es para vb6  :D

$Edu$


egeres

no, me refiero a algo como firefox o google chrome

$Edu$

no, me refiero a algo como que busques en google o bing

egeres


BigBear

#5
por lo que eh leido , hacer un browser en delphi es mas facil que en VB, lo digo porque hay muchas referencias sobre como haberlo.

Edito:busque en google con "navegador VB" y me salen varios manuales para que puedas hacerlo

egeres

#6
sii, encontre los códigos, hace falta importar un componente, (pulsa ctrl + t) y busca Microsoft Internet Controls, seleccionalo y dale a aplicar. Después en la tabla de herramientas de la izquierda aparecerá un nuevo icono, como si fuese un botón lo pones y seleccionas un area (será el area en el que trabajaras on-line)


Private Sub Form_Load()
WebBrowser1.Navigate2 ("www.google.com")
End Sub


con ese ultimo codigo irá directamente a google, puedes "jugar" con text box y similares para crear un home, marcadores, etc...

Sanlegas

Cita de: $Edu$ en  7 Octubre 2011, 17:35 PM
no, me refiero a algo como que busques en google o bing

Me cague de risa con tu respuesta  :laugh: :xD :xD

@egeres
http://tinyurl.com/3s6nwtu

egeres


qopsinonstudios

#9
Es muy sencillo dejar un codigo, no sé por qué no te lo dejaron:
Tienes que añadir botones llamados:
-Boton_siguiente
-Boton_atras
-Boton_home
-Boton_Navegar
Y un textbox llamado:
-textbox_navegacion
Además, tendrás que añadir "Microsoft Internet Controls" en componentes:
El webbrowser1 lo dejamos tal y como se llama.
Código (vb) [Seleccionar]
Private Sub Form_Load()
webbrowser1.gohome
End Sub

Private Sub Boton_siguiente_Click()
on error resume next
webbrowser1.goforward
End Sub

Private Sub Boton_atras_Click()
on error resume next
webbrowser1.goback
End Sub

Private Sub Boton_home_Click()
webbrowser1.gohome
End Sub

Private Sub Boton_Navegar_Click()
webbrowser1.navigate textbox_navegacion.text
End Sub