Anzeige auf mehreren Bildschirmen

    • VB.NET

      Anzeige auf mehreren Bildschirmen

      hallo,

      hier ein kleines beispiel, wie man alle angeschlossenen bildschirme ermittelt und
      ein fenster auf jedem dieser bildschirme anzeigt.

      jeder bildschirm wird in

      VB.NET-Quellcode

      1. Screen.Allscreens

      aufgelistet.
      die bounds-eigenschaft beinhaltet die koordinaten des jeweiligen bildschirms.
      dadurch kann man dann sein fenster entsprechend positionieren.

      hier das beispiel: (dafür benötigt man 1xbutton)

      VB.NET-Quellcode

      1. Public Class Form1
      3. Private screens As New List(Of Rectangle)
      5. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      6. 'prüfen ob mehr als ein bildschirm vorhanden ist
      7. If Screen.AllScreens.Length < 2 Then
      8. MessageBox.Show("Sie haben keinen zweiten Bildschirm angeschlossen !")
      9. Me.Close()
      10. End If
      11. 'alle bounds merken
      12. For Each s As Screen In Screen.AllScreens
      13. screens.Add(s.Bounds)
      14. Next
      15. End Sub
      17. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      18. 'für jeden bildschirm eine form erstellen und am linken oberen eck anzeigen
      19. For i As Integer = 0 To screens.Count - 1
      20. Dim f As New Form
      21. f.Size = New Size(100, 100)
      22. f.Text = "Hier ist der " & (i + 1).ToString & " te Bildschirm"
      23. f.Show()
      24. f.Location = screens(i).Location
      25. Next
      26. End Sub
      27. End Class

      gruss

      mikeb69