ola,tengo una pequeña duda,tengo un checkbox,q cuando lo pinchas impide abrirse ventanas emergentes,pero lo q quiero q cada vez q impida el acceso a una pagina,me las muestre en un label y se vallan sumando.No se si me e explicado bien,pero espero q me ayuden. ;D
pues le pones que en el evento click del check box agregue a una label lo que tu quieras, y si quieres con una variable Booleana controlas si esta marcado o no
como lo ago?
esq soy un poco burro
burro, no creo, seras novato...digo yo vamos, pero te e entendido mal, tu lo que quieres es que cuando se bloquee una ventana te avise como el IE con la barrita esa amarila no? esk eso no se, q estas haciendo una navegador no? como lo estas haciendo?
estoy haciendo un navegador,tiene la opcion anti ventanas emergentes,pero lo que quiero hacer es q cuando bloque alguna pagina me salga en el formulario el numero de paginas bloqueadas,y si encuentra otra,q lo sume
estoy haciendo un navegador,tiene la opcion anti ventanas emergentes,pero lo que quiero hacer es q cuando bloque alguna pagina me salga en el formulario el numero de paginas bloqueadas,y si encuentra otra,q lo sume,no se si me explico
cuentame como has exo para que las bloque, ¿estas utilizando el control del IE?
q yo sepa no e usado ningun control d IE. t paso el codigo
esto es lo q hace cuando pulso el checkbox
Private Sub chkpopup_Click()
On Error Resume Next
'pop-up ad blocking
If chkpopup.Value = 1 Then
txtblock.Visible = True
txtnumber.Visible = True
ElseIf chkpopup.Value = 0 Then
txtblock.Visible = False
txtnumber.Visible = False
ElseIf chkpopup.Value = 2 Then
txtblock.Visible = True
txtnumber.Visible = True
End If
End Sub
y despues
Private Sub webbrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
On Error Resume Next
If chkpopup.Value = 1 Then
Cancel = True
txtnumber.Text = txtnumber.Text + 1
ElseIf chkpopup.Value = 0 Then
Cancel = False
ElseIf chkpopup.Value = 2 Then
Cancel = True
txtnumber.Text = txtnumber.Text + 1
End If
End Sub
pero lo q quiero es q me diga q a bloqueado una pagina y el numero total de bloqueadas,con que me lo diga en un label me conformo
muy facil, en el procedimiento de bloquear la ventana le añades label1.caption (etiketa de las ventanas) = label1.caption + 1
osea
Label1.caption = Label1.caption + 1
no me funciona,me sigue diciendo label1 envez de el numero d paginas bloqueadas
espera se me olvido decirte que tienes que pasarlo a variables integer para que lo sume y ademas primero debes poner un cerete en la label no cres?¿
la verdad que sí porque yo no sabía que las letras se podian sumar :P L+R = 5 jajajajaj en todo caso sumas cadenas de caracteres L+R = LR o LOLO + HOLA = LOLOHOLA jejje
pero al definir la variable en integer tenes 2 opciones:
1)
Private sub form_load()
label1.caption = "0"
end sub
o poner en la propiedad caption del label 0
chau
como ya dije antes,soy un burro.ME podeis poner el codigo entero y explicarme el codigo?
GRACIAS POR LAS MOLESTIAS
Ponle esto:
If IsNumeric(Label1.Caption) Then
Label1.caption = cInt(Label1.caption) + 1
Else
'No es numero, no se puede sumar
End
no va,no se si habeis entendido mi pregunta,pero lo q quiero hacer esq cuando boque una pagina me lo ponga en un label,y
cada vez las vaya sumando
tronco!! y que te estamos diciendo!! que en el proceso de bloquear una pagina hagas esto
form1.load
Label1.caption= "0"
end sub
'En el proceso de bloqueo
Label1.caption = label1.caption +1
Asi cada vez que se bloque una ventana se pone el numero que hubiera mas uno
MIL GRACIAS
YA ME FUNCIONA
GRACIAS POR AGUANTARME Y SIENTO A VER SIDO TAN PESADO