Window Transparency Class

[Telos]

Code Select Expand


'''''''''''''''''''''
' CTransparentForm
' By: Telos
' [email protected]
' Date: 4/1/2004
' Revision: 1
'''''''''''''''''''''

Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const WS_EX_TRANSPARENT = &H20&
Private Const LWA_ALPHA = &H2&

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) 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
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Private hWindow As Long

Public Property Get hWnd() As Long
   hWnd = hWindow
End Property

Public Property Let hWnd(ByVal hWindowHandle As Long)
   hWindow = hWindowHandle
   
   ' Get the old window style
   Dim nCurrentWindowStyle As Long
   nCurrentWindowStyle = GetWindowLong(hWindow, GWL_EXSTYLE)
   
   ' Or the old style with the layered style
   ' so that we can access transparency
   Call SetWindowLong(hWindow, GWL_EXSTYLE, nCurrentWindowStyle Or WS_EX_LAYERED)
   
   ' Window will appear as totally transparent
   ' unless we set this right away
   Call SetTransparency(0)
End Property

Public Sub SetTransparency(ByVal nPercent As Byte)
   ' Make the call that changes the window
   ' transparency.
   '
   ' Accepts 0 - 100
   ' 0 = totally visible
   ' 100 = totally invisible
   Call SetLayeredWindowAttributes(hWindow, 0, 255 - (255 * (nPercent / 100)), LWA_ALPHA)
End Sub


[Spht]

You code like CupHead, but I guess that can be useful.

[Noodlez]

You code like CupHead, but I guess that can be useful.

CupHead ripped my style :p

[Telos]

You code like CupHead, but I guess that can be useful.

If you mean the hungarian notation lots of people use that

[o.OV]

Just so you know.. I saw such a class somewhere online in several places.

[MyndFyre]

So why aren't you giving credit where it's due, Telos?  I vividly recall telling you of the "SetLayeredWindowAttributes" function the other day in Op [vL], because after we were done, I implemented the same project in C#.  I tried to set it up with the handle to my cmd.exe window, and it didn't work -- returing with error code 87, "The parameter is incorrect."  The window class is wrong with a console window.

Where's the:

Code Select Expand


'Thanks to MyndFyre for finding this function for me
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

?

[Maddox]

http://www.jelovic.com/articles/stupid_naming.htm

[Newby]

http://www.jelovic.com/articles/stupid_naming.htm

I hate naming stuff with the abbreviation. (C, cls, mod, frm, cmd, etc)

It just is annoying ><

[Telos]

So why aren't you giving credit where it's due, Telos?  I vividly recall telling you of the "SetLayeredWindowAttributes" function the other day in Op [vL], because after we were done, I implemented the same project in C#.  I tried to set it up with the handle to my cmd.exe window, and it didn't work -- returing with error code 87, "The parameter is incorrect."  The window class is wrong with a console window.

Where's the:

Code Select Expand


'Thanks to MyndFyre for finding this function for me
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

?

I vividly recall you lying in this post I suggest you check logs to see who it was you were really talking to