Compartilhar via

Ativar, Desativar eventos

  • Artigo

O evento Ativar ocorre quando um objeto se torna a janela ativa. O evento Desativar ocorre quando um objeto não é mais a janela ativa.

Sintaxe

Objeto Sub privado_Activate( )
Objeto Sub privado_Deactivate( )

O espaço reservado do objeto representa uma expressão de objeto que avalia para um objeto na lista Aplica-se a .

Comentários

Um objeto pode ficar ativo usando o método Mostrar no código.

O evento Ativar só pode ocorrer quando um objeto está visível. Um UserForm carregado com Carregamento não está visível, a menos que você use o método Show .

Os eventos Ativar e Desativar ocorrem somente quando você move o foco dentro de um aplicativo. Mover o foco para ou de um objeto em outro aplicativo não dispara nenhum evento.

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

Exemplo

O código a seguir usa duas UserForms: UserForm1 e UserForm2. Copie esses procedimentos no módulo UserForm1 e adicione UserForm2. A legenda do UserForm1 é criada em seu procedimento de evento Ativar . Quando o usuário clica na área cliente do UserForm1, UserForm2 é carregado e mostrado disparando o evento Desativar do UserForm1, alterando suas 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.