السلام عليكم ....سنتكلم اليوم عن الأداة التي أتينا على ذكرها سابقا وهي اداة الCommonDialog تعد هذه الأداة من أهم الأدوات على الإطلاق فهي المسؤولة عن مربع فتح -حفظ باسم- مربع الألوان و غيرها....أما مثالها سيوؤجل للقسم الثاني من الدرسوهو مثال هام جدا
................................................
بداية يجب إضافة الأداة المعنية ويتم إضافتها من قائمة Project ثم Components أو بالضغط على Ctrl+T من لوحة المفاتيح .
عندها ستظهر نافذة التالية .. اختر منها Microsoft Common Dialog Control 6.0 .
عندها سيدرج الرمز الخاص بها في صندوق الأدوات وتكون بشكل مربع.
قم بإدراج الأداة على الـ Form وذلك بالنقر المزدوج عليها أو بالنقر لمرة واحدة ورسم الأداة على الـ Form .
قم بإدراج CommandButton بنفس الأسلوب السابق والذي سنستخدمه لتنفيذ أوامر الأداة .
يتم استدعاء مربعات الحوار بإحدى الطريقتين التاليتين :
1- بالاعتماد على الخاصية Action ويتم ذلك حسب ما يلي :
عندها ستظهر نافذة التالية .. اختر منها Microsoft Common Dialog Control 6.0 .
عندها سيدرج الرمز الخاص بها في صندوق الأدوات وتكون بشكل مربع.
قم بإدراج الأداة على الـ Form وذلك بالنقر المزدوج عليها أو بالنقر لمرة واحدة ورسم الأداة على الـ Form .
قم بإدراج CommandButton بنفس الأسلوب السابق والذي سنستخدمه لتنفيذ أوامر الأداة .
يتم استدعاء مربعات الحوار بإحدى الطريقتين التاليتين :
1- بالاعتماد على الخاصية Action ويتم ذلك حسب ما يلي :
كود:
'الخيار التالي لفتح ملف CommonDialog1.Action = 1 'الخيار التالي لحفظ ملف CommonDialog1.Action = 2 'الخيار التالي لاختيار اللون CommonDialog1.Action = 3 'الخيار التالي لاختيار الخط CommonDialog1.Action = 4 'الخيار التالي لخيارات الطباعة CommonDialog1.Action = 5 'الخيار التالي لاستدعاء التعليمات CommonDialog1.Action = 6
وهذا هو الأسلوب القديم ...
2- بالاعتماد على الخصائص Show ويتم ذلك حسب ما يلي :
طبعا ولا شك الأسلوب الثاني هو الأفضل
خاصية أخرى من خصائص مربعات الحوار هي خاصية DialogTitle والتي تحدد عنوان مربع الحوار الذي ستظهره لاحقاً ، وهي إختيارية لك أن تختارها أو لا .
أيضا يوجد خاصية جميلة وهي CancelError والتي تقوم بإصدار خطأ إذا قام المستخدم بالضغط على زر Cancel ورقم هذا الخطأ هو 32755 ولعل البعض يتساءل ما الفائدة من هذه الخاصية والجواب هو معرفة هل يكمل البرنامج عمله أم لا .
هناك خاصية الـ Filter وهي واحدة من الخصائص الخاصة بمربعي حوار الفتح والحفظ وهي تحدد نوع الملفات التي تود عرضها في مربع الحوار مثل ملفات (txt) وتكتب بهذا الشكل :
2- بالاعتماد على الخصائص Show ويتم ذلك حسب ما يلي :
كود:
'الخيار التالي لفتح ملف CommonDialog1.ShowOpen 'الخيار التالي لحفظ ملف CommonDialog1.ShowSave 'الخيار التالي لاختيار اللون CommonDialog1.ShowColor 'الخيار التالي لاختيار الخط CommonDialog1.ShowFont 'الخيار التالي لخيارات الطباعة CommonDialog1.ShowPrinter 'الخيار التالي لاستدعاء التعليمات CommonDialog1.ShowHelp
طبعا ولا شك الأسلوب الثاني هو الأفضل
خاصية أخرى من خصائص مربعات الحوار هي خاصية DialogTitle والتي تحدد عنوان مربع الحوار الذي ستظهره لاحقاً ، وهي إختيارية لك أن تختارها أو لا .
أيضا يوجد خاصية جميلة وهي CancelError والتي تقوم بإصدار خطأ إذا قام المستخدم بالضغط على زر Cancel ورقم هذا الخطأ هو 32755 ولعل البعض يتساءل ما الفائدة من هذه الخاصية والجواب هو معرفة هل يكمل البرنامج عمله أم لا .
هناك خاصية الـ Filter وهي واحدة من الخصائص الخاصة بمربعي حوار الفتح والحفظ وهي تحدد نوع الملفات التي تود عرضها في مربع الحوار مثل ملفات (txt) وتكتب بهذا الشكل :
كود:
'السطر التالي يجعل لك خيارين للفلتر وهي ملفات النصوص وكل الملفات CommonDialog1.Filter = "Text Files|*.txt|All Files|*.*"
خاصية أخرى من الخصائص الخاصة بمربعي حوار الفتح والحفظ وهي InitDir والي تحدد المجلد (الدليل) الذي سيعرضه مربع الحوار عند ظهوره ويكون استخدام هذه الخاصية بالشكل :
كود:
CommonDialog1.InitDir = "C:\Windows"
كود:
'سيحتوي المتغير التالي على قيمة تشابه 'C:\Windows\Win.ini MyFile = CommonDialog1.FileName 'سيحتوي المتغير التالي على قيمة تشابه 'Win.ini MyFile = CommonDialog1.FileTitle
كود:
'بهذا تغير لون الـ Form1 Form1.BackColor = CommonDialog1.Color
ويقابها في مربع اختيار الخط مجموعة الخصائص Font وللتعامل مها نكتب :
كود:
'أسود عريض Label1.FontBold = CommonDialog1.FontBold 'مائل Label1.FontItalic = CommonDialog1.FontItalic 'نوع الخط Label1.FontName = CommonDialog1.FontName 'حجم الخط Label1.FontSize = CommonDialog1.FontSize 'يتوسطه خط Label1.FontStrikethru = CommonDialog1.FontStrikethru 'تحته خط Label1.FontUnderline = CommonDialog1.FontUnderline
كود:
'أسود عريض Label1.Font.Bold = CommonDialog1.FontBold 'مائل Label1.Font.Italic = CommonDialog1.FontItalic 'نوع الخط Label1.Font.Name = CommonDialog1.FontName 'حجم الخط Label1.Font.Size = CommonDialog1.FontSize 'يتوسطه خط Label1.Font.Strikethrough = CommonDialog1.FontStrikethru 'تحته خط Label1.Font.Underline = CommonDialog1.FontUnderline
كود:
'تعيين عدد النسخ NumberOfCopies = CommonDialog1.Copies 'من الصفحة StartFromPage = CommonDialog1.FromPage 'إلى الصفحة StopOnPage = CommonDialog1.ToPage
مربعي الحوار الفتح والحفظ :
كود:
'يجب أن يكون الملف موجوداً وإلا تعرض رسالة خطأ CommonDialog1.Flags = &H1000& 'يعرض مربع الحوار رسالة تحذير إذا اختار المستخدم ملف موجود للحفظ فوقه CommonDialog1.Flags = &H2& 'يجب أن يكون مسار الملف موجوداً CommonDialog1.Flags = &H800&
كود:
CommonDialog1.Flags = &H1000& Or &H2& Or &H800&
كود:
'فتح المربع كاملا بما في ذلك الجزء الخاص بتحديد ألوان جديدة CommonDialog1.Flags = &H2& 'تعطيل الزر الذي يقوم بفتح الجزء الخاص بتعيين ألوان جديدة CommonDialog1.Flags = &H4&
كود:
'يعرض مربع الحوار خطوط الشاشة فقط CommonDialog1.Flags = &H2& 'يعرض مربع الحوار خطوط الطابعة فقط CommonDialog1.Flags = &H4& 'يعرض مربع الحوار خطوط الشاشة والطابعة معاً CommonDialog1.Flags = &H2&
0 التعليقات:
إرسال تعليق