فرمان چپ کلیک موس

[babak_beiknejat]

ممنون میشم اگه کسی دستورapi در مورد چپ کلیک موس رو بهم بگه
باز هم متشکرم

[Payman_62]

سلام.
Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer

[majj]

Private Declare Function SwapMouseButton Lib "user32" Alias "SwapMouseButton" (ByVal bSwap As Long) As Long

تغییر کلیک چپ و راست موس

[babak_beiknejat]

سپاسگزارم.
 

سلام.
Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer

[lizbazar]

واه این که بفهمی کلیک چپ زدنه شده یا نه میتونی از تابع api که دوست عزیزمون معرفی کردند استفاده کنی . اینم سورسش :

Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer
Private Sub Timer1_Timer()
keystate = GetAsyncKeyState(vbLeftButton)
If keystate And &H8000 Then
Label1.Caption "Pressed Left Button Mouse"
Else
Label1.Caption "Not Pressed LEft Button Mouse"
End If
End Sub

موفق باشی .

[babak_beiknejat]

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

[babak_beiknejat]

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

[lizbazar]

Private Const M_MOVE = &H1
Private Const LEFTDOWN = &H2
Private Const LEFTUP = &H4
Private Const RIGHTDOWN = &H8
Private Const RIGHTUP = &H10
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)



Private Sub Timer1_Timer()

mouse_event(LEFTDOWN + LEFTUP, p.X, p.Y, 0, 0)

End Sub


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

[babak_beiknejat]

Private Const M_MOVE = &H1
Private Const LEFTDOWN = &H2
Private Const LEFTUP = &H4
Private Const RIGHTDOWN = &H8
Private Const RIGHTUP = &H10
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)



Private Sub Timer1_Timer()

mouse_event(LEFTDOWN + LEFTUP, p.X, p.Y, 0, 0)

End Sub


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

ممنون ،ممنون خیلی متشکرم.