|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Mouse/Teclado)
|
|
 |
Título da Dica: Desabilitar o mouse (Via API)
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
1. Declare a API que oculta/exibe o mouse (no módulo):
Declare Function ShowCursor Lib "user32" Alias _
"ShowCursor" (ByVal bShow as Long) as Long
2. Chame-a no form_load:
ShowCursor False 'oculta o mouse
3. No form_unload, re-exiba o mouse:
ShowCursor True
4. Crie uma rotina Form_Mouse e Form_KeyDown. Se houver movimento e teclas pressionadas, finalize o programa.
Unload Me 'descarrega o form e devolve o mouse
End 'garante o fechamento do programa
|
|
|
|
|
