مشکل با SendKeys

[saeedvir]

سلام

من یه کیبرد مجازی درست کردم

حالا می خواهم که SendKeys را برای کلید هام تعریف کنم
خب !

مثلا برای کلید A


Private Sub A_Click()
SendKeys "a"
End Sub

ولی انگار که کار نمیده !!!

[M.T.P]

درست نوشتی واسه درک بهتر مطلب یه Textbox بزار رو فرمت بعد:



Private Sub A_Click()
Text1.SetFocus
SendKeys "a"
End Sub

[saeedvir]

ولی من می واهم که شبیه On -screen keyboard باشه

[M.T.P]

ولی من می واهم که شبیه On -screen keyboard باشه

خصوصیت keypreview فرم رو true کنید.
تو رویداد keydown فرمتون کداسکی کلید رو گرفته و بر اساس اون کد یک روال خاص رو فرا خوانی کنید مثال:




Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 65 Then
Call A_Click
End If
End Sub

Private Sub A_Click()
SendKeys "a"
End Sub