-
مرحبا ..
أنا أولا أشكر الإخوه الكرام الذين أتعلم منهم أيضا في هذا الموقع على كل الجهد المبذول من قبلهم .. وحبيت إني أشارك أيضا في تبيان ماأعرفه ..
كرساله تقدير لكم كلكم .. وسأتكلم هنا عن شيء لم يتم التطرق له .. ويعتبر من البدايات في التعلم ..
للمبتدئين فقط ...
________
ما رأيكم لو تكلمنا في هذه المره عن
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>[ تم تعديل الموضوع بواسطة T_zone يوم 21-01-2000]
ضوابط المشاركة
- لا تستطيع إضافة مواضيع جديدة
- لا تستطيع الرد على المواضيع
- لا تستطيع إرفاق ملفات
- لا تستطيع تعديل مشاركاتك
-
قوانين المنتدى
أضف موقعك هنا|
شقق للايجار في الكويت |
بيوت للبيع في الكويت |
شركة كشف تسربات المياه |
شركة عزل اسطح بالرياض |
عزل فوم بالرياض|
عزل اسطح بالرياض |
كشف تسربات المياة بالرياض |
شركة عزل اسطح بالرياض