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

    Efeito Especial ao Abrir e Fechar Formulario

    Compartilhe
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Efeito Especial ao Abrir e Fechar Formulario

    Mensagem  JPaulo em 11/1/2011, 15:53

    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


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

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    RneoX
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 26/07/2011

    Re: Efeito Especial ao Abrir e Fechar Formulario

    Mensagem  RneoX em 5/12/2012, 13:02

    Ótimo código! valeu.


    .................................................................................
    Conhece meus projetos que ajudam os usuários a entender o funcionamento de várias funções encontradas aqui no fórum? também pode usa-lo para seus negócios ou para uso pessoal, não conhece? então visite aqui e veja como está bacana: Projeto Casco do Máximo Access v3.0 (Pré-Release 4.0) 
    Ser livre é ter liberdade para expressar suas idéias,
    Ser diferente é ser especial e o reverso da igualdade,
    Ser criativo é ser poderoso,
    Ter conhecimentos e não dividir-los é ser egoísta e orgulhoso,
    Ensinar é um prazer que todos devem ter por seus alunos, pois é dele que vem nossos troféus.

    ARGONZALE
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 107
    Registrado : 21/05/2015

    Re: Efeito Especial ao Abrir e Fechar Formulario

    Mensagem  ARGONZALE em 16/5/2018, 19:16

    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?


    .................................................................................
    Obrigado.

    Att.

    Alexandre Gonzales
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Efeito Especial ao Abrir e Fechar Formulario

    Mensagem  JPaulo em 22/5/2018, 10:36

    Olá;

    Tem de pesquisar um pouco por PtrSafe;

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


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

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 286
    Registrado : 11/12/2017

    Re: Efeito Especial ao Abrir e Fechar Formulario

    Mensagem  Ismael Silva em 22/5/2018, 11:44

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

    Respeito às Regras 100%

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

    Re: Efeito Especial ao Abrir e Fechar Formulario

    Mensagem  JPaulo em 22/5/2018, 16:10

    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


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

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: 21/10/2018, 22:35