[Resolvido]Fundo Access com Imagem Transparente (Duvidas)

Muito legal JP!! Só que não estou conseguindo implementar direito aqui!

O meu formulário abre, daí o fundo transparente abre junto, só que o formulário não fica em primeiro plano como o seu formulário exemplo.... ele abre mas fica esmaecido atras do fundo transparente!

O que estou fazendo errado amigo? já coloquei os códigos nos eventos ao carregar e ao descarregar do formulário, coloquei o módulo modFundo e o frmFundo...

Me dá um help =] obrigado!

Boa noite!

Na opção "Inicializar" ou na Macro "Autoexec" o formulário a abrir, precisa ser o outro e estar como Pop Up, do contrário ele não se sobrepõe.

Para a minha aplicação, está funcionando maravilhosamente bem!

Abraços

WCamargo

Entendo... mas qual opção "inicializar"? vc quer dizer no evento ao carregar do formulário que eu desejo que fique sobreposto, é isso?

Meu formulário se chama "SISTEMA"...

...coloquei esses códigos nele, ao carregar e ao descarregar! gosaria de saber o que seria esse "CON_TRANSPARENT_FORM"???? ...devo substituir isso pelo nome do meu formulário? já fiz isso e não deu certo...

Private Sub Form_Load()
'By JPaulo ® Maximo Access
With DoCmd
.Echo False
.OpenForm CON_TRANSPARENT_FORM
.Echo True
End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
'By JPaulo ® Maximo Access
If (CurrentProject.AllForms(CON_TRANSPARENT_FORM).IsLoaded) Then
DoCmd.Close acForm, CON_TRANSPARENT_FORM
End If
End Sub

Outra questão, você diz que outra opção é colocar na macro autoexec [color=green....mas não entendi direito o q vc quiz dizer.... minha macro autoexec já chama o formulário SISTEMA, nem precisaria pq ele é o Menu de controle principal.. mas ela chama mesmo assim.... porém ele continua ficando sobposto ao formulário fundo....


por favor amigo me explique melhor o que estou errando aqui! tbm quero implementar esse fundo que realmente como vc disse é muito legal mesmo!

obrigado!

Amigo esquece o que eu disse.... já consegui entender tudo... só estava faltando no meu caso colocar os formulários com popup sim na guia outros das propriedades mesmo....
e tbm já entendi q "CON_TRANSPARENT_FORM" é apenas uma constante que ele usou para referir-se ao frmFundo
Private Const CON_TRANSPARENT_FORM As String = "frmFundo"

complica um pouco mas blzs... funciona!

Ficou bem legal no meu caso eu tirei o Popup sim do frmFundo e mudei a cor do fundo pra um azul clarinho assim o fundo não sobrepoe toda a tela e a barra de menu iniciar do windows la embaixo ainda fica acessível....

só a janela do acces q fica aparecendo mas blza....

será que tem como fazer o fundo sobrepor toda a janela do acces e deixar a barra de menu iniciar do windows la embaixo sobreposta ainda?

obrigado amigo bem legal mesmo!

Sim amigo.
no seu formulário frmFundo, vá na propiedade dele na aba todas na vigessima segunda opção que é estilo de borda altere para nenhum caso não esteja.

continuando na propiedade do seu formulário va na aba evento e clique para abrir o procedimento na opção Ao Abrir e coloque:

DoCmd.MoveSize 0, 0, 15400, 11100

Eu uso o Access 2007 e minha configuração de imagem é 1024 x 768 e fica legal, você pode ajusta dentro da sua necessidade caso queira.

Então amigo na vdd já até tinha encontrado uma forma.... talvez você ache legal, tente implementar no seu também esses códigos abaixo ai!

Este primeiro serve para esconder a janela do access inteira! muito legal, você tem que colocar ele na sua macro autoexec ou no formulário menu de controle principal se for ele o primeiro a abrir (geralmente é neh)!

Private Sub Form_Open(Cancel As Integer)
DoCmd.RunMacro "mcrHide"
End Sub

Este segundo código ele é muito bacana... maximiza a tela, e deixa ela translucida de acordo com o valor que você colocar ali no código, no caso está 0.85... se você colocar 1 ela fica sólida menos que 1 começa ficar translucida!

você cria um formulário fundo bota ele para ser o primeiro a ser aberto através da sua macro autoexec e coloca esses dois códigos nele e fica show!

Private Sub Form_Resize()
Me.Painting = False
DoCmd.Maximize
ColocaFormularioTransparente Me, 0.85
Me.Painting = True
End Sub

Espero que goste! aqui ficou d+

Muito bom.

Fica bacana no sistema

Obrigado. valeu!

Pessoal sou novo no access, estou aprendendo e preciso da ajuda de vocês. Não consigo fazer a minha transparencia abrir com o formulário. Alguem pode me ajudar?

segue anexo.