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:     [ Jetzt bewerten ]	Views:  15.006
ohne Homepage	System:  WinXP, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 37 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.4 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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