Autor
En Formulario
Código:
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
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:
Public Declare Function BlockInput Lib "user32" _
(ByVal fBlock As Long) As Long
Declare Function ShowCursor Lib "user32" _
(ByVal bShow As Long) As Long
(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
En línea
