کد کیبرد در vb6

[saber110]

لطفا اگر می توانید مرا در کد کذاری کیبرد در vb6 كمك كنيد - عجله اي

[w32.slammer]

yani chi mara dar code gozarye keyboard komak konid ... ye kam bishtar tozih bede aziz

[black_storm]

اقا یه تابع بنویس دیگه کار داره
با تابعهایی مثل
asc
chr
و و و
---------
شاید منظورت را درست نفهمیدم

[hajimohammadi]

من متوجه سوال شما نشدم ولي كدهاي زير براي فارسي وانگليسي كردن يك تكست باكس به شما كمك ميكنه:

اين كد رو توي يه مدول كپي كنيد
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]

شايد منظورت اينه كه دكمه هاي كيبورد رو بشناسه؟
اگه منظورت اینه باید در قشمت keypress یا در قسمت keydown کد "key code"رو بزني
مثلا در صورت فشردن كليد "اينتر" برنامه بسته بشه:
private sub button1_keyDown(byval key code as integer)
if keycode=32 then
end
endif
end sub
و برای بدست آوردن کد کلید ها در همون قسمت keydown فرم بنویسید:
print keycode
بعد از اجراي برنامه هر دكمه اي رو كه فشار بدي كدش رو چاژ مي كنه
ديگه من در همين حد سوال شما رو متوجه شدم اگه درست نيست ببخش

[bad_boy_2007]

چطور ميتونيم بفهميم كه زبون فعلي سيستم فارسيه يا انگليسي ؟

[MohammadJavad.T]

منم خوب مفهوم سوال رو نفهميدم فكر كنم منظورت كد هر كليد روي كيبورد باشه كه اگه اشتباه نكنم اينطوري ميشه
( keyascii=asc(ucase(chr(keyascii

[bad_boy_2007]

چطور میتونیم بفهمیم (در هر وضعیت زبانی کیبورد) که کدوم کلید فشرده شده ؟؟؟؟

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