تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال حول رسائل الحوار
#1
كيف أجعل رسائل حوار عربية 100% في VB6


Huh Huh Exclamation Idea Huh Huh
الرد
تم الشكر بواسطة:
#2
السلام عليكم...

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

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

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد
تم الشكر بواسطة: VB_Coder , تركي الحلواني , mamas1 , ABO.BANCIANA , VB.NET
#3
شكرا أخي و أنا اسف على التأخر في شكرك
الرد
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله وبركاته

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

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

بالتوفيق


الملفات المرفقة
.rar   msgbox arabic.rar (الحجم : 2.25 ك ب / التحميلات : 92)
الرد
تم الشكر بواسطة: ناجي إبراهيم , العيد1403
#5
يمكمك استعمال الفورم و جعلها رسالة حوار مع تحكم كامل
الرد
تم الشكر بواسطة: العيد1403



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم