تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف نجعل العناصر ( Textbox>>>listbox) تأخذ اللغة العربية ؟
#1
بسم الله الرحمن الرحيم

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

كيف اجعل Textbox مغعل على اللغة العربية، اي بمعنى اخر، الا اجعل المستخدم يضغط على زر تبيدل اللغة الى اللغة العربية ، في كل حقل ادخال

كنت عند تصميم البرامج باستخدام الاكسس، اجعل خاصية الحقل
لغة لوحة المفاتيح ......... على اللغة العربية

كيف السبيل الى ذلك بالفيجوال بيسك دوت نت
والف شكر
الرد }}}}
تم الشكر بواسطة:
#2
ضع هذا الكود في حدث Keyup للـــ Text Box
اوعند فتح النافذة في الحدث Load

كود :
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New Globalization.CultureInfo("Ar-EG"))

Smile:eek:Smile
الرد }}}}
تم الشكر بواسطة:
#3
اخي العزيز اذا بك عربي فقط في التكست ادخل هذا الكود في حدث GotFocus



(InputLanguage.CurrentInputLanguage = InputLanguage.InstalledInputLanguages().Item(1


مع فائق الاحترام
الرد }}}}
تم الشكر بواسطة:
#4
شكر اخي
Genius live
على اجابتك
ولكن ماتفضلت به لم يعمل .....
انا اعمل على نظام ويندوز 8 وفيجوال بسك دوت نت
الرد }}}}
تم الشكر بواسطة:
#5
شكراً اخي
NMST70
على ما تفضلت به، فقد عمل معي واصبح الحقل بكتب اللغة العربية

[b][COLOR="#B22222"]سؤالي ....
كأني لحظت في هذا الكود انه له علاقة باللغات المثبتة على الجهاز
وماذا لوكان المستثمر للبرنامج مثبت على جهازه اكثر من لغة ( عربي - انكليزي - فرنيسي - الماني ) مثلا[/COLOR]


هل يظل الكود شغال...
يعني Item(1
ربما لا تكون هي العربية ؟؟؟؟؟؟؟؟؟؟؟
[/b]
الرد }}}}
تم الشكر بواسطة:
#6
kafi كتب :شكر اخي
Genius live
على اجابتك
ولكن ماتفضلت به لم يعمل .....
انا اعمل على نظام ويندوز 8 وفيجوال بسك دوت نت

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

أخي الكريم

كود الأخ Genius live صحيح ولكن يجب تغيير اسم اللغة الموجود في الكود إلى التي لديك
لأن ما كتبه لك هو لمن لديهم اللغة العربية - مصر (AR-EG)
فإذا كانت التي لديك هي العربية - السعودية فيجب أن تكتب (ar-SA)
أو إذا أحببت أن تضع البرنامج على النت ويكون شامل لكل الدول العربية فاستعمل كود الأخ NMST70 وهو

كود :
(InputLanguage.CurrentInputLanguage = InputLanguage.InstalledInputLanguages().Item(1

بمعنى أنك ستستخدم اللغة الثانية المنزلة على الجهاز والتي غالبا وليست دائما تكون اللغة العربية ولهذا من الأفضل عمل شرط تحقق من اسم اللغة قبل التحويل عليها

بالتوفيق
الرد }}}}
تم الشكر بواسطة:
#7
kafi كتب :شكراً اخي
NMST70
على ما تفضلت به، فقد عمل معي واصبح الحقل بكتب اللغة العربية

[b][COLOR="#B22222"]سؤالي ....
كأني لحظت في هذا الكود انه له علاقة باللغات المثبتة على الجهاز
وماذا لوكان المستثمر للبرنامج مثبت على جهازه اكثر من لغة ( عربي - انكليزي - فرنيسي - الماني ) مثلا[/COLOR]


هل يظل الكود شغال...
يعني Item(1
ربما لا تكون هي العربية ؟؟؟؟؟؟؟؟؟؟؟
[/b]

نعم هذا ما قصدته في المشاركة السابفة
ولهذا فمن الأفضل وضع شرط للتحقق كما ذكرت آنفا
فعندي على سبيل المثال اللغة العربية اللغة الأولى على الجهاز أي الرقم صفر
وللتحقق من اسم اللغة هذا الكود سيساعدك
كود :
If InputLanguage.InstalledInputLanguages().Item(1).Culture.Name.Contains("ar") Then
            'ضع الكود هنا
        End If

بالتوفيق
الرد }}}}
تم الشكر بواسطة:
#8
[COLOR="#000000"][b]شكرا اخي
Soriaty03
على التوضيح الرائع للاكواد التي تفضل بها الاخوة الزملاء
[HTML]
If InputLanguage.InstalledInputLanguages().Item(1).Culture.Name.Contains("ar") Then
'ضع الكود هنا
End If
[/HTML]

