Reply to thread

Message: <blockquote data-quote="pjayampathi" data-source="post: 3253611" data-attributes="member: 74195">Programming Language : Visual Basic 6 or .NetNote : Make the Window Transparent..[CODE][B]Declaretion :[/B]Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongPrivate Const GWL_EXSTYLE = (-20)Private Const WS_EX_LAYERED = &H80000Private Const LWA_ALPHA = &H2&[B]Code :[/B]Dim bytOpacity As BytebytOpacity = 128Call SetWindowLong(Me.hWnd, GWL_EXSTYLE, GetWindowLong(Me.hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED)Call SetLayeredWindowAttributes(Me.hWnd, 0, bytOpacity, LWA_ALPHA)[/CODE]</blockquote>

Top Bottom