ورود

View Full Version : پرش ماوس



saber187518
شنبه 08 خرداد 1389, 12:20 عصر
با سلام
دوستان من با استفاده از رویداد mousedown مختصات کلیک شدن بر روی فرم رو بدست میارم.
و تعیین میکنم که ماوس بعد از mouseup مقداری به سمت بالا مثلا 10 تا از مکان فعلی کم میکنم و 10 تا هم به سمت چپ حرکت کنه.
اما مشکلی که پیش میاد اینه که ماوس میپره و میره یه جای دیگه.
چکار کنممممممممممممممممممممممم م:عصبانی++::اشتباه::عصبانی++:
لطفا کمک کنید:تشویق:

مهران رسا
شنبه 08 خرداد 1389, 12:32 عصر
اما مشکلی که پیش میاد اینه که ماوس میپره و میره یه جای دیگه.کجا میره ؟ بد نیست کدی که نوشتید رو قرار بدید.

saber187518
شنبه 08 خرداد 1389, 12:48 عصر
با سلام
اینم کدی که مینویسم.


Private Sub Image2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
SetCursorPos X - 10, Y - 10
End Sub

xxxxx_xxxxx
شنبه 08 خرداد 1389, 20:20 عصر
سلام،
به این خاطر که مختصاتی که شما توی MouseDown ذخیره میکنید، برحسب محیط همون شئ هست. (Image2) ولی بعد که با SetCursorPos مختصات جدید رو اعمال میکنید، بر حسب محیط کل صفحه نمایش هست.
برای رفع مشکل، مختصات موس رو با تابع GetCursorPos بدست بیارید.