استخدام عنصر التحكم CommonDialog
يوفر عنصر التحكم CommonDialog مجموعة من مربعات الحوار القياسية لعمليات مثل فتح الملفات وحفظها، وإعداد خيارات الطباعة، وتحديد الألوان والخطوط. يمكن لعنصر التحكم أيضًا عرض التعليمات عند تشغيل مشغل تعليمات Windows.
يوفر عنصر التحكم CommonDialog واجهة بين Visual Basic وروتين Commdlg.dll مكتبة الارتباط الديناميكي لـ Microsoft Windows. لإنشاء مربع حوار باستخدام عنصر التحكم هذا، يجب أن يكون Commdlg.dll موجودًا في دليل MicrosoftWindows/System.
لكي تتمكن من استخدام عنصر التحكم CommonDialog في التطبيق الخاص بك، يجب عليك إضافته إلى النموذج وتعيين خصائصه. يتم تحديد مربع الحوار الذي يعرضه عنصر التحكم بواسطة أساليب عنصر التحكم. أثناء وقت التشغيل، سيتم عرض مربع الحوار أو محرك المساعدة بعد استدعاء الطريقة المقابلة أثناء التصميم، وسيتم عرض عنصر التحكم CommonDialog كرمز في النموذج. لا يمكن تغيير حجم هذا الرمز.
يمكن لعنصر التحكم CommonDialog عرض مربعات الحوار الشائعة التالية:
"يفتح"
"حفظ باسم"
"لون"
"الخط"
"مطبعة"
لاستخدام عنصر التحكم CommonDialog
1. إذا لم تتم إضافة عنصر التحكم CommonDialog، فيجب عليك تحديد "المكونات" من قائمة "المشروع" وإضافة عنصر التحكم إلى مربع الأدوات. ابحث عن عنصر التحكم وحدده في "عناصر التحكم" في مربع حوار وضع العلامات، ثم انقر فوق الزر "موافق".
2. انقر فوق عنصر التحكم "CommonDialog" في مربع الأدوات ثم ارسم عنصر التحكم في النموذج. عند رسم عنصر تحكم CommonDialog في نموذج، سيتم تغيير حجم عنصر التحكم تلقائيًا. مثل عنصر التحكم Timer، لا يكون عنصر التحكم CommonDialog مرئيًا في وقت التشغيل.
3. عند التشغيل، يرجى استخدام الطرق المذكورة في الجدول التالي بشكل مناسب لعرض الحوار المطلوب.
عرض مربعي الحوار فتح وحفظ باسم
يتيح لك مربع الحوار "فتح" تحديد محرك الأقراص والدليل وامتداد الملف واسم الملف. يتماثل مربع الحوار "حفظ باسم" في المظهر مع مربع الحوار "فتح"، فيما عدا أن عنوان مربع الحوار واسم الملف يكونان باهتين. بعد تحديد ملف وإغلاق مربع الحوار في وقت التشغيل، يمكنك استخدام خاصية FileName للحصول على اسم الملف المحدد.
لعرض مربع الحوار فتح
1. حدد قائمة مرشحات الملفات المعروضة في مربع قائمة أنواع الملفات.
يمكن تعيين خاصية التصفية بالتنسيق التالي:
الوصف1|الفلتر1|الوصف2|الفلتر2...
الوصف هو السلسلة المعروضة في مربع القائمة - على سبيل المثال، TextFiles(*.txt). عامل التصفية هو عامل تصفية ملف فعلي - على سبيل المثال، *.txt. يجب أن يتم فصل كل وصف|إعداد عامل التصفية برمز توجيه الإخراج (|).
2. استخدم أسلوب ShowOpen لعرض مربع الحوار.
بعد تحديد ملف، يمكنك استخدام خاصية FileName للحصول على اسم الملف المحدد.
بالنسبة لكافة مربعات الحوار العامة، يتم إنشاء خطأ عندما تكون الخاصية CancelError صحيحة ويقوم المستخدم بالنقر فوق الزر إلغاء الأمر في مربع الحوار. اكتشف خطأً عند عرض مربع الحوار لاكتشاف ما إذا كان قد تم الضغط على زر "إلغاء الأمر".
يعرض التعليمة البرمجية التالية مربع الحوار فتح ويفتح معلمات إجراء الملف باسم الملف المحدد:
PRivateSubmnuFileOpen_Click()
'خطأ الإلغاء صحيح.
OnErrorGoToErrHandler
"ضبط الفلتر."
CommonDialog1.Filter=AllFiles(*.*)|*.*|Text_
الملفات(*.txt)|*.txt|BatchFiles(*.bat)|*.bat
'حدد عامل التصفية الافتراضي.
CommonDialog1.FilterIndex=2
"عرض مربع الحوار فتح."
CommonDialog1.ShowOpen
'استدعاء الإجراء لفتح الملف.
OpenFile(CommonDialog1.FileName)
ExitSub
معالج الخطأ:
"يقوم المستخدم بالضغط على زر "إلغاء الأمر".
ExitSub
EndSub
استخدام مربع الحوار اللون
استخدم مربع حوار اللون لتحديد لون من لوحة الألوان أو لإنشاء لون مخصص وتحديده. في وقت التشغيل، يمكن استخدام خاصية اللون للحصول على اللون المحدد بعد تحديد اللون وإغلاق مربع الحوار.
لعرض مربع الحوار اللون
1. قم بتعيين خاصية الإشارات الخاصة بعنصر التحكم CommonDialog إلى ثابت VisualBasic cdlCCRGBInit.
2. استخدم طريقة ShowColor لعرض مربع الحوار.
يمكنك استخدام خاصية اللون للحصول على قيمة RGB للون المحدد. يعرض التعليمة البرمجية التالية مربع الحوار اللون عند النقر فوق زر الأمر Command1:
PrivateSubCommand1_Click()
'اضبط الإلغاء على صحيح.
CommonDialog1.CancelError=صحيح
OnErrorGoToErrHandler
'قم بتعيين خاصية الأعلام.
CommonDialog1.Flags=cdlCCRGBInit
"عرض مربع الحوار اللون."
CommonDialog1.ShowColor
"تعيين لون خلفية النموذج على اللون المحدد".
Form1.BackColor=CommonDialog1.Color
ExitSub
معالج الخطأ:
'قام المستخدم بالضغط على زر "إلغاء".
ExitSub
EndSub
استخدام مربع الحوار الخط
يحدد مربع الحوار الخط الخطوط بناءً على الحجم واللون والنمط. بمجرد قيام المستخدم بتحديد خط في مربع الحوار "الخط"، تحتوي الخصائص التالية على معلومات حول خيارات المستخدم.
لعرض مربع الحوار الخط
1. قم بتعيين خاصية الإشارات إلى أحد ثوابت Visual Basic التالية:
cdlCFScreenFonts (خطوط الشاشة)
cdlCFPrinterFonts (خطوط الطابعة)
cdlCFBoth (يمكن أن يكون خط شاشة أو خط طابعة)
تحذير يجب عليك تعيين خاصية العلامات على إحدى هذه القيم قبل عرض مربع الحوار الخط، وإلا سيحدث خطأ الخط غير موجود.
2. استخدم أسلوب ShowFont لعرض مربع الحوار.
يقوم التعليمة البرمجية التالية بتعيين خصائص الخط لمربع النص بناءً على تحديدات المستخدم في مربع الحوار "الخط":
PrivateSubCommand1_Click()
'اضبط الإلغاء على صحيح.
CommonDialog1.CancelError=صحيح
OnErrorGoToErrHandler
'قم بتعيين خاصية الأعلام.
CommonDialog1.Flags=cdlCFBothOrcdlCFEffects
"عرض مربع الحوار "الخط".
CommonDialog1.ShowFont
'قم بتعيين خصائص النص بناءً على اختيارات المستخدم.
Text1.Font.Name=CommonDialog1.FontName
Text1.Font.Size=CommonDialog1.FontSize
Text1.Font.Bold=CommonDialog1.FontBold
Text1.Font.Italic=CommonDialog1.FontItalic
Text1.Font.Underline=CommonDialog1.FontUnderline
Text1.FontStrikethru=CommonDialog1.FontStrikethru
Text1.ForeColor=CommonDialog1.Color
ExitSub
معالج الخطأ:
'قام المستخدم بالضغط على زر "إلغاء".
ExitSub
EndSub
->