مختصات جاری ماوس

جهت بدست آوردن مختصات ماوس باید از توابع API استفاده کنیم.(نحوه کارکردن با توابع API  قبل آموزش داده شده است.)

 ابتداتابع GetCursorPos را از توابع API فراخوانی کنید سپس کد زیر را در برنامه بصورت روبرو قرار دهید:

Private Type POINTAPI

 X as long

Y as long

End Type

در این 2 متغیر مختصات ستون و سطر جاری ذخیره می شود ؛ حال کد زیر رادر رویداد Form_MouseMove  قرار دهید:

Dim Pt as POINTAPI 

GetCursorPos Pt

Me.CurrentX=0

Me.CurrentY=0

Me.Cls

Label1.Caption=Str$(Pt.X)            ‘  x position

Label2.Caption=Str$(Pt.Y)            ‘ y position

حال اگر می خواهید مختصات خارج از فرم را همنمایش دهید باید تمام کدهای بالا را به یک تایمر انتقال دهید سپس تابع SetCapture  را هم از توابع API فراخوانی کنید سپس در انتهای کد موجوددر تایمر دستور SetCaptureMe.hwnd را قرار دهید.

Interval  تایمر را برابر 20 و خاصیت Enabled آن را فعال کنید.