[Feature] Transparent Forms - Printable Version

[Feature] Transparent Forms - Printable Version

+- Mirage Source (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: Source Code Development (https://mirage-engine.uk/forums/forumdisplay.php?fid=51)
+----- Forum: Mirage Source 4 (Visual Basic 6) (https://mirage-engine.uk/forums/forumdisplay.php?fid=44)
+------ Forum: Tutorials (https://mirage-engine.uk/forums/forumdisplay.php?fid=13)
+------ Thread: [Feature] Transparent Forms (/showthread.php?tid=2928)

[Feature] Transparent Forms - ExoShox - 09-07-2009

Difficulty: 1/5
Sides: Client Only
Tested on: MS4
Works for: MS4
Credits: Me Big Grin

Tutorial Type: Copy and Paste No Tweaks Needed
Note to User: If you use this and your form does NOT have a background image, my Moveable Forms feature, and ALL controls on the form will be unusable. (So remember in form load you need to load a picture to the forms .Picture property)

Put this code in Form_Load of the form at the top:

Code:
Call FormTransparent(Me, vbWhite)

Put this in modDatabase under Option Explicit:

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

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

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

Public Const GWL_STYLE = (-16)

Public Const GWL_EXSTYLE = (-20)

Public Const WS_EX_LAYERED = &H80000

Public Const LWA_COLORKEY = &H1

Public Const LWA_ALPHA = &H2

Put this at the bottom of modDatabase:

Code:
Public Sub FormTransparent(ByVal CFrm As Form, ByVal Color As ColorConstants)

    CFrm.BackColor = Color

    SetWindowLong CFrm.hwnd, GWL_EXSTYLE, GetWindowLong(CFrm.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED

    SetLayeredWindowAttributes CFrm.hwnd, Color, 0&, LWA_COLORKEY

End Sub