...::: آموزش ويژوال بيسيک :::...

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) خواهد بود.

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

()Private Sub Command1_Click

(StrLocId = LoadKeyboardLayout("00000429", 1

End Sub

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

()Private Sub Command2_Click

(StrLocId = LoadKeyboardLayout(vbNull, 1

End Sub

با تشکر از آقای سرتیپی

+ نوشته شده در 87/05/03ساعت 4:53 PM توسط مهدی |