تقييم الموضوع :
  • 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]
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] دمج النصوص العربية Concate? khaled_35 2 38 16-10-17, 02:23 AM
آخر رد: khaled_35
  [سؤال] اريد طريقة لمنع تكرار عناصر listbox riad21 4 380 13-10-17, 10:03 AM
آخر رد: مصطفي الشكلي
  [VB.NET] استفسار بخصوص ال textbox dubai.eig 2 47 12-10-17, 09:07 PM
آخر رد: dubai.eig
Exclamation [VB.NET] حدف اسطر في textbox mervandzz 3 53 12-10-17, 02:40 PM
آخر رد: mervandzz
  [VB.NET] استفسار :- تحديث ال TEXTBOX dubai.eig 8 156 10-10-17, 07:03 PM
آخر رد: dubai.eig
  مساعدة في حفظ ماهو مكتوب في textbox اوتوماتيكي trakktour 1 82 01-10-17, 10:30 PM
آخر رد: Amir_alzubidy
  [سؤال] طلب كود لتكرار كلمة في TextBox vbb6 3 86 01-10-17, 04:11 PM
آخر رد: vbb6
  [VB.NET] كيفية جلب مستند نصي من Resources الي Listbox e-coder 3 107 04-09-17, 07:28 AM
آخر رد: سعود
  [كود] كود لإظهار قيمة في TextBox حسب ما يقابلها من قيمة في combobox momiana1 7 5,110 02-09-17, 08:46 PM
آخر رد: ahmedgamal
  نقل عناصر listbox الى textbox بـــكوما مفصولة srca100050 13 340 26-08-17, 06:33 PM
آخر رد: سعود

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


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