MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Efeito Especial ao Abrir e Fechar Formulario

    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Efeito Especial ao Abrir e Fechar Formulario Empty 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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Efeito Especial ao Abrir e Fechar Formulario Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Efeito Especial ao Abrir e Fechar Formulario Folder_announce_new 102 Códigos VBA Gratuitos...
    Efeito Especial ao Abrir e Fechar Formulario Folder_announce_new Instruções SQL como utilizar...
    RneoX
    RneoX
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Efeito Especial ao Abrir e Fechar Formulario Empty 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.
    avatar
    ARGONZALE
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Efeito Especial ao Abrir e Fechar Formulario Empty 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
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Efeito Especial ao Abrir e Fechar Formulario Empty 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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Efeito Especial ao Abrir e Fechar Formulario Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Efeito Especial ao Abrir e Fechar Formulario Folder_announce_new 102 Códigos VBA Gratuitos...
    Efeito Especial ao Abrir e Fechar Formulario Folder_announce_new Instruções SQL como utilizar...
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Efeito Especial ao Abrir e Fechar Formulario Empty 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?
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Efeito Especial ao Abrir e Fechar Formulario Empty 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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Efeito Especial ao Abrir e Fechar Formulario Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Efeito Especial ao Abrir e Fechar Formulario Folder_announce_new 102 Códigos VBA Gratuitos...
    Efeito Especial ao Abrir e Fechar Formulario Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 10/7/2020, 03:50