Form Transparency

[syrillia]

Hi guys, I'm currently using this to make my form semi-transparent. and it's working fine, for it's meant to be used for.

Option Explicit

Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
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 crKey As Long, _
    ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Public Function TransForm(Form As Form, TransLevel As Byte) As Boolean
    SetWindowLong Form.hWnd, GWL_EXSTYLE, WS_EX_LAYERED
    SetLayeredWindowAttributes Form.hWnd, 0, TransLevel, LWA_ALPHA
    TransForm = Err.LastDllError = 0
End Function

Private Sub Form_Load()
    TransForm Me, 200
End Sub

But I now need to be able to control the transparency of the form and the controls separately, rather than all in one. Anyone got any ideas?

Syrillia

[jemidiah]

While horrendously inefficient and clunky, if all else fails you could put each control on its own form and control each form's transparency.

[Neato]

Or just have a 'Settings' form available, with frames and a slider calling each forms transparency.