Ativar, desativar eventos

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

Sintaxe

Subobjeto privado_Activate( )
Subobjeto privado_Deactivate( )

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

Comentários

Um objeto pode se tornar ativo usando o método Show no código.

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

Os eventos Activate e Deactivate ocorrem apenas quando você move o foco dentro de um aplicativo. Mover o foco de ou para um objeto em outro aplicativo não aciona nenhum dos eventos.

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

Exemplo

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

  • Last updated on