Objective: I want to change the language on specific control (label) from english to thai.
Code:
Public Class frmClient
Private ThaiLang As InputLanguage
Sub ChangeLang(lblControl As Label)
InputLanguage.CurrentInputLanguage = ThaiLang
End Sub
Private Sub frmClient_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim Newctr As Integer
Newctr = InputLanguage.InstalledInputLanguages.Count
For i As Integer = 1 To (Newctr - 1)
If InputLanguage.InstalledInputLanguages(i).LayoutName.Contains("Thai") = True Then
ThaiLang = InputLanguage.InstalledInputLanguages(i)
i = (Newctr - 1)
End If
Next
ChangeLang(lblDispThaiName)
Me.lblDispThaiName.Text = "Test"
End Sub
but when i run the project, nothing happens. hope anyone can give me a helping hand. thank you.