ايران ويج

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

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

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

کد: 
Private Sub Form_KeyPress(KeyAscii As Integer)

If Chr(KeyAscii) = "f" Or Chr(KeyAscii) = "F" Then Print "1"

End Sub

می خوای Dota Key بنویسی؟؟ Biggrin

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

کد: 
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 توضیحات بیشتری میخوای بگو تا برات توضیح بدم Wink

A.EM4D.M

HamedFaa

sadra0

RAMA2009