Visual Basic Forum

bluespoon · Newbie Anmeldedatum: 25.05.2008 Beiträge: 11

Hallo,

bin wieder da und hab' auch auch gleich ein kleines Problem.

Edit:

Ich möchte einen Schlagschatten hinter eine Form ohne Rahmen
bringen. Nun kann Windows das ja von Haus aus, ich habe aber
keine Ahnung, wie ich das bei zwei geladenen Formen lediglich
auf eine der beiden anwende.

Ein kleines Beispielprojekt zum besseren Verständnis gibt's im
Anhang. Vielen Dank schon einmal im Voraus.

Hier noch der Code für den Schlagschatten, der automatisch
auf alle Formen angewendet wird:
Visual Basic: [code]Private Declare Function GetClassLong Lib "user32" Alias "GetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GCL_STYLE = (-26)
Private Const CS_DROPSHADOW = &H20000

Private Sub Schlagschatten(ByVal hwnd As Long)
Call SetClassLong(hwnd, GCL_STYLE, GetClassLong(hwnd, GCL_STYLE) Or CS_DROPSHADOW)
End Sub
[/code]

Gruß, Patrick
_________________