Quiero que mi aplicacion este siempre en la misma página web
Y miren como intente hacerlo:
If Text = "http://web.com" Then
Else
WebBrowser1.Navigate "http://web.com"
End If
Pero no me carga para hace el loop sin más..
Quieres recargar la misma página?
.
No entiendo la duda... :-\
Explicate mejor
DoEvents! :P
HOLA!!!
Creo que comprendi lo que queres hacer.
Te dejo el codigo y me decis como te fue:
'ESTO SI QUERES QUE EXCLUSIVAMENTE ESTE EN TU PAGINA PRINCIPAL
Private Sub WebBrowser1_DownloadBegin()
If Not WebBrowser1.LocationURL = "http://web.com" Then
WebBrowser1.Navigate "http://web.com"
End If
End Sub
'ESTO SI QUERES QUE NAVEGUE POR TODA TU WEB
Private Sub WebBrowser1_DownloadBegin()
If Not Mid(WebBrowser1.LocationURL, 1, Len("http://web.com")) = "http://web.com" Then
WebBrowser1.Navigate "http://web.com"
End If
End Sub
GRACIAS POR LEER!!!
Puedes probar así:
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
If Not WebBrowser1.LocationURL = "http://web.com" Then WebBrowser1.Navigate "http://web.com"
End Sub
Un saludo.
Muchas gracias a aaronduran2 y a 79137913.
Psyke, como ves me entendieron todos, janito también pero no tuve tiempo de decirle que si.
Saludos.
Sí no me equivoco hay un método refresh que sería para recargar, podrías usarlo con un timer y listo, sin complicarse
No, ya me sirvió lo de aaronduran.
Cita de: Komodo en 30 Septiembre 2010, 20:06 PM
Muchas gracias a aaronduran2 y a 79137913.
Psyke, como ves me entendieron todos, janito también pero no tuve tiempo de decirle que si.
Saludos.
Lo siento hombre, no lei bien... :-\
DoEvents! :P
No pasa nada, hombre.
Ya mostraré resultado de esto en rtfucker :)