Hallo zusammen, nun wieder ma mit einer Frage, wie kann mein Programm erkennen on 2 Monitore da sind , und entsprechend Form1 auf Monitor 1 legt und Form2 auf Monitor 2
bei mein schript werden noch weitere fragen offen sein aber mir gehts es gerade genau darum, hab schon gegoogelt, und auch hier im forum was gefunden,, aber es hat nicht funktioniert .
hier mein schript
das von Form 2 lass ich mal aussen vor
bei mein schript werden noch weitere fragen offen sein aber mir gehts es gerade genau darum, hab schon gegoogelt, und auch hier im forum was gefunden,, aber es hat nicht funktioniert .
hier mein schript
VB.NET-Quellcode
- Imports System.IO
- Public Class Form1
- Private Dialog As Form2
- Private Setting As UserControl1
- Dim Datei As String
- Dim File As String
- Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
- Dim Wert As Integer
- Wert = MsgBox("Wollen sie WebPrg wirklich beenden ?", vbOKCancel, "Beenden")
- If Wert = 1 Then
- Me.Close()
- End If
- End Sub
- Private Sub EinstellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EinstellungenToolStripMenuItem.Click
- Setting = New UserControl1
- Me.Setting.Show()
- End Sub
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- Dim screen As Screen
- screen = Screen.AllScreens(0)
- Form2.StartPosition = FormStartPosition.Manual
- Form2.Location = screen.Bounds.Location + New Point(100, 100)
- Me.Dialog = New Form2
- Me.Dialog.Show(Me)
- End Sub
- Private Sub NeuToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuToolStripMenuItem.Click
- If Me.RichTextBox1.Text <> "" Then
- Dim Wert As Integer
- Wert = MsgBox("Wollen sie das aktive Script speichern ?", vbYesNoCancel, "Neues Script")
- If Wert <> 2 Then
- If Wert = 6 Then
- Sichern()
- End If
- End If
- End If
- End Sub
- Private Sub Sichern()
- SaveFileDialog1.Filter = "HTML | *.htm*"
- SaveFileDialog1.ShowDialog()
- End Sub
- Private Sub RichTextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles RichTextBox1.KeyDown
- If (e.KeyCode = Keys.Enter) Then
- File = "C:\webprg\temp.html"
- Speichern()
- Dialog.MyText = RichTextBox1.Text
- If Me.Dialog Is Nothing OrElse Me.Dialog.IsDisposed Then
- Dialog = New Form2
- End If
- If Not Dialog.Visible Then
- Dialog.Show(Me)
- End If
- End If
- End Sub
- Private Sub ÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ÖffnenToolStripMenuItem.Click
- OpenFileDialog1.Multiselect = False
- OpenFileDialog1.Filter = "HTML | *.htm*"
- OpenFileDialog1.ShowDialog()
- Datei = OpenFileDialog1.FileName
- End Sub
das von Form 2 lass ich mal aussen vor
Ich bin, wie ich bin, in vielen sachen noch ein anfänger, auch wenn ich sachen schon seit jahren mache