رويداد كليك

[adib202]

دوستان،رويداد كليك موس رو توي ويندوز مي خوام.هر جاي محيط ويندوز.اگه كسي ميتونه كمك كنه.

[mahmood744]

این هم دو تا سورس توپ

81185

81184

موفق باشی :قلب:

[mahmood744]

این هم یک برنامه توپ دیگه
حالش رو ببرین

81187
:متعجب:

[IamOverlord]

دوستان،رويداد كليك موس رو توي ويندوز مي خوام.هر جاي محيط ويندوز.اگه كسي ميتونه كمك كنه.

www.codeproject.com/Articles/29726/Detect-System-Wide-Mouse-Events (http://www.codeproject.com/Articles/29726/Detect-System-Wide-Mouse-Events)

[just4froum]

بفرماييد اينم دقيقا چيزي كه مي خواي

فقط يك تايمر و دوتا تكست باكس بگذار روي فرمت


Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Type POINTAPI
X As Long
Y As Long
End Type

Dim Pos As POINTAPI

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyLButton) <> 0 Then Call Fill_Pos
End Sub

Private Sub Fill_Pos()
GetCursorPos Pos
Text1.Text = Pos.X
Text2.Text = Pos.Y
End Sub