جواب به فشرد شدن موس

[m2011kh]

قبلا يه سوال پرسيدم در مورد جواب به فشرده شدن كليد هاي كيبرد.
حالا من ميخوام همين كارو با موس انجام بدم لطفا دوستان كمك كنند(حتي در حالت Hide بودن فروم)
متشكرم.:لبخندساده:

[butterfly8528]

سلام دوست عزیز .
یک تایمر بر روی فرم قرار بده و کد های زیر رو بریز داخل فرمت و پروژه رو اجرا کن :
'www.arshamsoft.com

Option Explicit

Private Declare Function GetAsyncKeyState Lib "user32" _
(ByVal vKey As Long) As Integer
Const VK_LBUTTON = &H1
Const VK_RBUTTON = &H2
Const VK_MBUTTON = &H4


Private Sub Form_Load()
Me.AutoRedraw = True
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyState(VK_LBUTTON) Then Cls: Print "Left Click"
If GetAsyncKeyState(VK_RBUTTON) Then Cls: Print "Right Click"
If GetAsyncKeyState(VK_MBUTTON) Then Cls: Print "Middle Click"
End Sub

موفق باشید :لبخندساده:

[m2011kh]

آقا دستتون درد نكنه خيلي كمك كرديد اجرتونو خدا بده:لبخندساده:

[m2011kh]

همه رو متوجه شدم به قير از اين خط
Me.AutoRedraw = True
اگه بگيد مه خوبه اگه هم نگيد عيبي نداره تا همين جا خيلي خيلي كمك كرديد.

[butterfly8528]

سلام دوست عزیز .
خواهش می کنم،وظیفم بود .
Me.AutoRedraw = True باعث میشه که متونی که روی فرم چاپ میشه بر اثر رویداد های مختلف مانند Form_Resize از بین نره،
موفق باشید :لبخندساده: