فارسی کردن صفحه کلید (همان کار کلیدهای alt+shift)

[yazdan]

سلام
من می خواهم صفحه کلید را فارسی کنم البته در ویندوز 98 دستور senetkey فایده ای نداشت

[الهام تفریشی]

اینو یه تست کن

[yazdan]

خیلی از همکاری شما سپاسگزارم

[amirsadeghi]

سلام
این api هم مفیده
ماژول:
Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
کد
Dim f As Long
f = ActivateKeyboardLayout(1, 0)
If f <> 67699721 Then
f = ActivateKeyboardLayout(0, 1)
End If
فعلا بای