تبديل صفحه کليد به فارسی در ويژوال بيسيک

برای تبديل صفحه کليد به فارسی در ويژوال بيسيک 6 :

ابتدا تابع زير را تعريف کنيد :

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

ويندوز اکس پی  و 2000 که فارسی نصب شده باشد .

 Dim xx As Long
xx = LoadKeyboardLayout("00000429", 1)

ويندوز پارسا 99 و امثال آن

Dim xx As Long
xx = LoadKeyboardLayout("00000401", 1)

کد 401 برای عربی عربستان است که در ويندوز پارسا 99 به جای فارسی به کار می رود .

بر روی ويندوز ME تست نشده است .

تبديل صفحه کليد به فارسی در ويژوال بيسيک دات نت :

ابتدا تابع زير را تعريف کنيد :

Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Integer) As Integer

در ويندوز اکس پی و 2000

Dim a as Integer