+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : أوامر الماوس - معرفة المكان ، وارسال إلى موقع جديد (/showthread.php?tid=5806)
أوامر الماوس - معرفة المكان ، وارسال إلى موقع جديد - RaggiTech - 17-10-12
كاتب الموضوع : AhmedEssawy
تعتمد الفكرة على عمل نوع اسمه POINTAPI وهو متغير مركب من قيمتين x,y للنقطة .وبعد ذلك يوفر لنا الويندوز الدالتين : SetCursorPos و GetCursorPos ضمن المكتبة user32 وهما ما سوف نستخدمهما بكل بساطة .
الأوامر التالية نضيفها في موديول :
كود :
Public Type POINTAPI
x As Long
y As Long
End Type
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Longكود :
Dim POINT As POINTAPI
Dim result As Long
result = GetCursorPos(POINT)
Text1.text = "على محور السينات =" & POINT.x
Text2.text = "على محور الصادات=" & POINT.y*** تحريك الماوس مسافة معينة :
كود :
Dim x As Long
Dim y As Long
Dim result As Long
x = Val(Text1.Text)
y = Val(Text2.Text)
result = SetCursorPos(x, y)