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.


Nome do Autor

Sobre o autor

Flávio Santos é o editor-chefe do Tecla Ti. Vice campeão de todas as Américas em Tecnologia da Informação pela Worldskills Americas. Especialista Microsoft Office, programador VBA, C, JAVA, PHP e desenvolvedor de aplicações. Leia Mais sobre o autor >>>

0 comentários:

Postar um comentário