Hallo liebe Community,
Ich habe ein problem, denn interesanterweise funktioniert dieser coder nicht:
Natürlich ist AllowDrop auf true
Das Problem ist nicht, dass ein Fehler erscheint, wenn ich versuche Datein auf die Listbox zu ziehen zeigt der Cursor das Blockiert-Zeichen an.
Bitte um Hilfe
Ich habe ein problem, denn interesanterweise funktioniert dieser coder nicht:
VB.NET-Quellcode
- Private Sub ListBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop
- If e.Data.GetDataPresent(DataFormats.FileDrop) Then
- Dim filePaths As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
- For Each s As String In filePaths
- ListBox1.Items.Add(s)
- Next s
- End If
- End Sub
- Private Sub ListBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragEnter
- If e.Data.GetDataPresent(DataFormats.FileDrop) Then
- e.Effect = DragDropEffects.Copy
- Else
- e.Effect = DragDropEffects.None
- End If
- End Sub
Natürlich ist AllowDrop auf true
Das Problem ist nicht, dass ein Fehler erscheint, wenn ich versuche Datein auf die Listbox zu ziehen zeigt der Cursor das Blockiert-Zeichen an.
Bitte um Hilfe