Rubrik: System/Windows · Desktop/Bildschirm/Display | VB-Versionen: VB.NET | 27.04.06 |
Anzahl der Bildschirme (Anzeigegeräte) ermitteln (.NET) Mit diesem Code lässt sich die Anzahl der im System vorhandenen Bildschirme, sowie deren Auflösung und Arbeitsbereich ermitteln. | ||
Autor: Dieter Otter | Bewertung: | Views: 20.688 |
www.tools4vb.de | System: WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Die Verwendung mehrerer Bildschirme wird immer beliebter. Mit nachfolgendem Code lässt sich die Anzahl der Bildschirme schnell ermitteln, sowie deren Auflösung und Arbeitsbereich (WorkingArea) auslesen.
Erstellen Sie ein neues Windows-Form-Projekt und platzieren auf die Form ein ListBox-Control, sowie ein CommandButton. Fügen Sie nachfolgenden Code in das Click-Event des Button ein.
Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click ' Array aller vorhandenen Bildschirme Dim oScreens() As Screen = Screen.AllScreens ' Anzahl vorhandener Bildschirme Dim nScreenCount As Integer = oScreens.Length ' Auflösung, WorkingArea etc. der einzelnen Bildschirme For i As Integer = 0 To nScreenCount - 1 With ListBox1.Items .Add("Auflösung: " + oScreens(i).Bounds.Size.ToString) .Add("Start-Position: " & oScreens(i).Bounds.Location.ToString()) .Add("Working Area: " & oScreens(i).WorkingArea.ToString()) .Add("Primary Screen: " & oScreens(i).Primary.ToString()) End With Next i Me.Text = "Anzahl Bildschirme: " & nScreenCount.ToString() End Sub