MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Modulo de Efeito de Transicao de Formulario

    avatar
    Denis Lopes
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 18/11/2012

    [Resolvido]Modulo de Efeito de Transicao de Formulario Empty Modulo de Efeito de Transicao de Formulario

    Mensagem  Denis Lopes 4/12/2012, 11:34

    Achei o Modelo http://maximoaccess.forumeiros.com/t1436-efeito-especial-ao-fechar-formulario no repositorio do Forum.

    Gostaria de saber como fazer isto usando um modulo, assim nao precisando colocar o codigo inteiro em todos os forms.

    Grato
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10614
    Registrado : 04/11/2009

    [Resolvido]Modulo de Efeito de Transicao de Formulario Empty Re: [Resolvido]Modulo de Efeito de Transicao de Formulario

    Mensagem  JPaulo 4/12/2012, 12:19

    Transforme o código em PUBLIC, cole num modulo 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.


    Public Declare Function AnimateWindow Lib "user32" _
    (ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) _
    As Boolean


    Nos seus formularios, tem sempre de chamar a função, assim;

    Private Sub Form_Load()
    AnimateWindow Me.hwnd, 1000, AW_CENTER Or AW_SLIDE
    End Sub


    Private Sub Form_Unload(Cancel As Integer)
    AnimateWindow Me.hwnd, 1000, AW_VER_NEGATIVE Or AW_HOR_NEGATIVE Or AW_HIDE
    End Sub

    Obs:
    Código do exemplo alterado.



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Modulo de Efeito de Transicao de Formulario Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Modulo de Efeito de Transicao de Formulario Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Modulo de Efeito de Transicao de Formulario Folder_announce_new Instruções SQL como utilizar...
    avatar
    Denis Lopes
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 18/11/2012

    [Resolvido]Modulo de Efeito de Transicao de Formulario Empty Re: [Resolvido]Modulo de Efeito de Transicao de Formulario

    Mensagem  Denis Lopes 4/12/2012, 13:20

    Obrigado pela Ajuda.

    Estou mudando o topico como resolvido.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10614
    Registrado : 04/11/2009

    [Resolvido]Modulo de Efeito de Transicao de Formulario Empty Re: [Resolvido]Modulo de Efeito de Transicao de Formulario

    Mensagem  JPaulo 4/12/2012, 14:21

    Valew.



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Modulo de Efeito de Transicao de Formulario Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Modulo de Efeito de Transicao de Formulario Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Modulo de Efeito de Transicao de Formulario Folder_announce_new Instruções SQL como utilizar...
    avatar
    Dougtha91
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 81
    Registrado : 19/05/2017

    [Resolvido]Modulo de Efeito de Transicao de Formulario Empty Ajuda JPaulo

    Mensagem  Dougtha91 31/10/2017, 18:30

    Pessoal,
    tentei utilizar o código acima, ele executa a animação mas o form fica com a tela toda preta oq devo fazer?
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1756
    Registrado : 23/01/2018

    [Resolvido]Modulo de Efeito de Transicao de Formulario Empty Re: [Resolvido]Modulo de Efeito de Transicao de Formulario

    Mensagem  crysostomo 25/7/2019, 22:25

    Boa noite Mestre, a animação executa ,mas a tela fica preta.


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 28/7/2021, 23:54