MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Evento minimizar e restaurar formulario

    Compartilhe
    avatar
    lupe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 426
    Registrado : 15/07/2010

    Evento minimizar e restaurar formulario

    Mensagem  lupe em Qui 20 Out 2011, 20:10

    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!
    avatar
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11234
    Registrado : 30/12/2009

    Re: [Resolvido]Evento minimizar e restaurar formulario

    Mensagem  criquio em Qui 20 Out 2011, 20:46

    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"


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    lupe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 426
    Registrado : 15/07/2010

    Re: [Resolvido]Evento minimizar e restaurar formulario

    Mensagem  lupe em Qui 20 Out 2011, 20:58

    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!
    avatar
    Jungli
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 637
    Registrado : 07/05/2010

    Re: [Resolvido]Evento minimizar e restaurar formulario

    Mensagem  Jungli em Qui 20 Out 2011, 21:37

    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
    Anexos
    MiniMax.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (19 Kb) Baixado 109 vez(es)


    .................................................................................
    "Somos o que repetidamente fazemos.
    A excelência, portanto, não é um feito,
    mas um hábito."

    Aristóteles
    avatar
    lupe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 426
    Registrado : 15/07/2010

    Re: [Resolvido]Evento minimizar e restaurar formulario

    Mensagem  lupe em Qui 20 Out 2011, 22:03

    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!
    avatar
    lupe
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 426
    Registrado : 15/07/2010

    Re: [Resolvido]Evento minimizar e restaurar formulario

    Mensagem  lupe em Qui 20 Out 2011, 22:23

    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!
    avatar
    Jungli
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 637
    Registrado : 07/05/2010

    Re: [Resolvido]Evento minimizar e restaurar formulario

    Mensagem  Jungli em Sex 21 Out 2011, 11:50

    O fórum agradece o retorno...


    .................................................................................
    "Somos o que repetidamente fazemos.
    A excelência, portanto, não é um feito,
    mas um hábito."

    Aristóteles

      Data/hora atual: Qua 28 Jun 2017, 06:14