استعملت هذا الكود لتحويل اللغة داخل اي تكست بوكس الى العربية
InputLanguage.CurrentInputLanguage = InputLanguage.InstalledInputLanguages().Item(0)
المشكلة على جهاز الشغل تكتب عربي وعلى جهاز البيت تكتب انجليزي
وين المشكلة بارك الله فيكم
السلام عليكم ورحمة الله
الكود صحيح
InputLanguage.CurrentInputLanguage = InputLanguage.InstalledInputLanguages().Item(0)
يوضع الكود في حدث مربع النص GetFocus
ولكن المشكلة لديك في اللغة الافتراضية لجهاز الكمبيوتر
حيث يستخدم الرقم (0) للغة الافتراضية والرقم (1) للغة الثانوية
غير الرقم 0 في الجهاز الثاني الى 1 سيعمل الكود انشاء الله
لتحويل لغة الكتابة إلى عربي ضع الكود التالي في حدث
مربع النص GetFocus :
كود :
Dim lang As InputLanguage
For Each lang In InputLanguage.InstalledInputLanguages
If lang.Culture.EnglishName.ToUpper Like "*arabic*".ToUpper Then
InputLanguage.CurrentInputLanguage = lang
End If
Next
وللإنجليزي ضع الكود التالي في حدث
مربع النص GetFocus :
كود :
Dim lang As InputLanguage
For Each lang In InputLanguage.InstalledInputLanguages
If Not lang.Culture.EnglishName.ToUpper Like "*arabic*".ToUpper Then
InputLanguage.CurrentInputLanguage = lang
End If
Next
جزاك الله خيرا
لم اجد GetFocus
ووجدت GotFocus ووضعت الكود فيه ومشى الحال وتم بنجاح تغيير اللغة
انا اعمل على Visual Studio 2010