تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ListBox DragDrop تعديل هذا الكود
#1
كيف عمل ListBox DragDrop لى صيغة معيبة وليس لى جميع الصغات بمعنى مثلآ لو الملف صيغة jpg يتم DragDrop غير كده لا يتم
او ممكن تعديل هذا الكود
كود :
Dim fileinfo As IO.FileInfo

    Dim MyFiles() As String
    Dim MyNames() As String
    Private Sub ListBox2_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox2.DragDrop
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            Dim i As Integer
            MyFiles = e.Data.GetData(DataFormats.FileDrop)
            MyNames = e.Data.GetData(DataFormats.FileDrop)
            Dim name As String
            For i = 0 To MyFiles.Length - 1
                fileinfo = New IO.FileInfo(MyNames(i))
                name = fileinfo.Name.Remove(fileinfo.Name.Length - 4, 4)
                ListBox2.Items.Add(name)
            Next
            For i = 0 To MyFiles.Length - 1
                ListBox1.Items.Add(MyFiles(i))
            Next
        End If
    End Sub

    Private Sub ListBox2_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox2.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.All
        End If
    End Sub
هذا الموود يتم اضافه جميع الصيغات انا اريده صيغة محدوده فقط
شكرآ
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

اعتقد الحل من خلال هذا الكود في الDragEnter

PHP كود :
If (e.Data.GetDataPresent(TypeOf e.Data Is Imaging.ImageFormat)) Then
            e
.Effect DragDropEffects.All
        End 
If 
الرد }}}}
تم الشكر بواسطة:
#3
sajad كتب :السلام عليكم

اعتقد الحل من خلال هذا الكود في الDragEnter

PHP كود :
If (e.Data.GetDataPresent(TypeOf e.Data Is Imaging.ImageFormat)) Then
            e
.Effect DragDropEffects.All
        End 
If 
جزاك الله خير شكرآ اخى
هل يمكن ايضآ مع الملفات الصوتية وى exe و ملفات الفيديو ?
جربت بى وضع Extension.ExtensionFormat
و Midea.MideaFormat
ولم ينفع
الرد }}}}
تم الشكر بواسطة:
#4

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






هذا مثال لادراج ملفات حسب انواع محدد







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


الملفات المرفقة
.rar   DragDrop files by Extention-01.rar (الحجم : 392.75 ك ب / التحميلات : 15)
الرد }}}}
تم الشكر بواسطة:
#5
هذا هو الكود المطلوب
كود :
Dim s() As String = e.Data.GetData("FileDrop", False)
        Dim i As Integer
        Dim AllowedTypes As String = ".jpg .mp3 .exe"
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            MyFiles = e.Data.GetData(DataFormats.FileDrop)
            MyNames = e.Data.GetData(DataFormats.FileDrop)
            Dim name As String
            For i = 0 To MyFiles.Length - 1
                If AllowedTypes.Contains(Path.GetExtension(s(i))) Then
                    fileinfo = New IO.FileInfo(MyNames(i))
                    name = fileinfo.Name.Remove(fileinfo.Name.Length - 4, 4)
                    ListBox2.Items.Add(name)
                End If
            Next
            For i = 0 To MyFiles.Length - 1
                If AllowedTypes.Contains(Path.GetExtension(s(i))) Then
                    ListBox1.Items.Add(MyFiles(i))
                End If
            Next
        End If
الرد }}}}
تم الشكر بواسطة:
#6
sajad كتب :السلام عليكم

اعتقد الحل من خلال هذا الكود في الDragEnter

PHP كود :
If (e.Data.GetDataPresent(TypeOf e.Data Is Imaging.ImageFormat)) Then
            e
.Effect DragDropEffects.All
        End 
If 

محمد كتب :جزاك الله خير شكرآ اخى
هل يمكن ايضآ مع الملفات الصوتية وى exe و ملفات الفيديو ?
جربت بى وضع Extension.ExtensionFormat
و Midea.MideaFormat
ولم ينفع

RainBow كتب :هذا هو الكود المطلوب
كود :
Dim s() As String = e.Data.GetData("FileDrop", False)
        Dim i As Integer
        Dim AllowedTypes As String = ".jpg .mp3 .exe"
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            MyFiles = e.Data.GetData(DataFormats.FileDrop)
            MyNames = e.Data.GetData(DataFormats.FileDrop)
            Dim name As String
            For i = 0 To MyFiles.Length - 1
                If AllowedTypes.Contains(Path.GetExtension(s(i))) Then
                    fileinfo = New IO.FileInfo(MyNames(i))
                    name = fileinfo.Name.Remove(fileinfo.Name.Length - 4, 4)
                    ListBox2.Items.Add(name)
                End If
            Next
            For i = 0 To MyFiles.Length - 1
                If AllowedTypes.Contains(Path.GetExtension(s(i))) Then
                    ListBox1.Items.Add(MyFiles(i))
                End If
            Next
        End If
جزاكم الله خير اخوتى
هذا الذى احتاجة اخى Rain
أبورائد لماذا لا يظهر زر الشكر و الاعجاب عندك !
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] احتاج تعديل الكود يخص تشغيل Button حسب user domin hglogtd 4 90 اليوم, 09:25 AM
آخر رد: hglogtd
  تضبيط ادخال المعلومات من Rich box الي ال ListBox khaled12345 2 25 اليوم, 08:50 AM
آخر رد: khaled12345
  [VB.NET] اريد وضع مؤقت بدون تايمر داخل هذا الكود + المشروع بالكامل e-coder 0 45 19-05-17, 04:09 PM
آخر رد: e-coder
  باستخراج من قاعدة البيانات بشرط listbox items rabeh.ram 0 63 19-05-17, 01:56 PM
آخر رد: rabeh.ram
  منع تعديل التاريخ والوقت ريم النهاري 7 139 18-05-17, 09:28 AM
آخر رد: ريم النهاري
  [VB.NET] كيف اضع وقت في هذا الكود e-coder 4 126 18-05-17, 08:07 AM
آخر رد: e-coder
  اين الخطا في هذا الكود rabeh.ram 18 422 16-05-17, 10:48 PM
آخر رد: rabeh.ram
  [مشروع] ممكن تعديل علي المشروع دموع الوطن 12 202 15-05-17, 09:29 AM
آخر رد: دموع الوطن
  [كود] طلب الكود للتاريخ الميلادي كتابياُ باسم الشهر الميلادي . محمد مسافر 2 67 11-05-17, 12:42 AM
آخر رد: محمد مسافر
  محتاج مساعدة في اكمال الكود bidaya 7 214 04-05-17, 05:14 PM
آخر رد: bidaya

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم