[Resolvido]Formulário Transparente

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?

Alguém pra ajudar nessa missão?

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

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.

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)

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

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

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.

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

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.

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.

O fórum agradece o retorno. Sucesso.