[VB6]Form Transparente

[~~Surfistinha~~ 13]

Requerimentos:

- Visual Basic 6

- 1 Module

- 2 CommandButton

 

Tutorial:

- Adcione uma module ao seu projeto e adicione o seguinte código:

 

 

' Declaração de API's necessários

 

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

 

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

 

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

 

' Definição de constantes

 

Private Const GWL_EXSTYLE = (-20)

 

Private Const LWA_COLORKEY = &H1

 

Private Const LWA_ALPHA = &H2

 

Private Const ULW_COLORKEY = &H1

 

Private Const ULW_ALPHA = &H2

 

Private Const ULW_OPAQUE = &H4

 

Private Const WS_EX_LAYERED = &H80000

 

' Define o form como transparente

 

Public Sub ProfessionalCodeMT(ByVal hwnd As Long, ByVal bAlpha As Integer)

 

Dim msg As Long

 

' Ignora possíveis erros

 

On Error Resume Next

 

' Caso o valor seja inferior a 255 e superior

 

' a 0 aplica uma nova transparência

 

If bAlpha > 0 Or bAlpha < 255 Then

 

msg = GetWindowLong(hwnd, GWL_EXSTYLE)

 

msg = msg Or WS_EX_LAYERED

 

SetWindowLong hwnd, GWL_EXSTYLE, msg

 

SetLayeredWindowAttributes hwnd, 0, bAlpha, LWA_ALPHA

 

End If

End Sub

 

 

' Define o form com opaco

 

Public Sub MakeOpaque(ByVal hwnd As Long)

 

Dim msg As Long

 

 

 

' Ignora possíveis erros

 

On Error Resume Next

 

 

 

msg = GetWindowLong(hwnd, GWL_EXSTYLE)

 

msg = msg And Not WS_EX_LAYERED

 

SetWindowLong hwnd, GWL_EXSTYLE, msg

 

SetLayeredWindowAttributes hwnd, 0, 0, LWA_ALPHA

 

 

 

End Sub

 

- Adicione 2 commandButton ao form, o primeiro com o capition de transparente e o segundo de normal.

- Adicione o seguinte codigo no button transparente:

ProfessionalCodeMT Me.hwnd, 180

- Adicione o seguinte código no button normal:

ProfessionalCodeMT Me.hwnd, 250

 

 

- Pronto é apenas isso, aperte F5 e clique no botão transparente e confira o efeito.