Utilizar seta para cima e para teclas de seta para baixo para mover o foco

Traduções de Artigos Traduções de Artigos
Artigo: 100413 - Ver produtos para os quais este artigo se aplica.
Expandir tudo | Reduzir tudo

Nesta página

Sumário

Pode aplicar um véu para a seta para cima e seta para baixo teclas expandidos em alguns controlos do Visual Basic colocando o código no procedimento de evento TeclaEmBaixo. O código utiliza valores KeyCode para aplicar um véu as teclas de seta para cima e seta para baixo. No entanto, não é possível aplicar um véu as chaves no Visual Basic todos os controlos porque alguns controlos já tem funcionalidades incorporadas para as teclas de seta para cima e seta para baixo, pelo que não existe nenhum evento TeclaEmBaixo gerado.

Mais Informação

As informações neste artigo são fornecidas para mostrar que é possível aplicar um véu a seta para cima e teclas de seta para baixo, no entanto Microsoft não recomenda a que o implementar porque as teclas de seta para cima e seta para baixo têm comportamento padrão, predefinido em alguns controlos. A Microsoft recomenda que utilize o método padrão para utilizar o teclado para mover o foco; ou seja, utilize as teclas TAB e SHIFT+TAB ou utilize as teclas de acesso.

Exemplo passo a passo para mover a foco utilizar cima seta e seta para baixo

  1. Inicie o Visual Basic ou no menu Ficheiro, seleccione novo projecto (ALT, F, N) se já estiver em execução do Visual Basic.
  2. Adicione uma caixa de imagem e duas caixas de texto ao Form1.
  3. No procedimento de evento Picture1_KeyDown, adicione este código:
       Sub Picture1_KeyDown(KeyCode AS INTEGER, Shift AS INTEGER)
          IF KeyCode = 38 Then    '* 38 = up arrow key
             Text2.SetFocus
          Text2.SelStart = 0   '* set the cursor to the start
          END IF
    
          IF KeyCode = 40 Then    '* 40 = down arrow key
             Text1.SetFocus
          Text1.SelStart = 0   '* set the cursor to the start
          END IF
       END SUB
    						
  4. No procedimento de evento Text1_KeyDown, adicione este código:
       Sub Text1_KeyDown(KeyCode AS INTEGER, Shift AS INTEGER)
          If KeyCode = 38 Then    '* 38 = UP ARROW key
             Picture1.SetFocus
          End If
    
          If KeyCode = 40 Then    '* 40 = DOWN ARROW key
             Text2.SetFocus
             Text2.SelStart = 0   '* set the cursor to the start
          End If
       End Sub
    						
  5. No procedimento de evento Text2_KeyDown, adicione este código:
       Sub Text2_KeyDown(KeyCode AS INTEGER, Shift AS INTEGER)
          If KeyCode = 38 Then    '* 38 = UP ARROW key
             Text1.SetFocus
             Text1.SelStart = 0   '* set the cursor to the start
          End If
    
          If KeyCode = 40 Then    '* 40 = DOWN ARROW key
             Picture1.SetFocus
          End If
       End Sub
    						
  6. Seleccione Iniciar no menu ' Executar ' ou prima F5 para executar o exemplo. Prima a tecla SETA para cima ou seta para baixo para ver o foco mover para um controlo diferente.
Se utilizar as teclas de seta para a esquerda ou seta para a direita, pode deslocar o cursor na caixa de texto, mas estas chaves são ignoradas na caixa imagem neste exemplo.

Propriedades

Artigo: 100413 - Última revisão: 16 de agosto de 2005 - Revisão: 2.1
A informação contida neste artigo aplica-se a:
  • Microsoft Visual Basic 2.0 Standard Edition
  • Microsoft Visual Basic 3.0 Professional Edition
  • Microsoft Visual Basic 2.0 Professional Edition
  • Microsoft Visual Basic 3.0 Professional Edition
  • Microsoft Visual Basic 1.0 Standard Edition
  • Microsoft Visual Basic for MS-DOS
Palavras-chave: 
kbmt KB100413 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine translation ou MT), não tendo sido portanto revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática? erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 100413
Exclusão de Responsabilidade para Conteúdo sem Suporte na KB
Este artigo foi escrito sobre produtos para os quais a Microsoft já não fornece suporte. Por conseguinte, este artigo é oferecido "tal como está" e deixará de ser actualizado.

Submeter comentários

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com