Rubrik: Oberfläche · Menüs | VB-Versionen: VB4, VB5, VB6 | 17.02.06 |
Höhe der Standard Menüzeile ermitteln Mit Hilfe des Windows API lässt sich die Höhe der Standard Menüzeile schnell und einfach ermitteln. | ||
Autor: Dieter Otter | Bewertung: | Views: 9.903 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Mit Hilfe der Windows API-Funktion GetSystemMetrics lässt sich die Höhe der Standard Menüzeile sehr schnell und einfach ermitteln.
' benötigte API-Deklarationen Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long Private Const SM_CYMENUSIZE = 55
Die Höhe der Menüzeile wird hierbei in Pixel zurückgegeben:
Dim nMenuBarHeight As Long nMenuBarHeight = GetSystemMetrics(SM_CYMENUSIZE)
Benötigt man die Angabe jedoch in Twips, lässt sich diese wie folgt umrechnen:
nMenuBarHeight = nMenuBarHeight * Screen.TwipsPerPixelY