• Home
 · 
• Windows API Call/Explanation
 · 
• Make your form transparent According To Your Value

Make your form transparent According To Your Value

Make your form transparent According To Your Value

API Declarations



Public Const GWL_EXSTYLE As Long = -20
Public Const WS_EX_LAYERED As Long = &H80000
Public Const LWA_ALPHA As Long = &H2

Public Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" ( _
ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
Public Declare Function SetLayeredWindowAttributes Lib "user32.dll" ( _
ByVal hwnd As Long, _
ByVal crKey As Long, _
ByVal bAlpha As Byte, _
ByVal dwFlags As Long) As Long
Public Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" ( _
ByVal hwnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Public Declare Function SetParent Lib "user32.dll" ( _
ByVal hWndChild As Long, _
ByVal hWndNewParent As Long) As Long



Rate Make your form transparent According To Your Value

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

On Error Resume Next

   Dim Attrib As Long
   Attrib = GetWindowLong(OB_Hwnd, GWL_EXSTYLE)
   SetWindowLong OB_Hwnd, GWL_EXSTYLE, Attrib Or WS_EX_LAYERED
   SetLayeredWindowAttributes OB_Hwnd, RGB(0, 0, 0), OB_Val, LWA_ALPHA
   FTransVal = OB_Val
   Exit Sub

End Sub