[nooralcown]

استعملت هذا الكود لتحويل اللغة داخل اي تكست بوكس الى العربية  
 InputLanguage.CurrentInputLanguage = InputLanguage.InstalledInputLanguages().Item(0)

المشكلة على جهاز الشغل تكتب عربي وعلى جهاز البيت تكتب انجليزي  

وين المشكلة بارك الله فيكم

[طالب برمجة]

[مثال] طريقة تغيير لغة الإدخال بشريط المهام

[nooralcown]

بارك الله فيك تمام

[Gyath]

السلام عليكم ورحمة الله
الكود صحيح 

 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

[اسامه الهرماوي]

ع وضعك شكرا يا اخي

[esawy1]

جزاك الله خيرا 

لم اجد GetFocus

ووجدت GotFocus  ووضعت الكود فيه ومشى الحال وتم بنجاح تغيير اللغة

انا اعمل على Visual Studio 2010