USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Form transparente.
Supreme Being
Pontos: 2843
QUALQUER LUGAR NO QUADRANTE DA
.. - GALÁXIA.
ENUNCIADA !
Postada em 27/09/2007 22:38 hs            
Vasculhei alguns exemplos para fazer o form ficar transparente e o label ou textbox ficarem visiveis. Achei um só que faz isso, os outros que achei, deixa tudo transparente. Só que esse que encontrei não consegui fazer funcionar no meu projeto, ele só funciona no projeto de exemplo (não sei porque).
 
Alguém tem uma rotina (simples e funcional) para fazer o form ficar transparentes e o componentes permanecerem visiveis normalmente?
   
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 28/09/2007 09:43 hs            
Não sei se vc já usou a dica mas está aí:
 
 
at+
   
Supreme Being
Pontos: 2843
QUALQUER LUGAR NO QUADRANTE DA
.. - GALÁXIA.
Postada em 28/09/2007 22:27 hs            
Não deu certo ou, eu não coloquei os códigos no lugar certo.
 
Criei o modulo e coloquei as informações.
'Declaração de APIs
'Num módulo
Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_TRANSPARENT = &H20&
Public Const SWP_FRAMECHANGED = &H20
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_SHOWME = SWP_FRAMECHANGED Or _
SWP_NOMOVE Or SWP_NOSIZE
Public Const HWND_NOTOPMOST = -2

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Agora, onde eu coloco a informação abaixo?
'===codigo=====
SetWindowLong Me.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT
SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0&, 0&, 0&, 0&, SWP_SHOWME
     
Diego#27
INDAIATUBA
SP - BRASIL
ENUNCIADA !
Postada em 06/12/2007 12:05 hs            
eu tinha pego um exemplo aqui mesmo no vbweb, agora não estou lembrado aonde foi, acredito que foi em projetos....para mim particularmente serviu como uma luva, não sei se é exatamente que você procura mais vale a pena dar uma pesquizada!
att,
Diego Ricardo
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página