i am using tow text boxes one is engslih language and other is thai language it is installed in my computer i use these bellow code please see
Public Class Form1
Private Const _ENGLISH As String = "ENGL"
Private Const _THAI As String = "THAI"
'A Temporary variable to hold the color of a control
Private OriginalColor As Color
Private Sub TextBox2_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.GotFocus, TextBox1.GotFocus
'===========================================================================
' FIRST PART - LANGUAGE(SWITCHING)
'===========================================================================
'We'll use the case statement to inspect the sender objects .Tag property
Select Case sender.Tag
Case _THAI
For Each Lng As InputLanguage In InputLanguage.InstalledInputLanguages
If Lng.Culture.DisplayName.ToUpper.StartsWith(_THAI) Or Lng.Culture.DisplayName.ToUpper.StartsWith("CATA") Then
InputLanguage.CurrentInputLanguage = Lng
Exit For
End If
Next
Case _ENGLISH
For Each Lng As InputLanguage In InputLanguage.InstalledInputLanguages
If Lng.Culture.DisplayName.ToUpper.StartsWith(_ENGLISH) Then
InputLanguage.CurrentInputLanguage = Lng
Exit For
End If
Next
End Select
End Sub
End Class
i use it but it can not changes language please tell me how i can use these setting
when i write one text box so it should me in English and when i go in second text-box so it write Thai please help me