Standard-Design trotz Luna Ein kleiner Trick der zeigt, wie sich unter WinXP im Fenstertitel die Standard-Buttons von Win2000 "reaktivieren" lassen.
Autor:   Jan Ameli	Bewertung:	Views:  14.540
ohne Homepage	System:  WinXP, Win8, Win10, Win11	Beispielprojekt auf CD

Unter Windows XP wird je nach Theme standardmäßig ein dicker blauer Balken mit großen Minimieren-, Maximieren- und Schließen-Button in der Titelleiste des Fensters angezeigt.

Durch Aufruf einer einzigen API-Funktion können Sie dies umgehen und das "alte" Windows 2000 Design trotz Luna "reaktivieren"

Starten Sie ein neues Projekt und fügen nachfolgenden Code in den Codeteil der Form1 ein:

' zunächst die benötigten API-Deklarationen
Private Declare Function SetWindowRgn Lib "user32" ( _
  ByVal hWnd As Long, _
  ByVal hRgn As Long, _
  ByVal bRedraw As Boolean) As Long

Private Sub Form_Load()
  ' Wenn Sie die 1 durch eine 0 ersetzen,
  ' wird wieder das Luna Design angezeigt.
  SetWindowRgn Me.hWnd, 1, True
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.