Definir controle de foco automático no Visual Basic

Escrito por kevin walker | Traduzido por deivid assis
  • Compartilhar
  • Tweetar
  • Compartilhar
  • Pin
  • E-mail
Definir controle de foco automático no Visual Basic
É possível determinar qual controle está em foco no Visual Basic (Ryan McVay/Photodisc/Getty Images)

A linguagem do Visual Basic e do Integrated Development Environment (IDE) da Microsoft, ao contrário de muitas outras linguagens de programas, é projetada a partir do zero para trabalhar com "Graphical User Interfaces". Uma das formas que essa linguagem faz isso é rastreando qual controle da interface do usuário está instantaneamente em foco para o programador.

Nível de dificuldade:
Moderado

Outras pessoas estão lendo

O que você precisa?

  • Visual Basic 6 ou versão mais recente

Lista completaMinimizar

Instruções

    Como determinar o controle instantâneo em foco no VB

  1. 1

    Abra seu projeto do Visual Basic.

  2. 2

    Arraste um "button" (botão) da caixa de ferramentas do lado esquerdo do projeto. Isso servirá como um gancho para programar o código e para encontrar o foco atual. Mais tarde, pode-se removê-lo do seu projeto e colar o código no local apropriado para suas necessidades.

  3. 3

    Dê um duplo clique no "button", para criar um link. Isso irá levá-lo automaticamente para o editor de código-fonte.

  4. 4

    Para o Visual Basic 6, cole o seguinte:

    Debug.Print Screen.ActiveControl.name

    Isso imprimirá o nome do controle de foco para a janela de depuração sempre que o botão que você criou for acionado.

    Alternativamente, em versões posteriores do Visual Basic, cada formulário individual terá seu próprio controle ativo, portanto substitua o código acima com:

    Debug.Print Form1.ActiveControl.name

    Substitua "Form1" com o nome da formulário atual.

Dicas & Advertências

  • Ao adicionar o código para um programa real, tenha em mente que é possível que nenhum controle tenha foco em um determinado momento. Portanto qualquer código que usa "Screen.ActiveControl" deve estar preparado para lidar com a possibilidade de que "ActiveControl" é igual a "Nothing" (nada). A maneira mais simples de fazer isso é com:
  • Se Screen.ActiveControl é Nothing, então
  • Debug.Print "No control selected."
  • Outro:
  • Debug.Print Screen.ActiveControl.name
  • End If

Não perca

Filtro:
  • Geral
  • Artigos
  • Slides
  • Vídeos
Mostrar:
  • Mais relevantes
  • Mais lidos
  • Mais recentes

Nenhum artigo disponível

Nenhum slide disponível

Nenhum vídeo disponível