گرفتن مختصات اشاره گر ماوس در فرم

[one hacker alone]

با یادخدا
ماه رمضان مبارک انشاءالله که سعی کنیم روزه و نمازهامون مورد قبول خدا باشه

من میخواستم بدونم چجوری میتونم مختصات ماوس رو در فرم داشته باشم مثل نوار status در بعضی برنامه ها که با جابجا شدن مختصات رو آنی نشون میده؟

[IamOverlord]

سلام دوست عزیز،
این جا بخش مرتبط با بانک های اطلاعاتی در VB6 هست.
ولی برای این که مختصات اشاره گر Mouse رو در صفحه نمایش به دست بیارید می تونید از این تابع API استفاده کنید:

Private Type POINTAPI
x As Long
y As Long
End Type

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

که با کمک این تابع می تونید مختصات Mouse در Form رو هم به دست بیارید.

[محسن واژدی]

سلام علیکم
اگر فقط میخواهید مختصات موس روی فرم را بدست بیارین، میتوانید از رویداد MouseMove فرم کمک بگیرین، چیزی شبیه دستور زیر:

Private Sub Form_Load()
Me.ScaleMode = vbPixels
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Caption = "(" & X & "," & Y & ")"
End Sub


موفق باشید

[one hacker alone]

ممنون جوابم رو گرفتم
رویداد mousemove فرم کارم رو راه انداخت