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

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

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

انظر الصورة :


 

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

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

Dim result As Integer
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "اختر ملف"
.ButtonName = "اختيار"
.InitialFileName = CurrentProject.Path

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

 

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

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

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

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

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

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

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

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

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

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

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

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

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

Microsoft Office 10.0 Object Library

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

 

 

 

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

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

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

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