[العيد1403]

كيف أجعل رسائل حوار عربية 100% في VB6

[ناجي إبراهيم]

السلام عليكم...

إذا كنت تقصد الـ MsgBox فإنها قابلة للتعريب باستثناء الأزرار (موافق، إلغاء الأمر، ... إلخ) فإنها تتبع لغة واجهة نظام التشغيل (أعتقد أنه يمكن التحكم بها أيضاً عن طريق الـ Subclassing باستعمال دوال API).

أما لتعريب شكل الرسالة فهناك الثابتان:

vbMsgBoxRight لقراءة النص من اليمين إلى اليسار.
vbMsgBoxRtlLayout لمحاذاة محتوى الرسالة من اليمين إلى اليسار.

كود :

Answer = MsgBox("هل تريد الاستمرار", vbYesNo Or vbQuestion Or vbMsgBoxRight Or vbMsgBoxRtlLayout, "تأكيد")

فالكود السابق سيعرض رسالة معربة. و بالنسبة إلى الأزرار فإنه إذا كان Windows معرباً فإن الأزرار ستكون "نعم" و "لا". أما إذا لم يكن معرباً فالأزرار ستكون "Yes" و "No".

* إذا كنت ترى أن vbMsgBoxRtlLayout و vbMsgBoxRight طويلان و استعمالهما في كل مرة سيكون متعباً فإنه يمكنك جمعهما في ثابت واحد (في Module) و استعمال ذلك الثابت بدلهما

كود :

Public Const MSG_AR = vbMsgBoxRight Or vbMsgBoxRtlLayout

ثم:

كود :

MsgBox "يجب كتابة الاسم", vbCritical Or MSG_AR, "خطأ"

* و بالطبع يمكنك بقليل من المجهود إنشاء نافذة رسائل خاصة حسب ما تراه مناسباً.

نرجو الاستفادة و السلام.

[العيد1403]

شكرا أخي و أنا اسف على التأخر في شكرك

[AL_BRNS]

السلام عليكم ورحمة الله وبركاته

بعد الشكر للاستاذ ناجي ابراهيم

جرب المثال التالي

بالتوفيق

[asto]

يمكمك استعمال الفورم و جعلها رسالة حوار مع تحكم كامل