Hallo,
ich habe an meinem Rechner einen Zweiten Monitor. Auf diesem liegt eine Zweite Form (Form2). Die besteht aus einem Label und einer Picture Box.
Ich möchte gerne dies Form, die immer auf dem zweiten Bildschirm geöffnet liegt, mit Daten versorgen.
Ab und zu will ich den Text im Label ändern (hinzufügen, löschen, ändern) und das Bild in der Picture Box.
Wie kann ich die zweite Form ansprechen, ich weiß ja deren Namen nicht.
öffnen tu ich das Formular zwei mit:
Thema Verschoben ~ EaranMaleasi
ich habe an meinem Rechner einen Zweiten Monitor. Auf diesem liegt eine Zweite Form (Form2). Die besteht aus einem Label und einer Picture Box.
Ich möchte gerne dies Form, die immer auf dem zweiten Bildschirm geöffnet liegt, mit Daten versorgen.
Ab und zu will ich den Text im Label ändern (hinzufügen, löschen, ändern) und das Bild in der Picture Box.
Wie kann ich die zweite Form ansprechen, ich weiß ja deren Namen nicht.
öffnen tu ich das Formular zwei mit:
VB.NET-Quellcode
- Dim _screenName As New List(Of String)
- Dim _screenBounds As New List(Of String)
- Dim _screenType As New List(Of String)
- Dim _screenWorkingArea As New List(Of String)
- Dim _screenPrimeryScreen As New List(Of String)
- 'Wieviele Bildschirme gibt es
- For Each screen In System.Windows.Forms.Screen.AllScreens
- _screenName.Add("Device Name: " + screen.DeviceName)
- _screenBounds.Add("Bounds: " + screen.Bounds.ToString())
- _screenType.Add("Type: " + screen.GetType().ToString())
- _screenWorkingArea.Add("Working Area: " + screen.WorkingArea.ToString())
- _screenPrimeryScreen.Add("Primary Screen: " + screen.Primary.ToString())
- Next
- 'Nur wenn mehr als 1 Bildschirm vorhanden
- If _screenName.Count > 1 Then
- If My.Settings.QrCode = True Then
- Dim screen As Screen
- screen = screen.AllScreens(1)
- Dim frm As New Form2 ' Hier wird eine Instanz erzeugt.
- frm.[FormName] = "Form1"
- frm.Timer_Zeit = -1
- frm.Bild = "Front.jpg"
- frm.Label_Text = vbCrLf & BildschirmText("BildschirmText.txt")
- frm.StartPosition = FormStartPosition.Manual
- frm.Location = New Point(screen.Bounds.X + 1, screen.Bounds.Y + 1)
- frm.Show()
- End If
- End If
Thema Verschoben ~ EaranMaleasi
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „EaranMaleasi“ ()