PDA

View Full Version : سوال: جابجائی اشاره گر موس باکد


nazanin_90
سه شنبه 28 تیر 1390, 20:55 عصر
سلام
باچه کدی میتوان اشاره گرموس را از مکانی به مکان دیگری از فرم انتقال داد ؟
باتشکر
IamOverlord
سه شنبه 28 تیر 1390, 21:14 عصر
مثلا این ماوس رو به مختصات 100 , 100 فرم می بره:
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Private Sub Command1_Click()
x = Me.Left / Screen.TwipsPerPixelX
y = Me.Top / Screen.TwipsPerPixelY
SetCursorPos x + 100, y + 100
End Sub
nazanin_90
چهارشنبه 29 تیر 1390, 09:42 صبح
مثلا این ماوس رو به مختصات 100 , 100 فرم می بره:
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Private Sub Command1_Click()
x = Me.Left / Screen.TwipsPerPixelX
y = Me.Top / Screen.TwipsPerPixelY
SetCursorPos x + 100, y + 100
End Sub

ضمن سلام
میشه خواهش کنم کد فوق با یک نمونه ارائه فرمائید . خودم آن را در یک نمونه بکار بردم که هنگام اجرا ارور داد.
با تشکر
محسن واژدی
چهارشنبه 29 تیر 1390, 10:44 صبح
سلام
کد مشکلی نداشت البته ممکن است خطا بدلیل وجود OptionExplicit و اعلان نشدن متغیرها باشد
کدبالا را در نمونه زیر گذاشته ام بررسی کنید