معرفي يك كليد خاص به برنامه

[zer0tent]

با سلام من مي خواهم نحوه معرفي يك كليد كه مثلا اگه اون كليد را زدي برنامه شروع به كار كنه را برام توضيح بدهيد مثلا اگر كليد c يا اسپيس يا اينتر را زد برنامه پرينت بدهد

[Di Di]

بايد در واقعه KeyPress فرمتون اين عمل رو تعريف كنيد. به نحوي كه با فشرده شدن كليد خاصي ، عمليات مورد نظر شما انجام شود. براي نمونه در كد زير چنانچه كليد Enter‌را فشار دهيد برنامه خاتمه پيدا مي كند.

کد:

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then End
End Sub

[Darg]

بايد در واقعه KeyPress فرمتون اين عمل رو تعريف كنيد. به نحوي كه با فشرده شدن كليد خاصي ، عمليات مورد نظر شما انجام شود. براي نمونه در كد زير چنانچه كليد Enter‌را فشار دهيد برنامه خاتمه پيدا مي كند.

کد:

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then End
End Sub

درسته
فقط با اجازه آقا Di Di یک تغییر کوچیک تو کدش دادم:

کد:

Private Sub Form_KeyPress(KeyAscii As Integer)
'13 = vbKeyReturn
If KeyAscii = vbKeyReturn Then End
End Sub

[HoseinVig]

سلام
اگه بخایم خارج از فرم این کارو بکونیم چی؟
یعنی فرم پنهانه میخواهیم به فرض مثال با زدن ctrl+k فرم ظاهر بشه...

[xsalamx]

سلام

دوستان قبلا در این مورد به بنده کمک کردن این هم جواب شما:
http://forum.iranled.com/attachment.php?aid=838
برای اطالاعات بیشتر نسبت به این موضوع به آدرس زیر مراجعه کنید
http://forum.iranled.com/showthread.php?tid=7193&page=1
برای مبتدی هایی مثل خودم:
با زدن دکمه ترکیبی ALT+Z برنامه نمایان می شه.
فقط باید برای خروج یه دکمه بزاری و کد زیر رو وارد کنید
me.hide
برای چی باید این کد رو وارد کنیم:
تا با زدن دکمه خروج از برنامه خارج نشیم فقط فرم مخفی بشه تا بعدا بتونیم دوباره فراخانی کنیم(این رو برای مبتدی هایی مثل خودم گفتم نه به شما اساتیدکه خودتون این ها رو یادم دادید)

خدا حافظ