فارسي كردن كيب.رد در ويژوال بيسيك
فارسي كرده كيبورد در ويژوال بيسيك
براي فارسي مي توان به آدرس
ريجستري زير رفت
HKEY_CURRENT_USER\KEYBOARDLAYOUT\PRELOAD
اولين مقدار
00000409 مربوط به زبان انگليسي است
دومين مقدار00000429مربوط به زبان فارسي است
كد API زير را در يك ماژول قرار دهيد
Public Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
حالا براي آزمايش يك كادر متن روي فرم قرار دهيد
ودر فرم لود قطعه كد زير را تايپ كنيد
Loadkeyboardlayout "00000429",1
اگر دقت كرده باشيد ما بعد از مقدار عدد
1 را قرار داده ايم
اين عدد براي اين است كه ما اين زبان را مي خواهيم
ويا اين زبان فوكوس است
برگرفته از سايت پشه دات كام با مديريت سعدالله ويسي
تبديل اينچ به ميلي متر
On Error Resume Next
If (KeyAscii = 13) Then
txtIncs.Text = Abs(txtIncs.Text)
txtMili.Text = Val(txtIncs.Text * 25.4)
End If
If Err Then
txtIncs.Text = ""
MsgBox "Can't connvert ! Enter numeric value only !"
نوشته شده توسط سعدلله ويسي
حالا مي توانيد براي كيبورد به آدرس ريجستري زير هم برويد
Hkey_Current -USer\KeyboardLayout
