Me bloquea el mouse 1 minuto mas no :(

[̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿]

En Formulario

Código [Seleccionar] Expandir


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

Código [Seleccionar] Expandir


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

[Tughack]

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

[Tughack]

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

[Tughack]

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