Rubrik: System/Windows · Desktop/Bildschirm/Display | VB-Versionen: VB.NET | 10.04.06 |
Mit Hilfe der Screen-Klasse lässt sich die aktuelle Bildschirmauflösung und auch der verfügbare Arbeitsbereich wie folgt ermittlen.
' Bildschirmauflösung
Dim nScreenWidth As Integer
Dim nScreenHeight As Integer
With Screen.PrimaryScreen.Bounds
nScreenWidth = .Width
nScreenHeight = .Height
End With
MsgBox("Aktuelle Bildschirmauflösung: " & _
nScreenWidth.ToString & " x " & nScreenHeight.ToString)
Je nach Systemeinstellung ist der tatsächliche Arbeitsbereich aber kleiner, wenn bspw. die Windows-Taskbar im Vordergrund angezeigt wird. Der tatsächliche Arbeitsbereich lässt sich wie folgt ermitteln:
' tatsächlicher Arbeitsbereich
Dim nWorkingWidth As Integer
Dim nWorkingHeight As Integer
With Screen.PrimaryScreen.WorkingArea
nWorkingWidth = .Width
nWorkingHeight = .Height
End With
MsgBox("tatsächlicher Arbeitsbereich: " & _
nWorkingWidth.ToString & " x " & nWorkingHeight.ToString)