[Taha Okla]

وخذ هذا التعديل على الـ Class  من أجل الدراويش  - ولتغيير اللغة كما تريد (عربي - انكليزي - تمر )..

كود :

Public Class LangClass
   Enum pLanguage
       En = 0
       Ar = 1
   End Enum
   Public Sub SelectLanguage(ArEn As pLanguage)

       Dim lang As InputLanguage

       For Each lang In InputLanguage.InstalledInputLanguages
           If ArEn = 1 Then
               If lang.Culture.EnglishName.ToUpper Like "*arabic*".ToUpper Then
                   InputLanguage.CurrentInputLanguage = lang
               End If
           ElseIf ArEn = 0 Then
               ' If Not lang.Culture.EnglishName.ToUpper Like "*arabic*".ToUpper Then
               If lang.Culture.EnglishName.ToUpper Like "*English*".ToUpper Then
                   InputLanguage.CurrentInputLanguage = lang
               End If
           End If
       Next
   End Sub

End Class

فيصبح كود الاستدعاء هو :

كود :

   Private Sub TextBox1_GotFocus(sender As Object, e As EventArgs) Handles TextBox1.GotFocus

       Dim Ta As New LangClass
       Ta.SelectLanguage(pLanguage.En)

   End Sub

   Private Sub TextBox2_GotFocus(sender As Object, e As EventArgs) Handles TextBox2.GotFocus

       Dim Ta As New LangClass
       Ta.SelectLanguage(pLanguage.Ar)

   End Sub