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]Modulo de Efeito de Transicao de Formulario

    avatar
    Denis Lopes
    Novato
    Novato

    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 em 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 100%

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

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

    Mensagem  JPaulo em 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 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 em 4/12/2012, 13:20

    Obrigado pela Ajuda.

    Estou mudando o topico como resolvido.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em 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 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 em 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
    VIP
    VIP

    Respeito às Regras 75%

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

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

    Mensagem  crysostomo em 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.

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 10/12/2019, 00:27