Como pausar uma sub-rotina até que um botão seja pressionado no VB6

Escrito por sean mann | Traduzido por marco aurelio zancan
  • Compartilhar
  • Tweetar
  • Compartilhar
  • Pin
  • E-mail
Como pausar uma sub-rotina até que um botão seja pressionado no VB6
Uso de método na linguagem VB (Hemera Technologies/PhotoObjects.net/Getty Images)

Ao programar uma aplicação no Visual Basic 6 (VB6), às vezes é necessário pausar a sub-rotina e esperar até que o usuário pressione um botão, como ao requisitar que o usuário leia uma caixa pop-up e clique em "OK" antes de continuar. Você pode pausar a sub-rotina e esperar até que o botão seja pressionado, colocando o método "DoEvents" em um laço, o que não trava o computador como o método "Wait".

Nível de dificuldade:
Moderado

Outras pessoas estão lendo

Instruções

  1. 1

    Abra o arquivo de fonte VB6 em um editor, como o Microsoft Visual Basic.

  2. 2

    Declare a variável global "boolean" para verificar se o botão foi pressionado, adicionando esse código no alto de seu formulário:

    Option Explicit Public ButtonIsClicked As Boolean

  3. 3

    Inicialize o valor da variável "ButtonIsClicked" no início de sua sub-rotina, adicionando o código:

    ButtonIsClicked = false

  4. 4

    Chame o método "DoEvents()" dentro do laço "While" para esperar até que o botão seja pressionado, adicionando o seguinte código à sua sub-rotina:

    Button

    While ButtonIsClicked = false Application.DoEvents() End While

    O método "DoEvents" processa qualquer mensagem existente do Windows, tal como um clique de botão. O laço continuará até que o botão seja clicado.

  5. 5

    Abra a GUI (Desenho de formulários), clique duas vezes no botão que o usuário precisa para clicar e adicione o seguinte código:

    ButtonIsClicked = true

  6. 6

    Salve o arquivo VB6, compile e execute o programa para executar a sua sub-rotina modificada.

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