Efeito Especial ao Abrir e Fechar Formulario

API do Windows que dá um efeito especial ao abrir e fechar do seu formulario;

Cole num modulo VBA e salve;



Public  Const AW_HOR_POSITIVE = &H1 'Anima a janela da esquerda para a direita
Public  Const AW_HOR_NEGATIVE = &H2 'Anima a janela da direita para a esquerda
Public  Const AW_VER_POSITIVE = &H4 'Anima a janela de cima para baixo.
Public  Const AW_VER_NEGATIVE = &H8 'Anima a janela de baixo para cima.
Public  Const AW_CENTER = &H10      'Faz a janela aparecer em colapso dentro do AW_HIDE.
Public  Const AW_HIDE = &H10000     'Oculta a janela. Por padrão, a janela é mostrada.
Public  Const AW_ACTIVATE = &H20000 'Activa a janela.
Public  Const AW_SLIDE = &H40000 'Usa animação de slide. Por padrão, é usada a animação rolo.
Public  Const AW_BLEND = &H80000 'Usa um efeito de fade. Esta flag pode ser usada somente se hwnd é uma janela de nível superior.

#If VBA7 Then
Public Declare PtrSafe Function AnimateWindow Lib "user32" _
(ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Boolean
#Else
Public Declare Function AnimateWindow Lib "user32" _
(ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Boolean
#End If


Nos seus formulários:


Private Sub Form_Load()
'Anima a janela do form na abertura
   AnimateWindow Me.hwnd, 1000, AW_CENTER Or AW_SLIDE
End Sub


Private Sub Form_Unload(Cancel As Integer)
'Anima a janela do form no fecho
   AnimateWindow Me.hwnd, 1000, AW_VER_NEGATIVE Or AW_HOR_NEGATIVE Or AW_HIDE
End Sub

Ótimo código! valeu.

Boa tarde.

Utilizo sistema 64Bits que apresentou o seguinte erro quando salvei o módulo:

"O código desse projeto deve ser atualizado para uso em sistemas de 64 bits. Analise e atualize as instruções Declare e, em seguida, marque-as com o atributo PtrSafe."

Como devo proceder para utilizar estes efeitos em meu BD 64 bits?

Olá;

Tem de pesquisar um pouco por PtrSafe;

Código acima atualizado para 32Bits e 64Bits.

JP, ótimo código, mas no meu caso, ao carregar o form, fica com o fundo preto. Como posso corrigir isso?

Ola;

Não se pode tirar duvidas nestas salas, as mensagens serão removidas.

Pode manipular isso, assim;

Código:

Private Sub Form_Load()
'Anima a janela do form na abertura
   AnimateWindow Me.hwnd, 1000, AW_CENTER Or AW_SLIDE
Me.FormHeader.BackColor = vbWhite
Me.Detail.BackColor = vbWhite
Me.FormFooter.BackColor = vbWhite
End Sub