Hey leute.
Ich hoffe Ihr könnt mir helfen!!!!
Ich hab ein Problem was Drag&Drop angeht.
Hab im Internet schon gegoogelt und auch paar dinge gefunden. Nur leider find ich den Fehler nicht
Ich habe eine Form "Startseite" und eine Form "Zuordnungsform"
Auf der Form "Startseite" die ein IsMdiContainer ist, habe ich eine Listbox die ich "Listbox" nenne und ein Button1 (der nur die Zuordnungsform erstellt)--> soll später anderweitig passieren
Die zweite Form "Zuordnungsform" besitzt nur eine Listbox die ich ebenfalls "Listbox" nenne. (Sind ja zwei unterschiedliche Classen)
Nun will ich (vorerst nur) von der "Startseite" per Drag&Drop Inhalte der Listbox (Startseite) in die Listbox (Zuordnungsform) verschieben. Und umgekehrt!!!!
Später entstehen mehrere Zuordnungsformen wo ich die Begrifflichkeiten zwischen der Startseitenlistbox und Zuordnungsform-listboxen und Zuordnungsform-listboxen und Zuordnungsform-listboxen hin und her verschieben kann.. unendlich oft ... aber das später
Es entsteht das Zeichen, dass ein Drag&Drop stattfindet (Mauszeiger verändert sich) aber wenn ich es in die andere Listbox Einfüge, passiert nix und kommt im Direktfenster die Meldung:
Eine Ausnahme (erste Chance) des Typs "System.InvalidCastException" ist in MeinProgramm.exe aufgetreten.
Ich hoffe Ihr könnt mir Helfen!!!!
und schonmal ganz herzlichen Dank!!!!
PS: Bild wie es aussieht zu verdeutlichung hab ich beigefügt!
Ich habe folgenden Code für meine Startseite.
Hier der Code für die Zuordnungsform
Ich hoffe Ihr könnt mir helfen!!!!
Ich hab ein Problem was Drag&Drop angeht.
Hab im Internet schon gegoogelt und auch paar dinge gefunden. Nur leider find ich den Fehler nicht
Ich habe eine Form "Startseite" und eine Form "Zuordnungsform"
Auf der Form "Startseite" die ein IsMdiContainer ist, habe ich eine Listbox die ich "Listbox" nenne und ein Button1 (der nur die Zuordnungsform erstellt)--> soll später anderweitig passieren
Die zweite Form "Zuordnungsform" besitzt nur eine Listbox die ich ebenfalls "Listbox" nenne. (Sind ja zwei unterschiedliche Classen)
Nun will ich (vorerst nur) von der "Startseite" per Drag&Drop Inhalte der Listbox (Startseite) in die Listbox (Zuordnungsform) verschieben. Und umgekehrt!!!!
Später entstehen mehrere Zuordnungsformen wo ich die Begrifflichkeiten zwischen der Startseitenlistbox und Zuordnungsform-listboxen und Zuordnungsform-listboxen und Zuordnungsform-listboxen hin und her verschieben kann.. unendlich oft ... aber das später
Es entsteht das Zeichen, dass ein Drag&Drop stattfindet (Mauszeiger verändert sich) aber wenn ich es in die andere Listbox Einfüge, passiert nix und kommt im Direktfenster die Meldung:
Eine Ausnahme (erste Chance) des Typs "System.InvalidCastException" ist in MeinProgramm.exe aufgetreten.
Ich hoffe Ihr könnt mir Helfen!!!!
und schonmal ganz herzlichen Dank!!!!
PS: Bild wie es aussieht zu verdeutlichung hab ich beigefügt!
Ich habe folgenden Code für meine Startseite.
VB.NET-Quellcode
- Public Class Startseite
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim lb1 As ZuordnungsForm = New ZuordnungsForm 'erstellen einer Zuordnungsform
- lb1.MdiParent = Me 'die ein Kind von der Startseite sein soll
- lb1.Show() 'zeigen der Zuordnungsform
- End Sub
- Private Sub ListBox_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox.DragDrop
- Dim filestr() As String
- If e.Data.GetDataPresent(DataFormats.Text) Then
- filestr = e.Data.GetData(DataFormats.Text)
- ListBox.Items.Add(filestr)
- End If
- End Sub
- Private Sub ListBox_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox.DragEnter
- e.Effect = DragDropEffects.Move
- End Sub
- Private Sub ListBox_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox.MouseMove
- If (e.Button = Windows.Forms.MouseButtons.Left) And ListBox.SelectedIndex >= 0 Then
- ListBox.DoDragDrop(ListBox.SelectedItem.ToString, DragDropEffects.Move)
- End If
- End Sub
- End Class
Hier der Code für die Zuordnungsform
VB.NET-Quellcode
- Public Class ZuordnungsForm
- Private Sub ListBox_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox.DragDrop
- Dim filestr() As String
- If e.Data.GetDataPresent(DataFormats.Text) Then
- filestr = e.Data.GetData(DataFormats.Text)
- MsgBox("test")
- ListBox.Items.Add(filestr)
- End If
- End Sub
- Private Sub ListBox_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox.DragEnter
- If e.Data.GetDataPresent(DataFormats.Text) Then
- e.Effect = DragDropEffects.Move
- End If
- End Sub
- Private Sub ListBox_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox.MouseMove
- If (e.Button = Windows.Forms.MouseButtons.Left) And ListBox.SelectedIndex >= 0 Then
- ListBox.DoDragDrop(ListBox.SelectedItem.ToString, DragDropEffects.Move)
- End If
- End Sub
- End Class
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „BlackWest“ () aus folgendem Grund: Neue Problematik mit dem selben Programm