التعامل مع صناديق الفتح والحفظ {الجمعة 28 أكتوبر - 21:39}

صنايق الحوار
Common Dialog







في هذا الدرس سوف نتحدث عن كيفية استخدام صناديق الحوار
CommonDialog



ربما لم تسمع بهذه الأداة سابقاً. ولاكن سوف تعرفها:



عندما تفتح أي برنامج فإنك سوف تحفظ عملك في النهاية ! ماذا يظهر لك عندما تختار
'حفظ' ؟



وإذ فتحت أي برنامج وتريد فتح ملف فسوف يظهر لك أيضا صندوق الحوار الخاص بالفتح وهو
نفس صندوق الحفظ!



هذا الصندوق يسمى Common Dialog و هذه الأداة
تستخدم في معظم البرامج المبرمجة بواسطة الفيجوال بيسك.







هناك طريقتان لإستخدام هذه الأداة :



الطريقة بإستخدام أداة جاهزة: Microsoft Common Dialog Control



الطريقة الثانية بإستخدام إجراءات API وهذه عملية صعبة سوف نتحدث عنها في الدروس
المتقدمة.



لذلك سيكون درسنا بإستخدام الأداة : Microsoft Common Dialog Control . طبعاً تعرف
كيف تضعها على الفورم



كليك يمين فوق صندوق الأدوات إختر Components ثم
تجد الأداة Microsoft Common Dialog Control 6,0 حددها وأنقر
Apply



سوف تظهر الأيقونة

على صندوق الأدوات . ضعها على الفورم . سوف يكون إسم الأداة CommonDialog1



ضع على الفورم الأداة Picture1 وزر Command1



ضع الكود التالي في الزر:

CommonDialog1.DialogTitle = 'فتح ملف' CommonDialog1.Filter = 'Gif صور|*.gif|JPG صور|*.jpg|Bmp صور|*.bmp|كافة الملفات|*.*' CommonDialog1.ShowOpen If CommonDialog1.FileName = '' Then Exit Sub Picture1.Picture = LoadPicture(CommonDialog1.FileName)

شرح الكود:



السطر الأول : تحديد العنوان الذي سوف يظهر في أعلى الصندوق



السطر الثاني : تحديد الملفات التي سوف يعرضها الصندوق



السطر الثالث : إظهار الصندوق



السطر الرابع : إذا لم يتم تحديد ملف ألغي الحدث



السطر الخامس: عرض الصورة التي قمت بتحديدها في الأداة
PIcture1



كان هذا مثال بسيط لتمسك رأس الخيط . مازل هناك العديد من العمليات بواسطة
CommonDialog. منها: تحديد الخط والتلوين و خصائص الطباعة و الحفظ .



الأن لنأخذ مثال عن إستعمال ألوان CommonDialog:



نفس الأدوات السابقة أضف زر Command2 وأكتب الكود التالي:

CommonDialog1.ShowColor If CommonDialog1.Color = 0 Then Exit Sub Picture1.BackColor = CommonDialog1.Color

شرح الكود :



السطر الأول : إظهار ألوان الكمون دايلوك



السطر الثاني : إذا لم يتم تحديد لون ألغي الحدث



السطر الثالث : تلوين مربع الصورة باللون الذي تم تحديده بالكمون دايلوك



سوف نتحدث الأن عن عملية فتح وحفظ مستند نص:



جهز الفورم بالأدوات التالية:



زرين أمر : فتح و حفظ



أداة عرض النص Label1



أداة الكتابة Text1 ولاتنسى تبديل الخصائص MultiLine و ScrollBars



وأهم شيىء الأداة CommonDialog







لاحظ الشكل التالي:







كتابة الشيفرة:



أنقر دبل كليك على زر الفتح وأكتب الكود التالي:

Dim file As String CommonDialog1.Filter = 'ملفات النصوص|*.txt' CommonDialog1.ShowOpen Open CommonDialog1.FileName For Input As #1 Input #1, file Close Text1.Text = file

السطر الأول : التصريح عن متحول نصي



السطر الثاني : تحديد الملفات التي سيعرضها الكمون دايلوك



السطر الثالث : إظهار اللكمون دايلوك



السطر الرابع والخامس والسادس فتح المستند كمتحول



السطر السابع : عرض مسار الملف في Label1



السطر الأخير عرض النص في أداة الكتابة Text



نأتي إلى الحفظ :



ضع الكود التالي في زر الحفظ:

Dim a As String a = Text1 CommonDialog1.Filter = 'Text File|*.txt' CommonDialog1.FileName = a CommonDialog1.ShowSave

السطر الأول : التصريح عن متحول نصي (a)



السطر الثاني إسناد النص المكتوب إلى المتحول a



السطر الثالث: تحديد قيمة الكمون دايلوك وهو المتحول a



السطر الرابع عرض مربع الحفظ.









وبذلك نكون قد أعطينا فكرة عن إستعمال الكمون دايلوك . طبعاً هناك العديد من
الأحداث لهذه الأداة سوف تمر معنا في الدروس القادمة.



وبعملك وتجريبك أنا متأكد من أنك ستنجز شيئاً عظيماً



وبالتوفيق للجميع