تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
أوامر الماوس - معرفة المكان ، وارسال إلى موقع جديد
#1
كاتب الموضوع : 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
حيث يضع موضعه في تيكست 1 وتيكست 2


*** تحريك الماوس مسافة معينة :


كود :
Dim x As Long
Dim y As Long
Dim result As Long
x = Val(Text1.Text)
y = Val(Text2.Text)
result = SetCursorPos(x, y)
حيث يحرك الماوس إلى المنطقة المحددة في تيكست 1 وتيكست 2
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود لحصر الماوس داخل الفورم RaggiTech 0 643 17-10-12, 04:40 PM
آخر رد: RaggiTech
  دالة معرفة نوع القرص + مثال مرفق !!!!!!!!!! RaggiTech 0 646 17-10-12, 03:27 PM
آخر رد: RaggiTech
  معرفة الاجهزة التي تعمل على الشبكة ping + mac address RaggiTech 0 926 17-10-12, 03:24 PM
آخر رد: RaggiTech
  معرفة الاجهزة التي تعمل على الشبكة ping RaggiTech 0 562 17-10-12, 03:23 PM
آخر رد: RaggiTech
  معرفة المساحة الفارغة في القرص -- Api RaggiTech 0 427 17-10-12, 02:54 PM
آخر رد: RaggiTech
  حصر الماوس داخل نطاق معين RaggiTech 0 509 17-10-12, 02:50 PM
آخر رد: RaggiTech
  معرفة لغة العرض الخاصة بنظام التشغيل ويندوز RaggiTech 0 352 17-10-12, 02:24 PM
آخر رد: RaggiTech
  معرفة وعمل Format لرقم هاتف RaggiTech 0 399 17-10-12, 01:09 AM
آخر رد: RaggiTech
  معرفة وجود كرت صوت ملحق بالجهاز أم لا RaggiTech 0 353 17-10-12, 01:09 AM
آخر رد: RaggiTech
  معرفة مستوى الصوت المعرف في الويندوز وتغييره RaggiTech 0 267 17-10-12, 01:09 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم