PDA

View Full Version : سوال: GetCursorPos



payam_jh
دوشنبه 03 فروردین 1388, 07:42 صبح
سلام.
من از کد استفاده میکنم.


Public Class Form1
Public Structure POINTAPI
Public x As Long
Public y As Long
End Structure

Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (ByRef lpPoint As POINTAPI) As Long

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim objPoint As POINTAPI
GetCursorPos(objPoint)
SetCursorPos(300, 500)

End Sub
End Class

ولی مشکلم اینه که GetCursorPos ظاهرا یه پوینتر بر میگردونه به جای مکان موس. یعنی objPoint.x =1503238554210 هست.
لطفا راهنمایی کنید با چه روشی موقعیت موس رو به دست بیارم.
ضمنا چون با WPF کار میکنم کلاسی برای موس پیدا نکردم.

anooshiran
دوشنبه 03 فروردین 1388, 08:31 صبح
سلام دوست عزيز




Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
Label1.Text = CStr(e.X) & " , " & CStr(e.Y)
End Sub