Compartilhar via

Ativar, Desativar eventos

  • Artigo

O evento Ativar ocorre quando um objeto se torna a janela ativa. O evento Deactivate ocorre quando um objeto já não é a janela ativa.

Sintaxe

Objeto Private Sub_Activate( )
Objeto Private Sub_Deactivate( )

O marcador de posição de objeto representa uma expressão de objeto que é avaliada como um objeto na lista Aplica-se a .

Comentários

Um objeto pode tornar-se ativo através do método Mostrar no código.

O evento Ativar só pode ocorrer quando um objeto está visível. Um Formulário de Utilizador carregado com Carregamento não é visível, a menos que utilize o método Mostrar .

Os eventos Ativar e Desativar ocorrem apenas quando move o foco numa aplicação. Mover o foco de/para um objeto noutra aplicação não aciona nenhum dos eventos.

O evento Deactivate não ocorre ao descarregar um objeto.

Exemplo

O código seguinte utiliza dois Formulários de Utilizador: UserForm1 e UserForm2. Copie estes procedimentos para o módulo UserForm1 e, em seguida, adicione UserForm2. A legenda do UserForm1 é criada no procedimento Ativar evento. Quando o utilizador clica na área de cliente do UserForm1, o UserForm2 é carregado e apresentado a acionar o evento Desativar do UserForm1, alterando as legendas.

' Activate event for UserForm1
Private Sub UserForm_Activate()
    UserForm1.Caption = "Click my client area"
End Sub

' Click event for UserForm1
Private Sub UserForm_Click()
    Load UserForm2
    UserForm2.StartUpPosition = 3
    UserForm2.Show
End Sub

' Deactivate event for UserForm1
Private Sub UserForm_Deactivate()
    UserForm1.Caption = "I just lost the focus!"
    UserForm2.Caption = "Focus just left UserForm1 and came to me"
End Sub

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.