مشکل با SendKeys

[saeedvir]

سلام

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

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

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

کد:

Private Sub A_Click()
SendKeys "a"
End Sub

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

[HoseinVig]

سلام
این تابع کلید رو به صفحه ای که فوکوس داره میفرسته و شما هم زمانی که کلیک میکنید روی دکمه ای که این دستور توی اونه فرم خودتون دارای فوکوس هاست... بنا بر این قبل از این دستور فوکوس رو بدین به فرم مورد نظر....

[bmw_]

سلام دوست عزیز. شما ابتدا می بایست با تابع findwindow فوکوس را به برنامه ی مورد نظر بدهید و بعد با استفاده از تابع sendkeys فوکوس را به برنامه انتقال دهید. کد تابع findwindow رو براتون Declare کردم . این خط کد رو در برنامه در قسمت General قرار دهید بعد اون رو به متغیری که قبلا با نوع long به وی بی شناسوندید نصبت بده.


code:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long