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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  TRANSPARENTE
Jaba
SÃO PEDRO DA ALDEIA
RJ - BRASIL
Postada em 26/11/2005 16:24 hs            
OLA AMIGOS, POR ACASO ALGUÉM SABE COMO FAZER PARA QUE O FORMULARIO FIQUE TRANSPARENTE,.
  NO JOGO DE COUNTER STRIKE, QUANDO APERTAMOS A TECLA "TAB" APARECE UM DO JEITO QUE EU ESTOU QUERENDO.
ALGUÉM PODERIA ME AJUDAR NESSA?
 
 
ATENCIOSAMENTE,
RODRIGO PORTO 
     
Zoltran
SÃO PAULO
SP - BRASIL
Postada em 26/11/2005 18:30 hs            
naum conheço o jogo mencionado, mas vê se isso serve...
'Declaração de APIs
'Em um 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

'Código
SetWindowLong Me.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT
SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0&, 0&, 0&, 0&, SWP_SHOWME
 
 
     
Gabriel
não registrado
Postada em 27/11/2005 12:04 hs   
cara..... isso que voce quer nao eh invisivel... eh soh tramparente.... q nen olhar um vidro... vc ve o Vidro e o que tem atras!
     
Rodrigo F.
JABOTICABAL
SP - BRASIL
Postada em 28/11/2005 22:37 hs            
Jaba, tem uma ocx que faz isso, ela deixa a janela transparente, estou colocando ela na area de troca de arquivos !
 
Pegue os arquivos Transparent.ocx e transparente.oca, salve os dois em ":WindowsSystem32". Agora use ele em sua aplicação como um componente. Espero ter ajudado.
 

Rodrigo Ferreira

MSN - rjpferreira@hotmail.com

TÓPICO EDITADO
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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