Rubrik: System/Windows · Desktop/Bildschirm/Display | VB-Versionen: VB4, VB5, VB6 | 20.06.02 |
Größe des Arbeitsbereich ermitteln Mit dem Microsoft SysInfo-Control schnell den verfügbaren Bildschirm-Arbeitsbereich ermitteln. | ||
Autor: Marcus Woida | Bewertung: | Views: 16.025 |
www.mawosoft.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Wenn man den maximal zur Verfügung stehenden Bildschirm-Arbeitsbereich ermitteln will, kommt man mit Srceen.Width und Screen.Height nicht weit, da diese Werte die gesamte Breite und Höhe des Bildschirms liefern - also einschließlich Taskbar und anderen Application-Bars.
Da man auch nicht davon ausgehen kann, daß die Taskleiste immer unten und eine Zeile hoch ist, muß man sich mittels API erst auf die Suche nach Position und Größe derselben machen.
Einfacher geht's mit dem SysInfo-Control von Microsoft.
Beispiel:
Das ermittelt den maximal zur Verfügung stehenden Bildschirm-Arbeitsbereich unter Berücksichtung einer "fixen" Taskbar, sowie weiteren evtl. vorhandenen und immer sichtbaren Application-Bars.
Dim nWidth As Long Dim nHeight As Long nWidth = SysInfo1.WorkAreaWidth nHeight = SysInfo1.WorkAreaHeight MsgBox "Maximaler Arbeitsbereich in Twips: " & _ CStr(nWidth) & " x " CStr(nHeight)