[TUT]-VB- Form mit Schatten hinterlegen

[NSK]

Also,diese Tutorial zeigt euch, wie man eine Form mit einem Schatten versieht(per API)
Als erstes müsst ihr die Api's so deklarieren:

' Benötigte API-Deklarationen
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

Nun noch eine Sub hinzufügen:

' Schatten Sub
Public Sub SetWindowShadow(ByVal hWnd As Long)
Call SetClassLong(hWnd, GCL_STYLE, GetClassLong(hWnd, GCL_STYLE) Or CS_DROPSHADOW)
End Sub

und nun nur noch bei der Private Sub Form_Load() das hier eingeben:

'Schatten hinzufügen
SetWindowShadow me.hwnd

Und bei der Form wo ihr es ausgeführt und deklariert habt muss unter XP ein Schatten sichbar sein :)

mfg 1337-Universe

[Igoe]

Naja, von Tutorial kann mann hier nicht wirklich Reden...., Trotzdem Danke den das wuste ich nocht nicht.

Mfg

[Z o D]

wusst ich auch noch nicht,werds ma testen wenn ich zeit hab..ist aber im grunde schon nen texttut @Igoe ;)..halt nen kurzes