ŞİMDİ KOD PENCERESİNİ AÇALIM
EN ÜSTE AŞAĞIDAKİ KODU YAPIŞTIRALIM
Imports System.IO
DAHA SONRA AŞAĞIDAKİ KODLARI HERHANGİ BİR YERE YAPIŞTIRIN
Private Sub TextBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragDrop
Dim Sürükle As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
For Each seçilidosya As String In Sürükle
If File.Exists(seçilidosya) Then
CType(sender, TextBox).Text = seçilidosya
End If
Next seçilidosya
End Sub
Private Sub TextBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.Copy Else e.Effect = DragDropEffects.None
End If
End Sub
