17-10-12, 05:17 PM
كاتب الموضوع : AhmedEssawy
الاجراء التالي يقوم بتغيير لغة الادخال والخاصة بلوحة المفاتيح استنادا الى معرف الدولة المرسل له:
كود :
Imports System.Globalization
…
…
…
Public Sub SetKeyboardLanguage(ByVal culName As String)
Dim MyLng As New CultureInfo(culName)
Dim InLang As InputLanguage = InputLanguage.FromCulture(MyLng)
InputLanguage.CurrentInputLanguage = InLang
End Sub
مثال لاستخدامه:
كود :
' العربية
SetKeyboardLanguage("ar-SA")
' الانجليزية
SetKeyboardLanguage("en")