Relativamente falando, o uso de eventos é relativamente simples. Antes de utilizá-lo, devemos primeiro definir o evento, o que significa informar ao Visual Basic qual evento é chamado. Um evento pode ter seus próprios parâmetros. Por exemplo, um botão de comando possui um evento Click, que não possui parâmetros. Além disso, a caixa de edição de texto possui um evento KeyPRess, que trata o conteúdo relacionado através de um valor chamado “KeyAscii”.
Para definir um evento, adicione um código semelhante ao seguinte à seção de declaração geral de uma classe:
Em seguida, chame o método RaiseEvent no código para disparar um evento. Assim como o código a seguir:
Para ilustrar melhor o processo acima de adição e disparo de eventos, vamos dar um exemplo. Primeiro, defina um evento:
Adicione o seguinte código na seção de declaração geral da classe CDog:
Adicione o subprocesso Sleep na classe CDog:
No código, alguns loops inúteis são executados 1.000.000 de vezes no início. Depois que o computador faz uma breve pausa, o subprocesso Sleep aciona o evento Awake.
Mas após a ocorrência do evento Awake, deveríamos deixar o programa responder de acordo? Obviamente, usar um botão de comando é mais fácil, basta selecionar o objeto do botão de comando na lista da janela de código.
Mas nesse caso, definitivamente precisamos de um controle, e tudo o que vemos está no formulário. Aqui usamos puramente o código correspondente e ele é invisível.
É claro que usar código para receber eventos requer operações adicionais:
Na seção Declarações Comuns da janela de código do formulário, adicione o seguinte código:
Este código é diferente da declaração MyDog anterior. Ele possui a palavra-chave WithEvents usada para informar ao Visual Basic que o objeto pode receber qualquer evento, e o objeto deve receber o evento.
Exclua todo o código no botão de comando e adicione o seguinte código em Command1:
O código simplesmente define MyDog para uma nova instância de CDog, define o Nome, chama Bark e, finalmente, executa o subprocesso Sleep.
Agora adicione algum código para responder ao evento Awake.
Na janela Código do formulário, selecione "MyDog" na lista suspensa de objetos;
No evento "Awake" de "MyDog", adicione o seguinte código:
Ok, agora é hora de testar.
Pressione F5 para executar o programa;
Clique no botão Comando;
Dessa forma, quando o cachorrinho late, ele começa a tirar uma soneca e é acordado por você no final. É incrível!
->