کار این تابع عوض کردن زبان صفحه کلید انگلیسی=فازسی

API شماره 3 : کار این تابع عوض کردن زبان صفحه کلید از انگلیسی به فارسی و بر عکس

Language Bar

این تابع را درون یک ماژول بنویسید :

Public Declare Function

 LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long

pwszKLID

: این متغییر رشته 9 رقمی است که کد زبان رو مشخص میکنه.

flags

کد دکمه تبدیل زبان به فارسی :

: مقدار این متغییر برابر (1) خواهد بود.

(StrLocId = LoadKeyboardLayout("00000429", 1

()Private Sub Command1_Click

End Sub

کد دکمه تبدیل زبان به انگلیسی :

(StrLocId = LoadKeyboardLayout(vbNull, 1

()Private Sub Command2_Click

End Sub