+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : جلب مسار المجلد فى DragDrop (/showthread.php?tid=478)
جلب مسار المجلد فى DragDrop - ali.alfoly - 11-10-13
السلام عليكم ورحمة الله
ارنا اعرف كيفية جلب مسار الملف او المجلد عن طريق 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
RE: جلب مسار المجلد فى DragDrop - sooriaty03 - 11-10-13
السلام عليكم ورحمة الله وبركاته
تفضل أخي الكريم
كود :
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بالتوفيق
RE: جلب مسار المجلد فى DragDrop - ali.alfoly - 11-10-13
ههههههه
والله كنت هعملها
بس زمان سئلت نفس السؤال فاجابنى الاخ الكريم معاذ مدنى
باجابة لا اتذكرها
فحبيت اسئل السؤال مرة اخرى ليذكرنى بالاجابة
جزاك الله خير اخى وحبيبى sooriaty03
دائما سباق بالخير