فارسي كردن كيب.رد در ويژوال بيسيك

[saadola]

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

فارسي كرده كيبورد در ويژوال بيسيك
براي فارسي مي توان به آدرس
ريجستري زير رفت

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