mouse up

[aleas2]

سلام خسته نباشید دوستان فرض کنید کلید سمت چپ ماوس پایین نگه داشتین یا به اصطلاح mosue down هسته که پایین نگه داشتیم
کدی که تو vb6 باعث میشه بدون اینکه دستمو از روی ماوس بردارم mosue up بشه چی؟

انشالا متوجه منظورم شده باشین

[Mori Bone]

سلام. خب توی موس داون تابع موس آپ رو صدا بزن

[aleas2]

مشکل اینه روی خود فرم برنامه نمیخوام اینکار کنم میخوام
میخوام فراخوانی ماوس آپ از طریق تایمر انجام بدم


ماوس روی هر مختصاتی هست ماوس اپ بشه

[Mori Bone]

مشکل اینه روی خود فرم برنامه نمیخوام اینکار کنم میخوام
میخوام فراخوانی ماوس آپ از طریق تایمر انجام بدم


ماوس روی هر مختصاتی هست ماوس اپ بشه

از API های ویندوز استفاده کنید خو. تو نت ریخته

[aleas2]

میشه شما بزرگواری کنید بذارید والا بنده پیدا نمیکنم هر چی میبینم مربوط به mouse down هسته

[Mori Bone]

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=47634&lngWId=1
http://www.xtremevbtalk.com/showthread.php?t=123910

من چون وی بی نداشتم نتونستم تست کنم. شرمنده:اشتباه:

[aleas2]

این کد راه انداخت کارمو عزیز ممنون مرسی



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 Declare Function GetMessageExtraInfo Lib "user32" () As Long

Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Private Type POINTAPI
x As Long
y As Long
End Type

sub MoveAndClick(p as POINTAPI)


'move the mouse
mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_MOVE, p.x, p.y, 0, GetMessageExtraInfo()


'click the left button
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, GetMessageExtraInfo()

mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, GetMessageExtraInfo()

end sub