منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله

ارنا اعرف كيفية جلب مسار الملف او المجلد عن طريق DragDrop
اريد جلب مسار المجلد فقط بحيث لو القى ملف لايتم جلب المسار

PHP كود :

Private Sub TextBox_Pth_DragDrop(sender As Object, 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(sender As Object, e As Windows.Forms.DragEventArgs) Handles TextBox_Pth.DragEnter
        If (e.Data.GetDataPresent(Windows.Forms.DataFormats.FileDrop)) Then
            e.Effect = Windows.Forms.DragDropEffects.Copy
        End If
    End Sub 

السلام عليكم ورحمة الله وبركاته

تفضل أخي الكريم

كود :

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

بالتوفيق

ههههههه
والله كنت هعملها
بس زمان سئلت نفس السؤال فاجابنى الاخ الكريم معاذ مدنى
باجابة لا اتذكرها
فحبيت اسئل السؤال مرة اخرى ليذكرنى بالاجابة
جزاك الله خير اخى وحبيبى sooriaty03
دائما سباق بالخير

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ali.alfoly

sooriaty03

ali.alfoly