[حريف برمجة]

لتحويل لغة الكتابة إلى عربي ضع الكود التالي في حدث مربع النص 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