Rubrik: Oberfläche · Fenster | VB-Versionen: VB4, VB5, VB6 | 25.08.03 |
Fenster ohne Titelzeile Dieser Tipp verrät, wie man die Titelzeile eines Fenster zur Laufzeit ausblenden kann. | ||
Autor: Dieter Otter | Bewertung: | Views: 21.387 |
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