Fenster ohne Titelzeile Dieser Tipp verrät, wie man die Titelzeile eines Fenster zur Laufzeit ausblenden kann.
Autor:   Dieter Otter	Bewertung:	Views:  21.384
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Wie man ein Fenster ohne Titelzeile darstellt dürfte den meisten bekannt sein. Man setzt die BorderStyle-Eigenschaft der Form zur Entwurfszeit auf "kein Rahmen" und Caption = "".

Möchte man die Titelzeile jedoch erst zur Laufzeit ausblenden und das Fenster mit einem Rahmen darstellen, muss man auf das Windows-API zurückgreifen:

Option Explicit
 
' benötigte API-Deklarationen
Private Declare Function GetWindowLong Lib "user32" _
  Alias "GetWindowLongA" ( _
  ByVal hwnd As Long, _
  ByVal nIndex As Long) As Long
 
Private Declare Function SetWindowLong Lib "user32" _
  Alias "SetWindowLongA" ( _
  ByVal hwnd As Long, _
  ByVal nIndex As Long, _
  ByVal dwNewLong As Long) As Long
 
Private Const GWL_STYLE = (-16)
Private Const WS_CAPTION = &HC00000

' Fensterstil ändern
Dim nStyle As Long
 
With Form1
  ' aktuellen Fensterstil emitteln
  nStyle = GetWindowLong(.hwnd, GWL_STYLE)
 
  ' Titelleiste entfernen
  nStyle = nStyle And Not WS_CAPTION
 
  ' Neuen Fensterstil setzen
  SetWindowLong .hwnd, GWL_STYLE, nStyle
End With

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.