Drag-and-drop zu bekommen, den Pfad oder die Datei

Hier ist ein Beispiel, dass ich nicht an die Arbeit. Ich folgte den Anweisungen, aber wenn ich versuche per drag und drop eine Datei, um die form, es lässt mich nicht und gibt mir die nicht-Verfügbar-cursor.

Es ist ganz einfach. Aktivieren Sie einfach drap-and-drop durch die Einstellung der AllowDrop - Eigenschaft auf True und Griff das DragEnter und DragDrop-Ereignisse. In der DragEnter event-handler, können Sie prüfen, ob die Daten der Art, die Sie wollen mit der DataFormats-Klasse. In der DragDrop event-handler verwenden Sie die Data-Eigenschaft des DataEventArgs zu erhalten, die die tatsächlichen Daten.

Beispiel:

Private Sub Form1_Load(sender As System.Object, _
                       e As System.EventArgs) _
  Handles MyBase.Load

    Me.AllowDrop = True
End Sub

Private Sub Form1_DragDrop(sender As System.Object, _
                           e As System.Windows.Forms.DragEventArgs) _
  Handles Me.DragDrop

    Dim files() As String = e.Data.GetData(DataFormats.FileDrop)
    For Each path In files
        MsgBox(path)
    Next
End Sub

Private Sub Form1_DragEnter(sender As System.Object, _
                            e As System.Windows.Forms.DragEventArgs) _
  Handles Me.DragEnter

    If e.Data.GetDataPresent(DataFormats.FileDrop) Then
        e.Effect = DragDropEffects.Copy
    End If
End Sub
InformationsquelleAutor Danny Boy | 2013-02-23
  1. 4
    Imports System.IO

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.AllowDrop = True
    End Sub
    Private Sub Form1_DragDrop(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles Me.DragDrop
        Dim theFiles() As String = CType(e.Data.GetData("FileDrop", True), String())
        For Each theFile As String In theFiles
            MsgBox(theFile)
        Next
    End Sub

    Private Sub Form1_DragEnter(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.Copy
        End If
    End Sub
End Class
    • Danke für deine schnelle Antwort, aber ich kann immer noch nicht herausfinden. Ich bin neu vb.net, wo kommen diese 2 Zeilen code gehen? BTW, ich versuche nur, um drop eine Datei in der aktuellen form, gibt es keine andere Steuerelemente auf dem Formular.
    • Aktualisierte Antwort überprüfen Sie jetzt, und lassen Sie mich wissen.
    • Ok, danke, ich denke, es ist fast zu arbeiten, aber es sagt, dass der Pfad ist nicht angegeben. Ich habe versucht, zu Dim Pfad as String, und es ließ mich nicht. Danke für Sie Hilfe!
    • Sie müssen import-Pfad als Importe System.IO, wie Sie sehen können, in meinem edit
    • Leider halten Lauschangriff Sie, aber Sie sagt "DragEnter' ist nicht ein Mitglied des 'Systems.IO.Pfad'
    • Es ist Ok, kein problem.Verlassen, dass abgesehen habe ich aktualisiert meine Antwort hast du das schon gesehen..Wenn nicht sehen Sie es und kopieren Sie einfach und fügen Sie in Ihr Formular und klicken Sie auf F5, um das Formular ausführen, und versuchen Sie, drag-and-drop beliebige text-Datei und Sie erhalten in der Tat eine Warnung.
    • Ich kopiert und eingefügt, und es gibt keine Fehler, und Form1 kommt, aber wenn ich ziehen Sie etwas an, es gibt mir immer noch die nicht-Verfügbar-cursor.
    • Versuchen, erstellen Sie eine neue VS-Projekt und führen Sie es erneut und lassen Sie mich wissen, wenn Sie die gleichen Fehler.
    • Perfekt, es funktioniert jetzt! Danke, ich habe in etwa 8 Stunden auf diesem.
    • du bist herzlich willkommen...Froh, dass Ihnen geholfen und Sie können markieren Sie es als Antwort, so dass es geschlossen werden 🙂
    • Einfach nur neugierig, warum hat es funktioniert, nachdem ich ein neues Projekt erstellt? Ich hatte gerade ein neues Projekt erstellt.

    InformationsquelleAutor coder
Schreibe einen Kommentar