تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
معلومة ::: OpenFileDialog
#1
الأداة 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


حيث نقوم باظهار الملفات وعند اختيار ملف واختيار موافق - نظهر مسار الملف فى رسالة
متغيب قليلاً للدراسة Smile
الرد }}}}
تم الشكر بواسطة:
#2
قمنا باستعراض ملفات مجلد محدد - قمنا بتحديده قبل عرض الأداة


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


        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            MessageBox.Show(OpenFileDialog1.FileName)
        End If
متغيب قليلاً للدراسة Smile
الرد }}}}
تم الشكر بواسطة:
#3
ربما تحتاج لعرض ملفات من نوع محدد كما ترى فى أغلب البرامج عندما تستخدم أمر Open من قائمة File


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

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

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


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


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

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

مثل *.vb


علامة | تعمل كفاصل
متغيب قليلاً للدراسة Smile
الرد }}}}
تم الشكر بواسطة:
#4
لو أحببت أن تجعل عنوان لشاشة الحوار يمكن ذلك


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

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


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


كود :
OpenFileDialog1.Title = "JPEGاختار صورة من نوع"
متغيب قليلاً للدراسة Smile
الرد }}}}
تم الشكر بواسطة:
#5
لو أردت اختيار أكثر من ملف وهذا وارد كثيراً


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


كود :
OpenFileDialog1.Multiselect = True

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

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


        Next
    End If
متغيب قليلاً للدراسة Smile
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  معلومة ::: ListBox Blue Sky 14 2,403 14-11-16, 11:32 PM
آخر رد: فارس جراح
  معلومة مهمه فى المصفوفات ali.alfoly 2 792 30-08-13, 02:25 AM
آخر رد: ali.alfoly
  من المنتدى القديم - معلومة ::: ProgressBar ( للاخ BADRMEDIA ) المبرمج علي نوري 2 1,266 23-08-13, 11:17 PM
آخر رد: nin9e
  معلومة :: تعلم كيف تحفظ صورة في My.Settings بدون الإحتياج إلى مسارها! أسامة أحمد 3 1,017 16-12-12, 06:25 PM
آخر رد: 3amo
  من المنتدى القديم - معلومة ::: CheckBox ( للاخ BADRMEDIA ) المبرمج علي نوري 1 571 30-11-12, 05:54 PM
آخر رد: مبرمج أوتار
  معلومة :: الحل لمشكلة الخطأ في الكود For Each i As Button In Me.Controls Aly El-Haddad 2 680 10-11-12, 09:15 PM
آخر رد: Mr. DotNet
  معلومة : Partial Class RaggiTech 1 543 06-10-12, 11:03 PM
آخر رد: RaggiTech
  معلومة : TryCast مهمة RaggiTech 0 461 06-10-12, 11:02 PM
آخر رد: RaggiTech
  معلومة : XML Comments مهمة RaggiTech 1 423 06-10-12, 11:01 PM
آخر رد: RaggiTech
  معلومة - الاستثناءات ( Exceptions ) RaggiTech 0 534 06-10-12, 11:00 PM
آخر رد: RaggiTech

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


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