11-10-13, 02:19 PM
السلام عليكم ورحمة الله وبركاته
تفضل أخي الكريم
بالتوفيق
تفضل أخي الكريم
كود :
Private Sub TextBox_Pth_DragDrop(ByVal sender As Object, ByVal e As Windows.Forms.DragEventArgs) Handles TextBox_Pth.DragDrop
TextBox_Pth.Text = (CType(e.Data.GetData(Windows.Forms.DataFormats.FileDrop), Array).GetValue(0).ToString)
End Sub
Private Sub TextBox_Pth_DragEnter(ByVal sender As Object, ByVal e As Windows.Forms.DragEventArgs) Handles TextBox_Pth.DragEnter
If (e.Data.GetDataPresent(Windows.Forms.DataFormats.FileDrop)) AndAlso
Microsoft.VisualBasic.FileIO.FileSystem.DirectoryExists(CType(e.Data.GetData(Windows.Forms.DataFormats.FileDrop), Array).GetValue(0).ToString) Then
e.Effect = Windows.Forms.DragDropEffects.Copy
End If
End Subبالتوفيق

