Tipp 0014 Bildschirminformationen auslesen
Autor/Einsender:
Datum:
  Michael Werner
01.06.2003
Entwicklungsumgebung:   VB.Net 2002
Framework:   1.0
Die Screen-Klasse im System.Windows.Forms-Namespace stellt ein Anzeigegerät oder mehrere Anzeigegeräte in einem einzelnen System dar. Mit den Screen-Members PrimaryScreen und PrimaryScreen.WorkingArea kann die Bildschirmauflösung und das sogenannte WorkingArea (der tatsächliche Arbeitsbereich des Screens, z. B. ohne Taskleiste) ermittelt werden. Mit der Eigenschaft Screen.AllScreens kann ein Array aller Bildschirme (Anzeigen) im System abgerufen werden.
 
Public Class Form1
  Inherits System.Windows.Forms.Form
Vom Windows Form Designer generierter Code
  Private Sub Button1_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click

    Dim wW, wH, sW, sH As Long

    'PrimärScreen
    TextBox1.Text = Screen.PrimaryScreen.ToString

    'Bildschirmauflösung
    sW = Screen.PrimaryScreen.Bounds.Size.Width
    sH = Screen.PrimaryScreen.Bounds.Size.Height
    Label2.Text = sW & " x " & sH

    'WorkingArea
    wW = Screen.PrimaryScreen.WorkingArea.Width
    wH = Screen.PrimaryScreen.WorkingArea.Height
    Label3.Text = wW & " x " & wH
  End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button2.Click

    Dim Index As Integer
    Dim UpperBound As Integer

    ' Alle Anzeigen (Bildschirme) im System ermitteln
    Dim Screens() As System.Windows.Forms.Screen = _
            System.Windows.Forms.Screen.AllScreens

    UpperBound = Screens.GetUpperBound(0)
    For Index = 0 To UpperBound
      ListBox1.Items.Add( _
          "Device Name: " + Screens(Index).DeviceName)
      ListBox1.Items.Add( _
          "Bounds: " + Screens(Index).Bounds.ToString())
      ListBox1.Items.Add( _
          "Type: " + Screens(Index).GetType().ToString())
      ListBox1.Items.Add("Working Area: " + _
          Screens(Index).WorkingArea.ToString())
      ListBox1.Items.Add("Primary Screen: " + _
          Screens(Index).Primary.ToString())
    Next

    Label1.Text = "Anzahl Bildschirme: " & CStr(UpperBound + 1)
  End Sub

  Private Sub Button3_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button3.Click
    Me.Close()
  End Sub
End Class
 
Links zum Thema
Systemeinstellungen auslesen
System-Informationen auslesen (WMI)

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (6,6 kB) Downloads bisher: [ 948 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Samstag, 21. Januar 2012