عوض شدن صفحه كليد

[Alipersia]

سلام
كسي كدي كه صفحه كليد رو موقعه اجراي فرم بصورتfa در مياره داره؟ممنون ميشم اگه زود جواب بديد.

[saadi2]

Public Sub farsi()
Dim myCulture As New Globalization.CultureInfo("fa-IR")
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(myCulture)
End Sub

Public Sub english()
Dim myCultureen As New Globalization.CultureInfo("En-Us")
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(myCultureen)
End Sub

[viper2009]

با اجازه از دوست خوبم Saadi2 من هم جسارت می کنم
و این کد رو اضافه می کنم


Public Declare Function LoadKeyboardLayout Lib"user32"Alias"LoadKeyboardLayoutA" (ByVal pwszKLID AsString, ByVal flags AsInteger) As Integer




Dim b As Integer



b = LoadKeyboardLayout("00000429", 1)



این عدد 00000429 کم یا زیاد کنی به زبان های دیگه هم تغییر می کنه