منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
سؤال حول رسائل الحوار - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : سؤال حول رسائل الحوار (/showthread.php?tid=1117)

سؤال حول رسائل الحوار - العيد1403 - 28-11-13

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


Huh Huh Exclamation Idea Huh Huh

RE: سؤال حول رسائل الحوار - ناجي إبراهيم - 28-11-13

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

إذا كنت تقصد الـ 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, "خطأ"

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

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

RE: سؤال حول رسائل الحوار - العيد1403 - 05-03-14

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

RE: سؤال حول رسائل الحوار - AL_BRNS - 12-03-14

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

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

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

بالتوفيق

RE: سؤال حول رسائل الحوار - asto - 13-03-14

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