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

جهت بدست آوردن مختصات ماوس باید از توابع 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 فراخوانی کنید سپس در انتهای کد موجود در تایمر دستور SetCapture Me.hwnd را قرار دهید.

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