Descrição:
Como desabilitar o mouse e utilizar um cursor controlado pelo teclado do computador?
Solução:
Não é recomendado desabilitar o mouse completamente. O que sugerimos fazer na aplicação E3 é simplesmente não utilizá-lo. Para isto, basta não fazer eventos Click em nenhum objeto das telas.
Para criar um cursor controlado pelo teclado, vamos utilizar o evento KeyDown da tela:
Sub TelaCursor_KeyDown(KeyCode, Shift)
São quatro linhas de script, uma para cada direção que o cursor pode navegar (para cima, baixo, direita, esquerda). Usaremos o recurso Select Case para descobrir qual tecla foi pressionada. Veja:
Select case KeyCode
case 39 ‘RIGHT
Item(“Cursor”).X =(Item(“Cursor”).X) + 200
case 37 ‘LEFT
Item(“Cursor”).X =(Item(“Cursor”).X) – 200
case 40 ‘DOWN
Item(“Cursor”).Y =(Item(“Cursor”).Y) + 200
case 38 ‘UP
Item(“Cursor”).Y =(Item(“Cursor”).Y) – 200
Observação: O objeto “Cursor” não é o mouse do windows. É um objeto-figura qualquer do E3.
Cada tecla muda o valor de X ou Y do cursor. Neste caso, o cursor andará 200 unidades (HIMETRIC) cada vez que a tecla for pressionada. Este valor pode ser alterado, lembrando que quanto maior o valor, maior a sensibilidade do cursor.
Para o “clique” deste cursor, você pode usar a tecla ENTER (case 13).
Em anexo a este artigo há uma aplicação exemplo para este procedimento, desenvolvida no E3 Versão 3.1 Build 270. Note que algumas coisas foram adicionadas ao script, como por exemplo, os limites da tela (para que o cursor não “fuja”), e uma barra de rolagem, para alterar a sensibilidade do cursor sem precisar sair da aplicação.
Anexos:
