[سوال] دروخواست سورس کلید میانبر

[A.EM4D.M]

سلام خدمت دوستان واساتید محترم

درخواست یک سورس ساده رو داشتم که بهش بگیم ، مثلا اگر کلید F رو فشار دادیم به جاش مثلا کلید numpad1 عمل کنه
ممنون میشم کمک کنید

[HamedFaa]

منظورت رو از numpad1 نفهمیدم ولی اگه عدد 1 هست میشه

کد:

Private Sub Form_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) = "f" Or Chr(KeyAscii) = "F" Then Print "1"
End Sub

[sadra0]

می خوای Dota Key بنویسی؟؟ من یه راه حل دارم ولی مشکل اینجاست که تو کاره تایپ مشکل نداره ولی تو بعضی کار ها مشکل ایجاد می کنه چون اول کلیدی که فشردی Send مشه بعدش کلیدی که می خوای Send میشه می تونی با getkeystate که یک API هست وضعیت کلید رو بگیری و با keybd_event یک کلید رو فشار بدی
اگه توضیح بیشتر می خوای بگو

[RAMA2009]

کد:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 97 Then 'a
KeyAscii = 66 'B
End If
End Sub

یا

کد:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 97 Then 'a
KeyAscii = 0
SendKeys "{B 5}" 'BBBBB
End If
End Sub

اگه راجع به دستور SendKeys توضیحات بیشتری میخوای بگو تا برات توضیح بدم