Mostrando entradas con la etiqueta DESACTIVAR TECLAS Y RATÓN AL USUARIO. Mostrar todas las entradas
Mostrando entradas con la etiqueta DESACTIVAR TECLAS Y RATÓN AL USUARIO. Mostrar todas las entradas

DESACTIVAR TECLAS Y RATÓN AL USUARIO

 Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long


 Private Sub  .....
        BlockInput(True) 'bloqueamos las interacciones del usuario 
         '<--- llamadas a las rutinas que deseamos ejecutar con las interacciones del usuario bloqueadas--->
        BlockInput(False)' desbloqueamos las interacciones del usuario
  End Sub