منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] استفسار سريع عن open file dialog - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] استفسار سريع عن open file dialog (/showthread.php?tid=1734)

استفسار سريع عن open file dialog - nin9e - 27-01-14

السلام عليكم
كنت اريد تحويل هذا الكود من كود لل 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
شكرا

RE: استفسار سريع - ali.alfoly - 30-01-14

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

كود :
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