vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: System/Windows · Desktop/Bildschirm/Display   |   VB-Versionen: VB.NET10.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 OtterBewertung:     [ Jetzt bewerten ]Views:  44.961 
www.tools4vb.deSystem:  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)