السلام عليكم...
تحتوي المرفقات على ملف ActiveX DLL باسم DSCDialogs.dll يحتوي على نافذة رسائل (MessageBox) كاملة الوظائف مع قابلية تخصيصها بشكل كامل.
مزايا نافذة الرسائل المخصصة:
1. يمكنها أن تعرض كل الأزرار التي تعرضها الدالة MsgBox في Visual Basic
2. تعيد نفس القيم التي تعيدها الدالة MsgBox في Visual Basic
3. يمكن تحديد مواصفات خط نص الرسالة (نوع الخط، حجم الخط، لون النص).
4. يمكن تحديد مواصفات خط نص الأزرار.
5. يمكن أن تعرض أحد رموز الرسائل الأربعة التي تعرضها الدالة MsgBox و هي Information, Question, Critical, Exclamation
6. يمكن بدل تلك الرموز تعيين صورة لاستعمالها كرمز للرسالة.
7. يمكن أن نضيف إليها سطراً في الأسفل يمثل ارتباطاً أو وصلة (Link) لاستعمالها في فتح موقع على الإنترنت أو فتح ملف، ... إلخ. مع تحديد مواصات خط نص هذه الوصلة.
8. يمكن تحديد مكان ظهور نافذة الرسالة إما في وسط الشاشة أو تحديد إحداثيات لموقعها.
9. يمكن تحديد ما إذا كان اتجاه الرسالة عربياً أم لا. إذا كان عربياً فإن عناوين الأزرار تكون بالعربي (موافق، إلغاء الأمر، ... إلخ) و مرتبة من اليمين إلى اليسار، كما أن رمز الرسالة يكون من اليمين. و إذا كانت غير عربية فإن عناوين الأزرار تكون بالإنجليزي(OK، Cancel، ... إلخ) و مرتبة من اليمين إلى اليسار، كما أن رمز الرسالة يكون من اليسار.
10. يمكن تحديد لون خلفية نافذة الرسالة.
تسجيل المكتبة:
1. نسخ الملفين DSCDialogs.dll و DSCDialogs.lib إلى المجلد System32 التابع للنظام.
2. تسجيل المكتبة باختيار الأمر "تشغيل" (Run) من القائمة "ابدأ" (Start) ثم كتابة الأمر: regsvr32 DSCDialogs.dll ثم النقر على الزر "موافق" (OK). سيعطينا رسالة بنجاح التسجيل.
لاستعمال الرسالة المخصصة في أي مشروع:
1. من داخل Visual Basic نختار الأمر References من القائمة Project
2. في قائمة المراجع نبحث عن البند DSCDialogs و نقوم بتحديده. ثم ننقر الزر OK
3. نضع التصريح التالي في Module:
- Public MyMsg As New DSCDialogs.TCustomMsgBox
- 'أو هكذا فقط
- Private MyMsg As New TCustomMsgBox
نستعمل خصائص الكائن MyMsg (أو أي اسم أعطيته للمتغير) لتحديد خصائص الرسالة، و التي تشمل:
1. الخاصية Text: نص الرسالة - String
2. الخاصية Title: عنوان الرسالة - String. إذا لم نحدد عنواناً للرسالة فسيكون عنوانها هو عنوان المشروع App.Title
3.الخاصية Buttons: عدد و نوع الأزرار، و يمكن أن تأخذ إحدى القيم التالية:
= Btn_OKOnly: الزر "موافق" فقط. هذا هو الافتراضي.
= Btn_OKCancel: الزرين "موافق" و "إلغاء الأمر".
= Btn_YesNo: الزرين "نعم" و "لا".
= Btn_YesNoCancel: الأزرار "نعم" و "لا" و "إلغاء الأمر".
= Btn_RetryCancel: الزرين "إعادة المحاولة" و "إلغاء الأمر".
= Btn_AbortRetryIgnore: الأزرار "إحباط" و "إعادة المحاولة" و "تجاهل".
4. الخاصية Icon: رمز الرسالة (نفس رموز MsgBox). يمكن أن تأخذ إحدى القيم التالية:
= Icon_None: دون رمز. هذا هو الافتراضي.
= Icon_Information رمز معلومات
= Icon_Question رمز سؤال
= Icon_Exclamation رمز تعجب
= Icon_Critical رمز خطأ
5. الخاصية CustomIcon: من النوع StdPicture. صورة يتم استعمالها كرمز مخصص للرسالة بدل الرموز الافتراضية الآربعة. لاستعمال هذه الصورة كرمز للرسالة يجب ضبط الخاصية Icon على Icon_None
6. الخاصية LinkText: نص الوصلة أو الاتباط التشعبي. يظهر هذا النص أسفل الرسالة، و يمكن النقر عليه لفتح المسار الذي نحدده له كنص.
7. الخاصية BackColor: لون خلفية نافذة الرسالة.
8. الخاصية ForeColor: لون نص الرسالة.
9. الخاصية LinkColor: لون نص الوصلة أو الارتباط التشعبي. الافتراضي أزرق.
10. الخاصية Center: من النوع Boolean. تحديد ما إذا سيتم إظهار الرسالة في منتصف الشاشة (True) أو استعمال الخاصيتين Left و Top المذكورتين فيما بعد (False). القيمة الافتراضية هي True
11. الخاصية Left: من النوع Single. موقع نافذة الرسالة أفقياً على الشاشة. يجب ضبط الخاصية Center على False لاستعمال هذه الخاصية. القيمة الافتراضية 0. إذا كانت القيمة سالبة (أقل من 0) فإن النافذة تظهر عند أقصى يمين سطح المكتب.
12. الخاصية Top: من النوع Single. موقع نافذة الرسالة رأسياً على الشاشة. يجب ضبط الخاصية Center على False لاستعمال هذه الخاصية. القيمة الافتراضية 0. إذا كانت القيمة سالبة (أقل من 0) فإن النافذة تظهر عند أقصى أسفل سطح المكتب، فوق الـ TaskBar
13. الخاصية RightToLeft: من النوع Boolean. تحديد اتجاه قراءة و محاذاة نص الرسالة و الأزرار. إذا كانت True (الافتراضي) فإن الرسالة تكون من اليمين إلى اليسار، و الرمز - إذا كان موجوداً - يظهر على اليمين، و عناوين الأزرار تكون بالعربي و مرتبة من اليمين إلى اليسار. أما إذا كانت False فإن الرسالة تكون من اليسار إلى اليمين، و الرمز - إذا كان موجوداً - يظهر على اليسار، و عناوين الأزرار تكون بالإنجليزي و مرتبة من اليسار إلى اليمين.
14. الخاصية TextFont: تحديد مواصفات خط نص الرسالة. عندما تكتب نقطة بعد اسم هذه الخاصية ستظهر لك خصائص الخط المعروفة.
15. الخاصية LinkFont: تحديد مواصفات خط نص الوصلة أو الارتباط التشعبي.
16. الخاصية ButtonFont: تحديد مواصفات خط نص الأزرار.
لست مضطراً لاستعمال كل هذه الخصائص، لكنها موجودة إذا احتجت إليها. و غالباً ما ستحتاج فقط لضبط بعضها عند بدء تشغيل البرنامج (في النافذة الرئيسية مثلاً). إذا أردت مثلاً أن تكون رسائلك بأرضية زرقاء و نص أبيض فيمكنك استمال كود كالتالي مرة واحدة في البداية:
- MyMsg.BackColor = vbBlue
- MyMsg.ForeColor = vbWhite
و إذا أردت أن يكون خط الأزرار أندلسي و حجمه 12 فاستعمل كود كالتالي:
- MyMsg.ButtonFont.Name = "Andalus"
- MyMsg.ButtonFont.Size = 12
أما طريقة استدعاء نافذة الرسالة فقد حاولت أن أجعلها قريبة من صيغة الدالة MsgBox حيث توجد طرقتان، كلتاهما تعيد نفس القيم التي تعيدها الدالة MsgBox، أي vbOK, vbCancel, vbYes، ... إلخ.
1. استعمال الطريقة Show2 دون بارامترات، و بالتالي ستستخدم آخر قيم للخصائص.
2. استعمال الطريقة Show مع تمرير بارامترات كما في الصيغة التالية:
- Show(AText As String, AButtons As MsgBoxButtons, ATitle As String, AIcon As MsgBoxIcons, ACustomIcon As StdPicture, ARightToLeft As Boolean)
جميع البارامترات اختيارية ما عدا البارامتر الأول (AText) الذي هو نص الرسالة فمطلوب.
بقية البارامترات هي:
= AButtons: عدد و نوع الأزرار.. الافتراضي الزر "موافق" فقط.
= ATitle: عنوان الرسالة. الافتراضي عنوان التطبيق.
= AIcon: رمز الرسالة. الافتراضي دون رمز.
= ACustomIcon: صورة تستعمل كرمز مخصص. الافتراضي لا شيء.
= ARightToLeft: اتجاه قراءة و محاذاة النص و الأزرار. الافتراضي True أي من اليمين إلى اليسار.
أمثلة على استخدام الرسالة المخصصة:
- Private Sub Command1_Click()
- Dim MsgTxt As String
- MsgTxt = "بسم الله الرحمن الرحيم"
- MsgTxt = MsgTxt & vbCrLf & vbCrLf & "بقليل من المجهود الإضافي و حسن استخدام تعليمات Visual
Basic " - MsgTxt = MsgTxt & "يمكنك أن تصنع بهذه اللغة معظم الأشياء التي قد تخطر على بالك."
- With MyMsgBox
- .Title = "أهلاً و سهلاً"
- .Text = MsgTxt
- .Buttons = Btn_OKCancel
- .Icon = Icon_None
- Set .CustomIcon = Image2.Picture
- .Center = True
- '.Left = 1000
- '.Top = 1000
- .RightToLeft = True
- .BackColor = &HA96D2B
- .ForeColor = vbWhite
- .LinkColor = vbGreen
- .Show2
- End With
- End Sub
- Private Sub Command3_Click()
- MyMsgBox.LinkText = ""
- MyMsgBox.BackColor = vbButtonFace
- MyMsgBox.ForeColor = vbBlue
- MyMsgBox.Center = False
- MyMsgBox.Top = -1
- MyMsgBox.Left = 0 ' "Test Message"
- MyMsgBox.Show "This is just a test English text!!", , vbNullChar, Icon_Information, , False
- End Sub
- Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
- MyMsgBox.LinkText = ""
- MyMsgBox.BackColor = &H8CE6F0
- MyMsgBox.ForeColor = vbRed
- MyMsgBox.Center = True
- If MyMsgBox.Show("هل تريد بالتأكيد إغلاق البرنامج و إنهاء جلسة العمل؟", Btn_YesNo, "تأكيد ا
لإغلاق", Icon_Question) = vbNo Then - Cancel = True
- End If
- End Sub
أخيراً و لتعم الفائدة فقد أرفقت الـ Source Code الخاص بالمكتبة لمن يريد أن يعدل فيها أو يطورها.
نرجو الاستفادة و السلام.
