En Formulario
Private Sub cmdBloqueo_Click()
BlockInput True
ShowCursor False
End Sub
Private Sub Form_Load()
tmrTiempo.Interval = 60000
End Sub
Private Sub tmrTiempo_Timer()
BlockInput False
ShowCursor True
End
En Modulo
Public Declare Function BlockInput Lib "user32" _
(ByVal fBlock As Long) As Long
Declare Function ShowCursor Lib "user32" _
(ByVal bShow As Long) As Long
Bueno ese es el codigo, me bloquea el mouse un minutito pero mas no :-[ como le ago
ya intente esto
tmrTiempo.Interval = 60000*2
y nada
Entonces kitalo del timer o se kieres ponerlo x tiempo hace una funcion k cuente el tiempo.
Poner esto tmrTiempo.Interval = 60000*2 es = k poner esto
tmrTiempo.Interval = 120000 y el maximo es 60000
Salu2
asi si se puede tmrTiempo.Interval = 60000*2
ya rectifique y si se puede grax
bah no digas tonterias eso no se puede... Por cierto no es 60000 el maximo, es 65000 ms pero 120000 xDDDDD
Salu2
no se tu pero a mi si me sirvio
tiene vastante logica : 60000*2
y aparte cuando lo prove eche andar un cronometro xD
Aver te explico pork eso no puede funkar:
Run-Time error '380':
Invalid property value
Como es obio... se el maximo es 65000 ms no tiene logica ninguna eso funcionar pork como dice 60000*2 es exactamente los mismo k poner 120000.
Esta es la parte k kualkiera k sepa lo k esta haciendo al poner 60000*2 entendria.
Ahora se aun asi no estas convencido googlea un poco y veras el numero de soluciones k salen para esto, funciones en k a cada 60000 ms hacen aumentar una variable y kuando llega al valor 'x' entonces ha pasado 'y' tiempo.
Una otra solucion se insistes en eso seria: tu vb es anormal xD
Salu2