ورود

نسخه کامل مشاهده نسخه کامل : کد کیبرد در vb6


saber110
26-06-2006, 13:53
لطفا اگر می توانید مرا در کد کذاری کیبرد در vb6 كمك كنيد - عجله اي :rolleye:
w32.slammer
26-06-2006, 15:52
yani chi mara dar code gozarye keyboard komak konid ... ye kam bishtar tozih bede aziz
black_storm
29-07-2006, 21:19
اقا یه تابع بنویس دیگه کار داره
با تابعهایی مثل
asc
chr
و و و
---------
شاید منظورت را درست نفهمیدم
hajimohammadi
08-08-2006, 15:55
من متوجه سوال شما نشدم ولي كدهاي زير براي فارسي وانگليسي كردن يك تكست باكس به شما كمك ميكنه:

اين كد رو توي يه مدول كپي كنيد
Public Declare Function LoadKeyboardLayout Lib "User32" Alias "LoadKeyboardLayoutA" (ByVal Pws2klid As String, ByVal Flags As Long) As Long

براي فارسي

LoadKeyboardLayout "00000429", 1
براي انگليسي

LoadKeyboardLayout "00000403", 1

اميدوارم بكارتون بياد چون واقعا اشكم در اومد تا كد فارسي رو پيدا كردم

موفق باشيد
javad_m
12-08-2006, 04:21
شايد منظورت اينه كه دكمه هاي كيبورد رو بشناسه؟
اگه منظورت اینه باید در قشمت keypress یا در قسمت keydown کد "key code"رو بزني
مثلا در صورت فشردن كليد "اينتر" برنامه بسته بشه:
private sub button1_keyDown(byval key code as integer)
if keycode=32 then
end
endif
end sub
و برای بدست آوردن کد کلید ها در همون قسمت keydown فرم بنویسید:
print keycode
بعد از اجراي برنامه هر دكمه اي رو كه فشار بدي كدش رو چاژ مي كنه
ديگه من در همين حد سوال شما رو متوجه شدم اگه درست نيست ببخش
:rolleye:
bad_boy_2007
17-08-2006, 01:35
چطور ميتونيم بفهميم كه زبون فعلي سيستم فارسيه يا انگليسي ؟
MohammadJavad.T
17-08-2006, 04:32
منم خوب مفهوم سوال رو نفهميدم فكر كنم منظورت كد هر كليد روي كيبورد باشه كه اگه اشتباه نكنم اينطوري ميشه
( keyascii=asc(ucase(chr(keyascii
bad_boy_2007
18-08-2006, 23:22
چطور میتونیم بفهمیم (در هر وضعیت زبانی کیبورد) که کدوم کلید فشرده شده ؟؟؟؟

مثلا : ش و a , A که همشون روی یک کلیدن با اسکی های مختلف ؟