Make form alpha blended on Windows 2000 or higher

by Aythos (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 28^th February 2001
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

API Declarations
Private Const GWL_EXSTYLE = (-20) Private Const LWA_COLORKEY = &H1 Private Const LWA_ALPHA = &H2 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 crColor As Long, ByVal nAlpha As Byte, ByVal dwFlags As Long) As Long

Rate Make form alpha blended on Windows 2000 or higher




    ' enable layered window style
    Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED)

    ' set magenta to transparent
    ' set rest of window to 50% blend with the background

    Call SetLayeredWindowAttributes(Me.hwnd, RGB(255, 0, 255), 128, LWA_ALPHA Or LWA_COLORKEY)
    
End Sub

Download this snippet Add to My Saved Code

Make form alpha blended on Windows 2000 or higher Comments

No comments have been posted about Make form alpha blended on Windows 2000 or higher. Why not be the first to post a comment about Make form alpha blended on Windows 2000 or higher.

Make form alpha blended on Windows 2000 or higher

Make form alpha blended on Windows 2000 or higher Comments

Post your comment

Difficulty