Fensterschatten hinzufügen (WinXP) Durch Ändern des Fensterstils lässt sich unter Windows XP dem Fenster ein Schatten hinzufügen, wie man es von den PopUp-Menüs her kennt.
Autor:   Dieter Otter	Bewertung:	Views:  13.241
www.tools4vb.de	System:  WinXP, Win8, Win10, Win11	Beispielprojekt auf CD

Durch Ändern des Fensterstils lässt sich unter Windows XP dem Fenster ein Schatten hinzufügen, wie man es von den PopUp-Menüs her kennt.
Fügen Sie hierzu folgenden Code in ein Modul ein:

Option Explicit
 
' 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
 
Private Const GCL_STYLE = (-26)
Private Const CS_DROPSHADOW = &H20000

' Fenster mit zusätzlichem Schatten ausstatten
Public Sub SetWindowShadow(ByVal hWnd As Long)
  Call SetClassLong(hWnd, GCL_STYLE, GetClassLong(hWnd, GCL_STYLE) Or CS_DROPSHADOW)
End Sub

Die Prozedur SetWindowShadow rufen Sie dann im "Form_Load"-Ereignis des jeweiligen Formulars auf.

Private Sub Form_Load()
  ' Fensterschatten hinzufügen
  SetWindowShadow Me.hWnd
End Sub

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.