مرجع حل مشکلات زبان فارسی و سورسهای مربوطه

[M-Gheibi]

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

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

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

ویندوز پارسا 99 ، اکس پی و 2000 که فارسی نصب شده باشد :

 Dim xx As Long

xx = LoadKeyboardLayout("00000429", 1)

ویندوز پارسا 2001 و امثال آن :

Dim xx As Long

xx = LoadKeyboardLayout("00000401", 1)

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