| Rubrik: Oberfläche · Menüs | VB-Versionen: VB4, VB5, VB6 | 17.02.06 |
 Höhe der Standard Menüzeile ermittelnMit Hilfe des Windows API lässt sich die Höhe der Standard Menüzeile schnell und einfach ermitteln. | ||
Autor:  Dieter Otter | Bewertung:   | Views: 10.575 |
| https://www.tools4vb.com | 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
