Eliminar post, problema solucionado
Se me ocurre que no has puesto intervalo inicial al Timer, de esta manera, aunque lo habilites, no ocurriría nada... :-\
Yo haía algo así:
Option Explicit
Private Sub Command1_Click()
WebBrowser1.Visible = True ' No era necesario ponerlo en el timer (supongo)
Call ChangeInterval
Timer1.Enabled = True
Call Timer1_Timer
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Text1.Locked = False
WebBrowser1.Visible = False
End Sub
Private Sub Form_Load()
Me.Caption = "Long Life To Frogs! :D"
WebBrowser1.Visible = False
Timer1.Enabled = False
Text2.Text = "5000" ' cada 5 seg
Text1.Text = "http://www.google.es"
End Sub
Private Sub ChangeInterval()
Timer1.Interval = CLng(Text2.Text)
End Sub
Private Sub Timer1_Timer()
WebBrowser1.Navigate Text1.Text
Call ChangeInterval
' ¿Esto es necesario que vaya aqui?; si quieres que el tiempo no pueda ser modificado cuando el Timer esté activado
' esto estaría de más... :P
End Sub
La otra cosa que se me ocurre es que si no cambias la pág de Text1, se cargará la misma y igual no te das cuenta.
No sé, solo digo todas las posibilidades que me vienen a la cabeza... :P
Al menos a mi me funciona así... :silbar:
Feliz año! ;)
DoEvents! :P
No lo he probado, pero tener el tiempo del timer definido al final del mismo timer da una mala sensacion ya por funcionamiento. Yo de ti, la linea que defines el tiempo la pondria en el command1 quedando asi:
Private Sub Command1_Click()
Timer1.Interval = Text2.Text
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Text1.Locked = False
End Sub
Private Sub Timer1_Timer()
WebBrowser1.Visible = True
WebBrowser1.Navigate Text1.Text
End Sub
Por otra parte, en el timer1 pones visible=true, porque no lo defines desde un inicio como true? o almenos en el object inspector (ventana propiedades) define el objeto como visible y el intervalo de tiempo, asi ya no necesitaras escribir esas dos lineas.
Eliminar post, problema solucionado
Como es Nochevieja, te hice el ejemplo:
http://www.mediafire.com/?293vathdo29igu4
DoEvents! :P
Yo lo probe y funcioan, como que no te funciona? Eso es que debes poner algo mal o un error similar, no puede ser que ese programa de 5 lineas no te funcione. :xD
Por cierto, para que es la aplicacion? Te aviso que si es un intento de programa DDoser o para hacer votaciones o ganar visitas etc.. no te funcionara.