منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

كاتب الموضوع : BADRMEDIA

الأداة 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

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

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

كود :

OpenFileDialog1.InitialDirectory = "C:\Program files"

If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

MessageBox.Show(OpenFileDialog1.FileName)

End If

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

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

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

كود :

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

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

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

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

مثل *.vb

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

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

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

كود :

OpenFileDialog1.Filter = "JPEG(*.jpg;*.jpeg)|*.jpg;*.jpeg"

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

كود :

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

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

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

كود :

OpenFileDialog1.Multiselect = True

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

كود :

If OpenFileDialog1.ShowDialog = DialogResult.OK Then

For Each file As String In OpenFileDialog1.FileName

Next

End If

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

RaggiTech

RaggiTech

RaggiTech

RaggiTech

RaggiTech