ورود

نسخه کامل مشاهده نسخه کامل : فرمان چپ کلیک موس


babak_beiknejat
30-09-2007, 17:42
ممنون میشم اگه کسی دستورapi در مورد چپ کلیک موس رو بهم بگه
باز هم متشکرم:41:
Payman_62
30-09-2007, 23:55
سلام.
Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
majj
01-10-2007, 08:54
Private Declare Function SwapMouseButton Lib "user32" Alias "SwapMouseButton" (ByVal bSwap As Long) As Long

تغییر کلیک چپ و راست موس
babak_beiknejat
01-10-2007, 13:22
سپاسگزارم.:46:
 
سلام.
Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
lizbazar
06-10-2007, 18:27
واه این که بفهمی کلیک چپ زدنه شده یا نه میتونی از تابع 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
08-10-2007, 13:12
دستوری می خوام که مثلا با استفاده از یک تایمر هر 20 ثانیه عمل چپ کلیک رو انجام بشه.
از توجه تون بسیار متشکرم.
babak_beiknejat
08-10-2007, 13:21
دستوری می خوام که مثلا با استفاده از یک تایمر هر 20 ثانیه عمل چپ کلیک رو انجام بشه.
از توجه تون بسیار متشکرم.
lizbazar
09-10-2007, 06:52
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
09-10-2007, 13:44
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


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

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