Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: pungados en 1 Diciembre 2007, 00:27 am



Título: Web Browser
Publicado por: pungados en 1 Diciembre 2007, 00:27 am
Mientras hacia un web browser se me planteo un problemilla...
Cuando pongo la propiedad wbr1.goback ( y no hay pagina para volver atras) me tira error.
Para solucionarlo estaba pensando en ponerle a una variable como valor = 1, cuando hay una pagina previa, y valor 0 cuando no.
Me parecía una buena solución pero... no se como hacer para saber si hay una pagina previa jeje.
Si alguno me puede decir esa simple línea (estoy seguro) estaría muy agradecido.

PD: si hay otra forma de solucionar el problema soy todo orejas, mientras no sea esa que vi por ahi que es con "on error goto pirulo" y desp en pirulo había un if para saber si el error que te tiraba era -2147467259 entonces depuraba... cosa que no funcaba :( .

Muchas Gracias.
Salu2


Título: Re: Web Browser
Publicado por: demoniox12 en 1 Diciembre 2007, 00:51 am
Mientras hacia un web browser se me planteo un problemilla...
Cuando pongo la propiedad wbr1.goback ( y no hay pagina para volver atras) me tira error.
Para solucionarlo estaba pensando en ponerle a una variable como valor = 1, cuando hay una pagina previa, y valor 0 cuando no.
Me parecía una buena solución pero... no se como hacer para saber si hay una pagina previa jeje.
Si alguno me puede decir esa simple línea (estoy seguro) estaría muy agradecido.

PD: si hay otra forma de solucionar el problema soy todo orejas, mientras no sea esa que vi por ahi que es con "on error goto pirulo" y desp en pirulo había un if para saber si el error que te tiraba era -2147467259 entonces depuraba... cosa que no funcaba :( .

Muchas Gracias.
Salu2

Código:
Private Sub Command1_Click()
On Error GoTo lala
wb.GoBack
Exit Sub
lala: MsgBox ("No hay mas atras")
End Sub

espero te sirva..

salu2!


Título: Re: Web Browser
Publicado por: pungados en 1 Diciembre 2007, 00:53 am
No no sirve :(  gracias = kpo.
Salu2


Título: Re: Web Browser
Publicado por: Lambda en 1 Diciembre 2007, 12:11 pm
No no sirve :(  gracias = kpo.
Salu2

Private Sub Command_Click()
On Error Resume Next
wb.GoBack
End Sub

Lo probe y no me tira error con este



Título: Re: Web Browser
Publicado por: pungados en 2 Diciembre 2007, 14:22 pm
(http://img413.imageshack.us/img413/7213/erram6.png)

Lambda ahora me tira este error :(

Sory por joder.
Salu2


Título: Re: Web Browser
Publicado por: FaiF (A¥åHøRå) en 2 Diciembre 2007, 16:27 pm
Eso es por que es Command1 en vez de Command y wbr1 en vez de wb:

Código:
Private Sub Command1_Click()
On Error Resume Next
wbr1.GoBack
End Sub

salu2  ;)


Título: Re: Web Browser
Publicado por: pungados en 3 Diciembre 2007, 20:58 pm
Para no agregar otro post...
Alguno me sabe decir el codigo para relacionar la barra de progreso,  cuando se activa el proseso navigate?
Yo tengo este código y me tira error.
Código:
Private Sub wbr_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error GoTo asd
ccrpProgressBar1.Max = ProgressMax
ccrpProgressBar1.Value = Progress
 If ccrpProgressBar1 <= 0 Then
       ccrpProgressBar1.Visible = False
    Else
       ccrpProgressBar1.Visible = True
    End If
Exit Sub

asd:
If Err.Number = 380 Then Resume Next
End Sub

Salu2