[Resolvido]Evento minimizar e restaurar formulario

Olá amigos!

Fiz uma busca no fórum mas não encontrei algo que pudesse me ajudar numa duvida.

Eu preciso inserir uma rotina para ser executada sempre que eu minimizar e outra ao restaurar um formulario atraves do botão padrão do Access. Minha duvida é:

Em qual evento eu devo inserir cada rotina?

Por exemplo:

Ao minimizar...seria exibida a MsgBox: "A janela foi minimizada!"
Ao restaurar...MsgBox: "Janela restaurada!"

Desde já, obrigado!

Uma opção seria você desabilitar os botões padrões e colocar botões personalizados com as instruções no evento "Ao clicar":

DoCmd.Minimize
MsgBox "Aplicativo minimizado", vbInformation, "Atenção"

Criquio,

Obrigado pela dica, mas eu realmente gostaria de usar os botões padrões do Access, a menos que isso não seja possivel para o que eu pretendo.

Mas, muito obrigado pelo retorno.


Abraço!

Não sei se lhe serve, este exemplo trabalha com minimizar e maximizar.


No módulo


'=====================================================================
'Retitado de :
'http://support.microsoft.com/kb/210190
'site em inglês
'=====================================================================
Option Compare Database
Option Explicit

Declare Function IsZoomed Lib "user32" (ByVal hWnd As Long) As _
Integer
Declare Function IsIconic Lib "user32" (ByVal hWnd As Long) As _
Integer

Public Property Let Maximiza(IsMax As Integer)
If IsMax Then
Me.SetFocus
DoCmd.Maximize
Else
Me.SetFocus
DoCmd.Restore
End If
End Property

Public Property Let Minimiza(IsMin As Integer)
If IsMin Then
Me.SetFocus
DoCmd.Minimize
Else
Me.SetFocus
DoCmd.Restore
End If
End Property



No formulário

Public Property Get Maximized() As Integer
Maximized = IsZoomed(Me.hWnd) * -1
End Property

Public Property Get Minimized() As Integer
Minimized = IsIconic(Me.hWnd) * -1
End Property

Private Sub Form_Resize()
Dim mini, maxi
mini = Minimized()
maxi = Maximized()
If mini = True Then
MsgBox "Minimizado"
ElseIf maxi = True Then
MsgBox "Maximizado"
End If
End Sub

JUNGLI,

É isso mesmo que eu preciso, porém, em vez da opção:

Public Property Get Maximized() As Integer
Maximized = IsZoomed(Me.hWnd) * -1
End Property

Eu preciso de uma para Restaurar. Esses codigos funcionam ao minimizar e maximizar, eu gostaria de inserir no evento Restaurar.

Seria possivel?

Obrigado!

JUNGLI,

Me desculpe a falta de atenção. A rotina esta completa, incluindo a opção Restaurar.

Mais uma vez, muito obrigado a voce e ao Criquio pela grande ajuda!


Sucesso!

O fórum agradece o retorno...