تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استفسار عن كود تلوين صف معين بناءًا على تحقق شرط بخلية في الداتاجريدفيو Hazem1 9 229 أمس, 02:31 PM
آخر رد: عبدالله الدوسري
  استفسار حول أداة Checkbox Hazem1 2 73 11-12-18, 10:04 AM
آخر رد: Hazem1
  [VB.NET] استفسار :- مشكله اعاني منها كثير is not valid for 'rowIndex dubai.eig 1 41 10-12-18, 02:43 PM
آخر رد: elgokr
  [VB.NET] استفسار :- بخصوص تنزيل الداتا في قاعدة البيانات dubai.eig 0 42 06-12-18, 04:36 PM
آخر رد: dubai.eig
  [VB.NET] استفسار :- كيف اسحب معلومات من موقع الكتروني dubai.eig 2 109 30-11-18, 03:12 PM
آخر رد: XBOOBX
  [VB.NET] استفسار :- التعرف على الصوت dubai.eig 12 253 27-11-18, 03:33 PM
آخر رد: dubai.eig
  استفسار داخل Tabcontrol عبدالرحمن المكاوي 2 84 24-11-18, 12:34 PM
آخر رد: عبدالرحمن المكاوي
  [VB.NET] استفسار :- عرض ارقام الاي بي المربوطه في الشبكه dubai.eig 0 51 24-11-18, 03:35 AM
آخر رد: dubai.eig
  open file dialog dasktop 1 79 24-11-18, 02:37 AM
آخر رد: rmnr
  [سؤال] استفسار عن مشكلة في كود لايجاد العملاء الغير موجودين بجدول الدفع ahmedmansour 21 868 19-11-18, 11:29 PM
آخر رد: asemshahen5

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


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