[S] Durchklickbare Form

[nom]

Ich suche ein Script, mit dem ich meine Form durchklickbar machen kann und komplett durchsichtig.

Stichpunkte:
- Form durchsichtig bis auf Inhalt (Textboxen, Linien usw)
- Durchklickbar durch alles außer Inhalt (Textboxen, Linien usw)

mfg

[IntelCore]

VB.Net oder VB6?

[Kan!]

Druchsichtig:

Modul:

Option Explicit

Declare Function GetWindowLong Lib "user32.dll" _
                 Alias "GetWindowLongA" ( _
                 ByVal hWnd As Long, _
                 ByVal nIndex As Long) As Long
                 
Declare Function SetWindowLong Lib "user32.dll" _
                 Alias "SetWindowLongA" ( _
                 ByVal hWnd As Long, _
                 ByVal nIndex As Long, _
                 ByVal dwNewLong As Long) As Long
                 
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 Const GWL_EXSTYLE = (-20)
Public Const WS_EX_LAYERED = &H80000


Public Const LWA_ALPHA = &H2

Public Sub Mache_Transparent(hWnd As Long, Rate As Byte)

   
    Dim WinInfo As Long
   
    WinInfo = GetWindowLong(hWnd, GWL_EXSTYLE)
   
    If Rate < 255 Then
        WinInfo = WinInfo Or WS_EX_LAYERED
        SetWindowLong hWnd, GWL_EXSTYLE, WinInfo
        SetLayeredWindowAttributes hWnd, 0, Rate, LWA_ALPHA
    Else

        WinInfo = WinInfo Xor WS_EX_LAYERED
        SetWindowLong hWnd, GWL_EXSTYLE, WinInfo
    End If
End Sub

Aufrufen:

Private Sub Form_Load()
Call Mache_Transparent(Me.hWnd, 190) ' Hier kannst du einstellen wie Transparent es sein soll
End Sub

Bei durchklickbar kann ich dir nicht weiterhelfen.