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]Formulário Transparente

    avatar
    costa256
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 22/01/2019

    [Resolvido]Formulário Transparente Empty [Resolvido]Formulário Transparente

    Mensagem  costa256 em 20/1/2020, 19:57

    Mestres,

    antes de postar esse tópico, pesquisei muito no fórum, e vi que Criquio havia disponibilizado há muito tempo atrás um form transparente, mas o link já não existe mais [https://www.maximoaccess.com/t865-formularios-e-janela-do-access-transparente].

    Estou precisando criar um form transparente, que receberá uma imagem PNG.

    Alguém tem esse código?
    avatar
    costa256
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 22/01/2019

    [Resolvido]Formulário Transparente Empty Re: [Resolvido]Formulário Transparente

    Mensagem  costa256 em 21/1/2020, 14:56

    Alguém pra ajudar nessa missão?
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6538
    Registrado : 15/03/2013

    [Resolvido]Formulário Transparente Empty Re: [Resolvido]Formulário Transparente

    Mensagem  ahteixeira em 21/1/2020, 15:16

    Olá Marcelo,

    O link que faz referencia na mensagem nº 1 não está disponível, aguardamos que algum colega possa repor.

    No entanto, já tentou a "Busca" aqui do fórum, veja como fazer:
    https://www.maximoaccess.com/t1115-busca-no-forum-search

    Será isto:
    https://www.maximoaccess.com/t10089-resolvidotornar-access-transparente-no-repositorio-ajuda
    https://www.maximoaccess.com/t33942-resolvidoocultar-janela-access-2013

    Abraço
    avatar
    costa256
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 22/01/2019

    [Resolvido]Formulário Transparente Empty Re: [Resolvido]Formulário Transparente

    Mensagem  costa256 em 21/1/2020, 17:06

    ahteixeira

    Já tentei pesquisar no fórum sim, mas não encontrei nenhum código que realmente funcione.

    Eu tenho um app em excel, com um código VBA que deixa o form transparente, e queria deixar exatamente igual no access.

    Não encontrei ainda um código que funcione no Access.
    alozs
    alozs
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 208
    Registrado : 07/02/2018

    [Resolvido]Formulário Transparente Empty Re: [Resolvido]Formulário Transparente

    Mensagem  alozs em 22/1/2020, 14:35

    tenta esse código

    Código:
    Option Compare Database
    Option Explicit
    'Autor de la función base: Indeterminado
    'Declaraciones
    Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

    Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex As Long) As Long

    Private Declare PtrSafe Function SetLayeredWindowAttributes Lib "user32" _
    (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

    'Constantes
    Private Const GWL_EXSTYLE = (-20)
    Private Const WS_EX_LAYERED = &H80000
    Private Const LWA_ALPHA = &H2

    Function AccessTransparente(Nivel As Integer)
    'Adaptación: Byron Contreras, febrero 08, byronlcl@gmail.com
    'Objetivo: Ajustar el nivel de transparencia de la ventana principal
    ' de access. El nivel de transparencia debe estar entre 0 a 250
    '.............................................................................
    Dim lngHwnd As Long
    If Nivel < 0 Or Nivel > 250 Then Exit Function
    lngHwnd = Application.hWndAccessApp
    SetWindowLong lngHwnd, GWL_EXSTYLE, GetWindowLong(lngHwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
    SetLayeredWindowAttributes lngHwnd, 0, Nivel, LWA_ALPHA
    End Function
    '
    'Ejemplo de uso:
    'Private Sub Form_Load()
    'Call AccessTransparente(175)
    'End Sub

    deixe como popup = sim e coloca a chamada no evento "ao abrir formulário"

    Call AccessTransparente(0)
    avatar
    costa256
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 22/01/2019

    [Resolvido]Formulário Transparente Empty Re: [Resolvido]Formulário Transparente

    Mensagem  costa256 em 22/1/2020, 17:39

    Aloz, obrigado pela ajuda, mas esse código não funcionou.

    O que o código faz é minimizar o "Access" e deixar somente o form ativo, mas o form continuou com o background
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1366
    Registrado : 22/11/2016

    [Resolvido]Formulário Transparente Empty Re: [Resolvido]Formulário Transparente

    Mensagem  DamascenoJr. em 22/1/2020, 21:30

    Por curiosidade, qual seria a ocasião em que um formulário personalizado assim é aplicado?


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    costa256
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 22/01/2019

    [Resolvido]Formulário Transparente Empty Re: [Resolvido]Formulário Transparente

    Mensagem  costa256 em 24/1/2020, 13:00

    Vou tentar explicar.

    Esse sistema é um painel de pesquisa de satisfação, onde existem 4 botões (Excelente, bom, regular, ruim). A ideia de um Form transparente é adicionar uma imagem PNG sem fundo, e ao clicar em cada botão, esse form é aberto por 1 segundo com a mensagem "Obrigado". Por isso a transparência é importante, pois o forme aparecerá no meio da tela, sobre o painel principal.

    Eu já tenho isso tudo pronto em Excel, funcionando perfeitamente, mas a ideia de criar um BD em Access é para dar permissão de outras pessoas criarem os painéis e consultar as pesquisas, e só falta isso para entregar o BD.
    alozs
    alozs
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 208
    Registrado : 07/02/2018

    [Resolvido]Formulário Transparente Empty Re: [Resolvido]Formulário Transparente

    Mensagem  alozs em 24/1/2020, 14:08

    acho que consegue fazer isso diretamente no access, na folha de propriedades do form marque as opções popup - sim e no estilo da borda deixe marcado como nenhum
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1366
    Registrado : 22/11/2016

    [Resolvido]Formulário Transparente Empty Re: [Resolvido]Formulário Transparente

    Mensagem  DamascenoJr. em 27/1/2020, 04:08

    Não encontrei nada que deixasse o fundo de um formulário do Access transparente. No excel o fundo some e os controles permanecem normais. No Access já é diferente pois o formulário é composto por seções. Com isso vejo que deverá buscar uma outra maneira para o que você pretende.

    Em anexo deixo um exemplo que faz com que o formulário fique transparente juntamente com todos os objetos nele contidos (diferente do que acontece no excel). Talvez sirva para alguma nova ideia.
    Anexos
    [Resolvido]Formulário Transparente AttachmentAccessFormTransparente.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (58 Kb) Baixado 6 vez(es)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    costa256
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 22/01/2019

    [Resolvido]Formulário Transparente Empty Re: [Resolvido]Formulário Transparente

    Mensagem  costa256 em 27/1/2020, 14:45

    Caros amigos.

    Agradeço a todos pelas tentativas.

    Pelo visto, não é uma forma de tornar o formulário transparente pelo Access.

    Resolvi de uma forma muito mais simples, utilizando um objeto imagem sem fundo e inserindo um código disponibilizado pelo amigo JPaulo para calcular o tempo que a imagem fica sendo exibida.

    Dessa forma dou como resolvido e, mais uma vez, agradeço a todos pela ajuda.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1366
    Registrado : 22/11/2016

    [Resolvido]Formulário Transparente Empty Re: [Resolvido]Formulário Transparente

    Mensagem  DamascenoJr. em 27/1/2020, 21:47

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    Conteúdo patrocinado

    [Resolvido]Formulário Transparente Empty Re: [Resolvido]Formulário Transparente

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/2/2020, 06:48