منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
معلومة ::: OpenFileDialog - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : معلومة ::: OpenFileDialog (/showthread.php?tid=4655)

معلومة ::: OpenFileDialog - Blue Sky - 30-09-12

الأداة OpenFileDialog

تستخدم فى عرض الملفات واختيار ملف معين

====================


قم بادراج الأداة OpenFileDialog من صندوق الأداوات

ضع زر أمر Button وضع هذا الكود

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            MessageBox.Show(OpenFileDialog1.FileName)
        End If


    End Sub


حيث نقوم باظهار الملفات وعند اختيار ملف واختيار موافق - نظهر مسار الملف فى رسالة

معلومة ::: OpenFileDialog - Blue Sky - 30-09-12

قمنا باستعراض ملفات مجلد محدد - قمنا بتحديده قبل عرض الأداة


كود :
OpenFileDialog1.InitialDirectory = "C:\Program files"


        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            MessageBox.Show(OpenFileDialog1.FileName)
        End If


معلومة ::: OpenFileDialog - Blue Sky - 30-09-12

ربما تحتاج لعرض ملفات من نوع محدد كما ترى فى أغلب البرامج عندما تستخدم أمر Open من قائمة File


لعمل ذلك قبل أن تعرض شاشة الحوار

قم بعمل فلتر على نوع الملفات

كود :
OpenFileDialog1.Filter = "ملفات فيجوال بيسك(*.vb)|*.vb|كل الملفات(*.*)|*.*"


حيث نحدد الوصف الظاهر للمستخدم عن نوع الملف

مثل ملفات فيجوال بيسك(*.vb)

ونحدد ملحقة الملف ( الامتداد )

مثل *.vb


علامة | تعمل كفاصل

معلومة ::: OpenFileDialog - Blue Sky - 30-09-12

لو أحببت أن تجعل عنوان لشاشة الحوار يمكن ذلك


نقوم بعمل فلتر مثلاً لعرض صور من نوع JPEG

كود :
OpenFileDialog1.Filter = "JPEG(*.jpg;*.jpeg)|*.jpg;*.jpeg"


ثم نقوم بوضع عنوان للنافذة


كود :
OpenFileDialog1.Title = "JPEGاختار صورة من نوع"


معلومة ::: OpenFileDialog - Blue Sky - 30-09-12

لو أردت اختيار أكثر من ملف وهذا وارد كثيراً


قبل فتح شاشة الحوار مكن ذلك


كود :
OpenFileDialog1.Multiselect = True

وعند قراءة الملفات التى يرجع بها نتيجة الحوار

كود :
If OpenFileDialog1.ShowDialog = DialogResult.OK Then
  
        For Each file As String In OpenFileDialog1.FileName


        Next
    End If