PDA

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


yazdan
شنبه 06 دی 1382, 18:50 عصر
سلام
من می خواهم صفحه کلید را فارسی کنم البته در ویندوز 98 دستور senetkey فایده ای نداشت
الهام تفریشی
یک شنبه 07 دی 1382, 09:43 صبح
اینو یه تست کن
yazdan
دوشنبه 08 دی 1382, 19:25 عصر
خیلی از همکاری شما سپاسگزارم
amirsadeghi
شنبه 28 مرداد 1385, 13:57 عصر
سلام
این 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
فعلا بای