Cita:
Iniciado por rdorlando
Bue aunque paresca tonto mirando otra aplicacion que no daba problema, lo resolvi asi, en un marco pongo el webBrowser y otro control, y listo funciona, eso si no se porque es que asi no da problemas, Bue prueben y solo por curiosidad desearia saber porque es que asi funciona jaja.
hola que tal
Cureoseando un poco me tope que con el siguiente codigo de ejemplo
de libre distribucion en una pagina de por aqui
el problema que obtengo es que al intentar navegar
en algunas webs que posiblemente tengan errores de estructuracion de codigo
arroja el tan conocido siguiente error
error en tiempo de ejecucion, linea 1 caracter 1
dicho error es arrojado por lo mismo de que algunas webs tienen problemas de estructuracion de codigo, pero eso es muy comun
lo molesto de esto
es que dicho control webbrowser la hace mucho de a emocion con respecto a esto
se supone que hay un evento de dicho control
que permite pasar por alto este tipo de errores
pero tal evento no esta funcionando como debe
la pregunta es???
tiene solucion??
es conveniente seguir invirtiendo tiempo
en este tipo de lenguaje para hacer este navegador?
o hay alternativas?
de ser así
no se si haya alguien que quiera compartir algo
no importa bajo que plataforma sea
da igual por que no se programar XD
lo que hago es moverle al codigo
y si jala??, chido!!!
y si no ps hay luego!!! y mejor pregunto hahahaha
sobres camaradas!!!
gracias por su atencion y esperemos ver que va de esto
Private Sub Command1_Click()
On Error Resume Next ' funcion para que si hay algun error se siga ejectando el codigo
WebBrowser1.GoBack ' Funcion para ir para atras en el navegador
End Sub
Private Sub Command2_Click()
On Error Resume Next ' funcion para que si hay algun error se siga ejectando el codigo
WebBrowser1.GoForward ' Funcion para ir para adelante en el navegador
End Sub
Private Sub Command3_Click()
WebBrowser1.Stop ' Funcion para detener la carga de la web
End Sub
Private Sub Command4_Click()
WebBrowser1.Navigate Text1.Text ' Funcion para actualizar la web
End Sub
Private Sub Form_Load()
Command1.Caption = "<<" ' Cambia el caption
Command2.Caption = ">>" ' Cambia el caption
Command3.Caption = "Parar" ' Cambia el caption
Command4.Caption = "Actalizar" ' Cambia el caption
Text1.Text = "malditos foros del web te maldigo por no permitirme insertar direcciones web" ' Incrusta Url en la propiedad text del Textbox
Text1.Locked = False ' activa el campo de texto
WebBrowser1.Navigate Text1.Text ' va a la pagina principal que tenemos en el internet explorer
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String) ' Cuando cambia la web cambian las siguientes funciones
Text1.Text = WebBrowser1.LocationURL ' le da el valor al text1 con el link de la web actual
Me.Caption = WebBrowser1.LocationName & " - (AnimeShots)" ' cambia el titulo del form con el titlo de la web
End Sub