تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] استفسار سريع عن open file dialog
#1
السلام عليكم
كنت اريد تحويل هذا الكود من كود لل folderdialog الي open file dialog ممكن حد يساعدني.
هذا الكود المراد تحويله.
كود :
If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then


            ' jpg
            For Each fi As IO.FileInfo In New IO.DirectoryInfo(FolderBrowserDialog1.SelectedPath).GetFiles("*.jpg")
                AddCheckBoxImage(FlowLayoutPanel1, fi.FullName)
            Next


            ' png
            For Each fi As IO.FileInfo In New IO.DirectoryInfo(FolderBrowserDialog1.SelectedPath).GetFiles("*.png")
                AddCheckBoxImage(FlowLayoutPanel1, fi.FullName)
            Next


        End If
شكرا
الرد
تم الشكر بواسطة:
#2
تفضل اخي الكريم

كود :
With Me.OpenFileDialog1
            '- خاصية الفلتر
            .Filter = "Image files (*.jpg;*.png)|*.jpg;*.png|All files (*.*)|*.*"
            '- لتممكن من تحديد اكثر من ملف
            .Multiselect = True
            '- اظهار الرسالة
            .ShowDialog()
        End With

        '- التاكد من ان اختيار ملفات
        If Me.OpenFileDialog1.FileNames.Count > 0 Then
            For Each fi As String In Me.OpenFileDialog1.FileNames
                AddCheckBoxImage(FlowLayoutPanel1, fi)
            Next
        End If

ولفهم الاداة يمكنك مراجعة الموضوع التالي

معلومة ::: OpenFileDialog
الرد
تم الشكر بواسطة: smss , kslawy


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] استفسار :- بخصوص serial number dubai.eig 0 50 19-03-19, 09:32 PM
آخر رد: dubai.eig
  [VB.NET] استفسار panel control & Next previous button dubai.eig 4 94 19-03-19, 02:28 PM
آخر رد: dubai.eig
  [VB.NET] استفسار بخصوص Dispose() dubai.eig 3 112 12-03-19, 10:47 AM
آخر رد: dubai.eig
  [VB.NET] استفسار :- بخصوص The remote name could not be resolved dubai.eig 1 93 04-03-19, 02:51 AM
آخر رد: dubai.eig
  [VB.NET] استفسار بخصوص تحريك الماوس والضغط dubai.eig 1 138 02-03-19, 11:19 AM
آخر رد: dubai.eig
  [VB.NET] استفسار :- بخصوص ALTER TABLE dubai.eig 6 250 02-03-19, 03:44 AM
آخر رد: asemshahen5
  [VB.NET] استفسار بخصوص المسج اللي يطلع Output dubai.eig 4 173 01-03-19, 06:24 PM
آخر رد: dubai.eig
  [VB.NET] استفسار :- هل صحيح كتابه الكود بهذه الطريقه dubai.eig 8 244 14-02-19, 06:52 PM
آخر رد: ابراهيم ايبو
  [VB.NET] استفسار :- بخصوص New Point form Top dubai.eig 1 135 29-01-19, 05:50 PM
آخر رد: ابراهيم ايبو
  [VB.NET] استفسار :- كيفية قراءة معلومات UDP dubai.eig 0 153 21-01-19, 06:49 PM
آخر رد: dubai.eig

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


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