اخي الكريم في الكود الذي تفضلت به حضرتك، مازال الكود مرتبط بالعنصر 1 ، وكما اسلفت سابقا في حال تواجد العديد من اللغات المنصبة على جهاز العميل، فقد لا تكون اللغة العربية هي الاولى
اقترح ان يكون الكود كمايلي
[HTML]
Dim x, i, xx As Integer

x = InputLanguage.InstalledInputLanguages().Count


For i = 0 To (x - 1)
If InputLanguage.InstalledInputLanguages().Item(i).Culture.Name.Contains("ar") Then
xx = i
End If
Next

InputLanguage.CurrentInputLanguage = InputLanguage.InstalledInputLanguages().Item(xx[/HTML])

حيث بحثت عن عدد اللغات الموجودة، ومن ثم بحثت داخل القائمة من اجل معرفة ترتيب اللغة العربية ضمن القائمة

ارجو تصويب ما فعلته
والسلام عليكم
[/COLOR][/b]
الرد }}}}
تم الشكر بواسطة:
#9
فقط ضع جملة Exit For بعد جملة :
كود :
xx = i
وذلك حتى لا تكون الحلقة شغالة ما دام لقينا المطلوب
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#10
شكرا اخي
kslawy
على تصويب الكود !!!!!!!!!
بارك الله فيك

ان هدا الكود سوف يتم استدعاؤه مئات المرات على مستوى البرنامج ...
لان معظم الشاشات فيها حقول ادخال....

افكر ان يتم فحص موقع اللغة العربية (xx) في بدء عمل الشاشة الافتتاحية للبرنامج، ومعرفة موقع اللغة العربية من اللغات المثبتة على الجهاز، كما اسلفنا بالكود المدكور/ من اجل صحة استدعاء

[HTML]InputLanguage.CurrentInputLanguage = InputLanguage.InstalledInputLanguages().Item(xx[/HTML]

[HTML]
Dim x, i, xx As Integer

x = InputLanguage.InstalledInputLanguages().Count


For i = 0 To (x - 1)
If InputLanguage.InstalledInputLanguages().Item(i).Culture.Name.Contains("ar") Then
xx = i
exit for
End If
Next[/HTML]

هل اخزن الرقم xx
1- اما على متغير عام على طول البرنامج
2- ام على ملف xmal
3- ام في قاعدة بياناتي
4- ام لا افعل على ذلك، وابقي على الكود كما هو، ولن ياخد الكثير من الوقت رغم انه سوف يتم استدعاؤه مئات المرات

[b][u][b]ارجو ارشادي الى اي الحلول افضل واصح
[/u][/b]
جزاكم الله كل خير[/b]
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  قاعدة البيانات لا تدعم اللغة العربية ؟؟؟؟؟؟ صبري زينوبي 13 210 03-12-16, 04:47 PM
آخر رد: صبري زينوبي
  [VB.NET] كيف اجعل صف في listbox ملون 3asfa~mdmra 1 88 26-11-16, 01:00 PM
آخر رد: silverlight
  تحريك العناصر الى كل الاتجاهات bidaya 3 95 23-11-16, 12:48 PM
آخر رد: bahgat okasha
  تقسيم text الى عدة listbox rabeh.ram 4 107 22-11-16, 12:06 AM
آخر رد: rabeh.ram
  مساعدة بخصوص Listbox CLARO 3 83 16-11-16, 06:15 PM
آخر رد: silverlight
  [سؤال] حفظ النص المكتوب داخل listBox فارس جراح 7 119 15-11-16, 04:00 AM
آخر رد: LoveVb
  [VB.NET] قاعدة بيانات و listbox rabeh.ram 2 122 05-11-16, 02:51 AM
آخر رد: rabeh.ram
Bug [VB.NET] مـساعدة بخـصوص Listbox 3asfa~mdmra 6 91 04-11-16, 07:33 PM
آخر رد: silverlight
  إزالة العناصر من listview Mohamed20 0 58 02-11-16, 11:49 PM
آخر رد: Mohamed20
  [VB.NET] التحكم في العناصر محمد اسماعيل 1 50 26-10-16, 12:39 PM
آخر رد: العواد الصغير

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


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