Desabilitar Mouse Formulário Access

Dica rápida e prática. Suponha que você queira desabilitar o mouse quando um determinado formulário é aberto para obrigar o usuário a usar somente o teclado, como proceder?

É conhecido de muitos que para bloquear o uso do botão direito do mouse basta ir nas propriedades do formulário e na guia "Outra" colocar como "Não" a propriedade "Menu de Atalho". Mas isso não desabilita o botão direito, nem tão pouco o mouse.

Para desabilitar o mouse, faça o seguinte:

Na janela VB do seu formulário, digite o código abaixo, fora de qualquer evento. Para facilitar, digite ele logo abaixo de "Option Compare Database":

Private Declare Function ShowCursor Lib "user32" (ByVal bshow As Long) As Long

Agora, no Evento "Ao carregar" do formulário, digite o código:

ShowCursor 0

Prontinho! Resolvido. Agora sempre que você abrir seu formulário, o cursor do seu mouse ficará desabilitado.

Para que seu mouse volte às funções normais, coloque no Eveto "Ao fechar" do seu formulário o código:

ShowCursor 1

Use sua criatividade e bom divertimento.

Um comentário: