Größe des Arbeitsbereich ermitteln Mit dem Microsoft SysInfo-Control schnell den verfügbaren Bildschirm-Arbeitsbereich ermitteln.
Autor:   Marcus Woida	Bewertung:     [ Jetzt bewerten ]	Views:  16.523
www.mawosoft.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 23 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 2.7 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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)