View Full Version : سوال: عوض شدن صفحه كليد
Alipersia
چهارشنبه 22 مهر 1388, 14:28 عصر
سلام
كسي كدي كه صفحه كليد رو موقعه اجراي فرم بصورتfa در مياره داره؟ممنون ميشم اگه زود جواب بديد.
saadi2
چهارشنبه 22 مهر 1388, 15:21 عصر
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
چهارشنبه 22 مهر 1388, 15:53 عصر
با اجازه از دوست خوبم 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 کم یا زیاد کنی به زبان های دیگه هم تغییر می کنه
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.