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.056
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)

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.