ورود

View Full Version : سوال : درخواست دستور برعکس Getkeypress



CrazyMEmber
دوشنبه 01 مهر 1392, 15:34 عصر
سلام دوستان
من هر چی گشتم فقط مطلب در این مورد پیدا کردم که چطور به برنامه دستور بدیم اگر فلان دکمه زده شد فلان کار رو بکن ولی من بر عکس این رو می خوام یعنی می خوام وقتی یه کاری انجام شد اون دکمه زده بشه توسط برنامه
مثلا :

Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer

If GetKeyPress(vbKeyF11) Then
text1.text = Test
End If



کد بالا میگه وقتی کلید f11 زده شد text1.text بشه test حالا من می خوام کدی به برنامه بدم که برعکس این باشه یعنی وقتی text1.text برابر test بود کلید f11 زده بشه نمی دونم متوجه میشید منظورمو ممنون میشه کمکم کنید .
راستی می خوام مثل getkeypress فوکوسش روی فرم فقط نباشه یعنی اگر برنامه باز بود و فوکوس رو هر چی بود ایک دستور کار کنه

علیرضا.ا
سه شنبه 02 مهر 1392, 23:23 عصر
فک کنم منظورت اینجوریه:

if text1.text="test" then
{F11}
end if

siyn71
سه شنبه 02 مهر 1392, 23:33 عصر
از تابع سند کی استفاده کن..برای مثال فرستادن کلید اینتر
SendKeys "{Enter}"

یا فرستادن کلید کنترل سی (کپی کردن)
SendKeys ("^(c)")

فرستادن کنترل وی(پیس کردن)
SendKeys ("^(v)")

-------------------------------------------
کی اسکی کلید کنترل ^ هستش....کی اسکی هارو از نت در بیارو درست کن

علیرضا.ا
چهارشنبه 03 مهر 1392, 11:33 صبح
از تابع سند کی استفاده کن..برای مثال فرستادن کلید اینتر
SendKeys "{Enter}"

یا فرستادن کلید کنترل سی (کپی کردن)
SendKeys ("^(c)")

فرستادن کنترل وی(پیس کردن)
SendKeys ("^(v)")

-------------------------------------------
کی اسکی کلید کنترل ^ هستش....کی اسکی هارو از نت در بیارو درست کن

{F11} هم برای کلید f11 هست:)