کنترل ماشن حساب با کیبورد

[metalsmooth]

سلام دوستان یک سوال داشتم که اینکه :
می خوام ماشین حسابی که نوشتم با کیبورد کنترل کنم یعنی اینکه اگه 1 بزنم تو ال سی دی برنامه 1 چاپ کنه یا اگه بخام log بگیرم با ctrl+L این کار را انجام بده ممنون می شم اگه جواب بدین راستی برنامه رو تو VB9 نوشم اگه تو VB6 هم این و بدون میتونم ترجمه کنم این هم نمونه کارم امید وارو خوشتون بیاد:
http://rapidshare.com/files/244701781/setup.exe.html

[Tasiyan]

Private Sub Form_Load()
Form1.KeyPreview = True
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 97 Or KeyCode = 49 Then Command1_Click
End Sub

:لبخند:

[metalsmooth]

Private Sub Form_Load()
Form1.KeyPreview = True
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 97 Or KeyCode = 49 Then Command1_Click
End Sub:لبخند:
دوسا عزیز مشه یه ذره توضیح کامل بدید؟ با تشکر از جوابتون!!:قلب:

[Tasiyan]

دوسا عزیز مشه یه ذره توضیح کامل بدید؟ با تشکر از جوابتون!!:قلب:
دوست عزيز فكر كنم همه چيز مشخصه ، كدوم قسمت متوجه نشديد؟

كد 97 براي كليد 1 بالاي صفحه كليد
كد 49 براي كليد 1 صفحه اعداد
وقتي كليد 1 زده شد كامند 1 ماشين حسابتون كه مثلا 1 هست كليك خورده و عدد 1 رو روي صفحه ظاهر ميكنه
از اين ساده تر نميشه :قهقهه:

[metalsmooth]

دوست عزيز فكر كنم همه چيز مشخصه ، كدوم قسمت متوجه نشديد؟

كد 97 براي كليد 1 بالاي صفحه كليد
كد 49 براي كليد 1 صفحه اعداد
وقتي كليد 1 زده شد كامند 1 ماشين حسابتون كه مثلا 1 هست كليك خورده و عدد 1 رو روي صفحه ظاهر ميكنه
از اين ساده تر نميشه :قهقهه:
اخه مشکل اینکه کدها رو نمی دونم یعنی اینکه الان کد 97 ماله 1 ماله بالا صفحه کلید ولی 2 و 3 4 چی؟

[Tasiyan]

Key0 Through Key9 Are the Same as Their ASCII Equivalents: '0' Through '9
Constant Value Description
vbKey0 48 0 key
vbKey1 49 1 key
vbKey2 50 2 key
vbKey3 51 3 key
vbKey4 52 4 key
vbKey5 53 5 key
vbKey6 54 6 key
vbKey7 55 7 key
vbKey8 56 8 key
vbKey9 57 9 key


Keys on the Numeric Keypad
Constant Value Description
vbKeyNumpad0 96 0 key
vbKeyNumpad1 97 1 key
vbKeyNumpad2 98 2 key
vbKeyNumpad3 99 3 key
vbKeyNumpad4 100 4 key
vbKeyNumpad5 101 5 key
vbKeyNumpad6 102 6 key
vbKeyNumpad7 103 7 key
vbKeyNumpad8 104 8 key
vbKeyNumpad9 105 9 key
vbKeyMultiply 106 MULTIPLICATION SIGN (*) key
vbKeyAdd 107 PLUS SIGN (+) key
vbKeySeparator 108 ENTER (keypad) key
vbKeySubtract 109 MINUS SIGN (-) key
vbKeyDecimal 110 DECIMAL POINT(.) key
vbKeyDivide 111 DIVISION SIGN (/) key

دوست عزيز بد نيست براي حل مشكل خودتون هم جستجو كنيد

:لبخند:

[metalsmooth]

باز هم ممنون ولی من جایی این و پیدا نکردم میشه یه سورس که از این خاصیت استفاده کرده برام بزاری ممنون راستی نظرت درباره برنامم چیه؟

[Tasiyan]

پيشنهاد:دوست عزيز قوانين سايت رو مطالعه كن
http://barnamenevis.org/forum/showthread.php?t=51814
تا همين جا هم از قوانين پيروي نكردم ، چون شما كاربر جديدي هستيد اين اطلاعات رو براتون گزاشتم

موفق باشيد

[metalsmooth]

دوست عزیز همه این قوانین من خوندم گفتم کلی تو اینترنت جستجو کردم ولی نتایجی پیددا کردم برای C++ بود و نه vb خب اگر این سوال تکراری است لینک جایی که پاسخ دادند به موضوع بهم بگید که ما اونجا بریم دیگه همین بعدم شما قوانین اینجا رو که زیر پا نگذاشتید:گریه: