PDA

View Full Version : تشخيص فشرده شده Key+‍Click



A.Farzin
سه شنبه 23 مهر 1387, 19:36 عصر
تشخيص فشرده شدن Key+‍Click
با سلام
در مورد تشخيص فشرده شدن كليدهاي تركيبي صفحه كليد قبلا صحبت شده
اگر بخواهيم تركيب شدن كليدهاي صفحه كليد را با كليك چپ و يا راست ماوس شناسائي كنيم چه بايد كرد؟
ممنون

r0ot$harp
سه شنبه 23 مهر 1387, 20:56 عصر
تشخيص فشرده شدن Key+‍Click
با سلام
در مورد تشخيص فشرده شدن كليدهاي تركيبي صفحه كليد قبلا صحبت شده
اگر بخواهيم تركيب شدن كليدهاي صفحه كليد را با كليك چپ و يا راست ماوس شناسائي كنيم چه بايد كرد؟
ممنون

دوست عزیز اینم خدمت شما .


Dim State As String

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

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Select Case Button

Case 1
' MsgBox "Left Click"
Case 2
' MsgBox "Right Click"
Case 4
' MsgBox "Center(Delta) Click"

End Select

If State = "" Then Exit Sub
If Button = 1 And State = vbKeyA Then State = "": MsgBox "SA"

End Sub


برای تشخیص کلید چپ موس و حرف A .



باتشکر احسان

hamed aj
سه شنبه 23 مهر 1387, 21:04 عصر
با سلام

دوست عزیز؛

رویداد های ماوس (MouseDown , MouseMove , MouseUp) دارای پارامتری به نام Button هستند که با کنترل این پارامتر می توانید به نتیجه دلخواه تون برسید

مثلاً برای چک کردن اینکه کاربر کلیک چپ کرده یا نه از کد زیر استفاده کنید :





If (Button = 1) Then
MsgBox "Left Click"
End If



موفق باشید

r0ot$harp
سه شنبه 23 مهر 1387, 21:29 عصر
با سلام

دوست عزیز؛

رویداد های ماوس (MouseDown , MouseMove , MouseUp) دارای پارامتری به نام Button هستند که با کنترل این پارامتر می توانید به نتیجه دلخواه تون برسید

مثلاً برای چک کردن اینکه کاربر کلیک چپ کرده یا نه از کد زیر استفاده کنید :





If (Button = 1) Then
MsgBox "Left Click"
End If

موفق باشید


دوست عزیز بهتر نیست به متن سوال ایشون دقت کنید ؟


اگر بخواهيم تركيب شدن كليدهاي صفحه كليد را با كليك چپ و يا راست ماوس شناسائي كنيم چه بايد كرد؟



باتشکر احسان

Pr0grammer
چهارشنبه 24 مهر 1387, 02:46 صبح
شکل کلی رویداد Mouse Down این طوریه :


Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

End Sub


آرگومان Button واسه دکمه ای که فشار داده شده (ماوس) :
1- کلیک چپ
2- کلیک راست
4- برای دکمه وسط

آرگومان Shift هم فشار داده شدن دکمه های Alt ، Ctrl یا Shift (همزمان بارویداد) رو منعکس می کنه:
4= Alt
2= Ctrl
1= Shift

آرگومان های X و Y مکان دقیق ماوس رو هنگام ایجاد این رویداد برمی گردونند.

موفق باشید

ab_ba
سه شنبه 24 دی 1387, 08:37 صبح
اگر بخواهیم خارج از محیط برنامه فشرده شدن کلید وسط ماوس را تشخیص دهیم چه کنیم