28-11-13, 05:03 PM
كيف أجعل رسائل حوار عربية 100% في VB6
سؤال حول رسائل الحوار
|
28-11-13, 05:03 PM
كيف أجعل رسائل حوار عربية 100% في VB6
28-11-13, 05:46 PM
السلام عليكم...
إذا كنت تقصد الـ 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
05-03-14, 01:16 PM
شكرا أخي و أنا اسف على التأخر في شكرك
12-03-14, 02:12 AM
السلام عليكم ورحمة الله وبركاته
بعد الشكر للاستاذ ناجي ابراهيم جرب المثال التالي بالتوفيق تم الشكر بواسطة: ناجي إبراهيم , العيد1403
|
|