مربع حوار اختيار ملف في الأكسس 2002

أضيف بتاريخ 5/9/1423هـ

  مربع حوار اختيار ملف :

انظر الصورة :


 

بإمكانك باستخدام هذا الكود تحديد أي نوع من الملفات يمكن للمستخدم اختياره ، والقيمة المعادة من هذا المربع هي اسم الملف بالإضافة إلى المسار إليه كاملاً .

في حدث عند نقر زر أمر مثلا ضع الكود التالي :

Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "اختر ملف"
.ButtonName = "اختيار"
.Filters.Add "All Files", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "Bitmaps", "*.bmp"
.FilterIndex = 3
.AllowMultiSelect = False
.InitialFileName = CurrentProject.Path

.InitialView = msoFileDialogViewDetails
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
End If
End With

 

والآن هذا شرح مبسط للكود ووظائفه (الأرقام الجانبية التالية تشير لرقم السطر في الكود السابق) :

1- إعلان عن متغير من النوع عدد صحيح

2- استخدام الكلمة المحجوزة With للإشارة إلى الكائن المسمى msoFileDialogFilePicker ونستفيد من With عدم تكرار الاسم في كل مرة نريد أن نشير فيها الكائن فقط يكفي نقطة وستظهر جميع خصائص الكائن وطرقه في قائمة منسدلة مثلا لو ألغينا استخدام With فسيكون السطر الأول مثل هذا :

Application.FileDialog(msoFileDialogFilePicker).Title = "اختر ملف"

ومثله كل الأسطر التالية له .

3- عنوان مربع الحوار انظر الصورة في الأعلى في الجهة العلوية اليمنى .

4- اختيار عبارة تظهر فوق الزر الموجود فوق زر إلغاء الأمر في يسار مربع الحوار ، لاحظ أن العبارة إذا كانت طويلة فلن تظهر كلها .

5-6-7 تحديد نوع الملفات التي يمكن لمربع الحوار إظهارها ، يمكنك وضع نوع واحد أو عدة أنواع .

السطر الخامس لعرض كل أنواع الملفات والسادس لعرض الصور من نوع JPG والسابع لعرض الصور من نوع BMP .

يمكنك إضافة أي نوع تريده مثل :

.Filters.Add "TEXT", "*.TXT"

لملفات من نوع txt ، ولملفات قواعد بيانات الأكسس :

.Filters.Add "DB", "*.MDB"

لاحظ أن الجزء الأول يمكنك أن تكتب فيه ما تشاء مثل :

.Filters.Add "قواعد بيانات الأكسس", "*.MDB"

أما الجزء الثاني فاكتب نجمة ثم لاحقة الملف .

ولعرض أكثر من نوع سوياً :

.Filters.Add "Images", "*.gif; *.jpg; *.bmp"

8- على أي نوع من أنواع الملفات التي سجلتها تريده أن يكون هو النوع الافتراضي أي يظهر مباشرة عند ظهور مربع الحوار؟

في الكود السابق إذا وضعت لهذه الخاصية 1 يكون الخيار الافتراضي كل الملفات وإذا وضعت 2 يكون الخيار الافتراضي JPG وإذا وضعت 3 يكون الخيار الافتراضي BMP .

9- السماح بالاختيار المتعدد للملفات True أم منع ذلك False .

10-  في مكان مكان تريده كخيار افتراضي لمربع الحوار ؟

في الكود المكان الافتراضي هو مكان توضع القاعدة .

11- ما هي طريقة العرض الافتراضية للملفات عند ظهور مربع الحوار ؟

العبارة معناها
msoFileDialogViewDetails تفصيل
msoFileDialogViewLargeIcons رموز كبيرة
msoFileDialogViewList قائمة
msoFileDialogViewPreview معاينة
msoFileDialogViewProperties خصائص
msoFileDialogViewSmallIcons رموز صغيرة
msoFileDialogViewThumbnail مصغرات
msoFileDialogViewWebView عرض ويب

 

12- أمر عرض المربع .

13- التأكد من القيمة المعادة قبل إدراجها في مربع النص المسمى fileName فإذا كانت صفر عند عدم اختيار ملف لا يتم إدراج شيء وأما إذا كانت غير الصفر -1 فيتم الإدراج .

ملاحظة : إذا ظهرت هذه الرسالة عند استخدام الكود :

فلا تنسى إضافة المرجع المسمى :

Microsoft Office 10.0 Object Library

قائمة Tools => References ثم اختر المرجع السابق ، أنظر الصورة :

مواضيع مرتبطة :

مربع حوار اختيار ملف في كل الإصدارات .

 

 

الأمثلة مضغوطة

تحتاج إلى برنامج فك الضغط

انقر هنا لتحميل البرنامج

مثال بالأكسس 2002