Rubrik: System/Windows · Desktop/Bildschirm/Display | VB-Versionen: VB.NET | 10.04.06 |
Bildschirmauflösung ermitteln (.NET) Mit Hilfe der Screen-Klasse lässt sich die aktuelle Bildschirmauflösung und auch der verfügbare Arbeitsbereich wie folgt ermittlen. | ||
Autor: Dieter Otter | Bewertung: | Views: 45.051 |
www.tools4vb.de | System: WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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)