this code, assuming you have a textbox works when the box receives
focus.
Of course you must have the wanted locallanguage installed.
Private Sub TextBox1_GotFoc us(ByVal sender As Object, ByVal e As
System.EventArg s) Handles TextBox1.GotFoc us
'This works as long as another language is installed and in
use
Dim x As New System.Globaliz ation.CultureIn fo("el-GR") 'which
is Greek
InputLanguage.C urrentInputLang uage =
InputLanguage.F romCulture(x)
End Sub
Private Sub TextBox1_LostFo cus(ByVal sender As Object, ByVal e As
System.EventArg s) Handles TextBox1.LostFo cus
Dim x As New System.Globaliz ation.CultureIn fo("sv-SE")' Which
is Swedish
InputLanguage.C urrentInputLang uage =
InputLanguage.F romCulture(x)
End Sub
Hi
Thankx for ur help.
Dim x As New System.Globaliz ation.CultureIn fo(&H420)
InputLanguage.C urrentInputLang uage = InputLanguage.F romCulture(x)
I changed the language with this code to "Urdu". it changed the langusge but
the problem is this that there are various types of keyboard layouts in Urdu
language. Now language is changed but how can i change the keyboard layout as
they are installed in windows and can be changed from regional setting but
how can it be changed from the code.
Regards
Muhammad Bilal
"lexj" wrote:
On 28 Dec, 23:14, Muhammad Bilal
<MuhammadBi...@ discussions.mic rosoft.comwrote :
Hi.
How Input language and Keyboard layout/IME can be changed at runtime.
Hi MD
take a look at this posting intiated by me a couple of fays ago....
>
this code, assuming you have a textbox works when the box receives
focus.
Of course you must have the wanted locallanguage installed.
Private Sub TextBox1_GotFoc us(ByVal sender As Object, ByVal e As
System.EventArg s) Handles TextBox1.GotFoc us
'This works as long as another language is installed and in
use
Dim x As New System.Globaliz ation.CultureIn fo("el-GR") 'which
is Greek
InputLanguage.C urrentInputLang uage =
InputLanguage.F romCulture(x)
End Sub
>
Private Sub TextBox1_LostFo cus(ByVal sender As Object, ByVal e As
System.EventArg s) Handles TextBox1.LostFo cus
Dim x As New System.Globaliz ation.CultureIn fo("sv-SE")' Which
is Swedish
InputLanguage.C urrentInputLang uage =
InputLanguage.F romCulture(x)
End Sub
>
Have also a look at the input language class at MSDN, at http://msdn2.microsoft.com/en-us/lib...ge(VS.71).aspx
and also this page with all cultureinfo settings, at http://msdn2.microsoft.com/en-us/lib...fo(VS.71).aspx
>
best regards
lexj
>
>
Comment