مرحبا ..
أنا أولا أشكر الإخوه الكرام الذين أتعلم منهم أيضا في هذا الموقع على كل الجهد المبذول من قبلهم .. وحبيت إني أشارك أيضا في تبيان ماأعرفه ..
كرساله تقدير لكم كلكم .. وسأتكلم هنا عن شيء لم يتم التطرق له .. ويعتبر من البدايات في التعلم ..

للمبتدئين فقط ...

________
ما رأيكم لو تكلمنا في هذه المره عن
1- كيفية إظهار قوائم Windows الخاصه بالفتح والحفظ ...
2- الأمر With ومثال من خلاله لكيفيه الحصول على إسم الملف ...
3- الأمر Filter لتحديد نوعية الملفات المعروضه

__________
((((((((((1))))))))))))

لإجراء ذلك يتعين عليك أولا أن تضيف

Project
Components
ثم تبحث عن
Microsoft common Dialog Control 6.0
ثم تظغط على Apply بعد أن تعلم على المربع الذي أمامها ..
ستكتشف أن أيقونه جديده إضيفت في ال Tool box على اليمين ..
إختار الأيقونه هذي وإنقلها لل Form
الآن يمكنك عمل ماتريد ..

أنشأ Command Bottom وفي Caption في ال Properties إكتب Save
----------------------------------------------------- Load

إظغط مرتين Double click على save
وإكتب
Commondialog1.ShowOpen

وفي الآخر
Commondialog1.ShowSave

لاحظ أن Commondialog1 هو إسم ال Components اللي إنت أظفته في الأول .. ويمكنك تغيره الى أي إسم تريد .. بشرط أن يغيره في ال code

((((((((((((((((((2))))))))))))))))
الأمر With
طيب أنا بقعد أكتب كل شوي Commondialog1 وأنا حأستخدم ShowOpen وبعد شوي بأتعلم كيف أعرف إسم الملف . وشوي ولا أنا صاير محترف بعد وأحدد الملفات المعروضه ...
طبعا لأ ... لأن الأمر With يحل لك المشكله ببساطه ..
كل ماعليك إلا إنك تكتب في الأول
With CommonDialog1
وفي الأخير
End With
وفي النص ... بدل كتابة CommonDialog1 تكتفي بالنقطه ..
مثال
وبإفتراض تعريف sfile على أساس إن اسم الملف يسند اليها .. يمكنك تعريف أي كلمه غير محجوزه كما تريد

dim sfile
With CommonDialog1
.showOpen
طبعا النقطه على اليسار
if .filename <> "" then إذا إختار ملف .. و <> تعني لايساوي
sfile=.filename
else
exit sub لإنهاء ال Sub مباشره لتلافي الأخطاء
end if
end with

وكذا حصلنا على إسم الملف في sfile

))))))3((((((((((
الأمر Filter
طيب ليه أخلى الواحد يتعذب خاصه إن ويندوز مايبين إمتداد الملفات

كل اللي عليك إنك تضيف الأمر هذا في النص فوق قبل .showopen

.filter="TXT Files Only (*.txt)| *.txt"


طيب الجد جد اللحين .. برنامج يعرض ال TEXT Files على الفورم
تحتاج ل TEXT BOX
Command BOX
ل Open
و CommonDialog

والكود إن شاء الله بكره أو بعده .. حسب التجاوب

تحياتي لكم ..
أتمنى أن يكون في هذا الفائده ...

[b]<small><small>[ تم تعديل الموضوع بواسطة &nbsp; T_zone &nbsp; يوم &nbsp; 21-01-2000]