تعریف یک دکمه و موس در برنامه

چطور می شه در وی بی دستوری نوشت که مثلا وقتی فلان برنامه پنجره اش بازاست و فعال
است وقتی یکی از دکمه های صفحه کلید به همراه موس فشرده شد یک کاری انجام بشه مثلا یک متن در یک پنجره ظاهر شود مهم این است که
در یک برنامه قابل اجرا طوری پیاده شود که اگر موس به همراه مثلا کلید اف چهار فشرده شد درست شود

سلام.

نقل قول:

---

مثلا وقتی فلان برنامه پنجره اش بازاست و فعال است

---

اگر منظورتون فرمیه که تو برنامه خودتون نوشتید اینجوریه وگرنه نمیدونم:41::
تویه فرمی که می خواید این عمل (موس و کلیک) انجام بشه باید یک متغیر برای فشرده شدن کلید(البته اگر کلید هاتون غیر از شیفت و آلت و کنترل هستند) تعریف کنید که با فشردن کلید مقدار رو بگیره و با برداشتنش مقدار رو از دست بده.
ولی به نظر من بهتره به جای استفاده از کلیدی مثل اف4 از کلید های Ctrl , Alt ,Shift به صورت زیر استفاده کنید:

کد:

---

Private Sub Form1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton And Shift = 7 Then MsgBox "OK"
End Sub

---

در مورد عبارت Shift: این متغیر وضعیت سه دکمه ای را که گفتم مشخص می کند که مقدار آنها به صورت زیر است:
Shift = 1
Ctrl = 2
Alt = 4
البته همونطور که تو مثال می بینید میتوانند به صورت ترکیبی ظاهر شوند یعنی Shift = 6 به این معنیه که دو دکمه کنترل و آلت همزمان فشرده شده اند.

باز هم اگر مشکلی بود در خدمتم.

تا بعد یا حق ...

اولین کار در قسمت جنرال یک متغیر از نوع Boolean تعریف میکنید :

کد:

---

Dim a As Boolean

---

بعد برای فرم مورد نظر در رویداد KEY DOWN باید a رو مساوی با True بذاری :

کد:

---

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
a = true
End Sub

---

و بعد ، برای همان فرم در رویداد MouseDown کد زیر را مینویسید :

کد:

---

If Button = 1 And a = True Then
Print "TEST"
End If
a = False

---

* با اینکار برنامه ، با فشار دادن هر کلید از کیبورد و ماوس ، متن TEST رو فرم چاپ میشه !

----

معذرت ... باز هم بعد از فرستادن پست خودم پست مرتضی رو دیدم ! ( یعنی قبل از اون صفحه رو Refresh نکرده بودم )

با تشکر از راهنماییتان . من می خوام روی هر برنامه ای که الان پنجره اش فعال است این کار بشه نه
فقط برنامه خودم .