اخوتي الكرام المطلوب تحديد البعد بين نقطتين يتم تحديدهما بالنقر بالماوس على سطح المكتب . يعني نحدد النقطة الاولى بالماوس و من ثم نحدد النقطة الثانية ايضا بالماوس و من ثم ننقر زر ما ليعطينا البعد بين النقطتين المحدتتين. و شكرا اخوتي .
اعطاء بعد بين نقطتين محددتين بالنقر على سطح الفورم!
مغلق
لو عايز تحدد النقط من عل الشاشة وليس الفورم فقط
ممكن تستخدم دوال api
وهى
Private Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
dim sam as pointapi
والكود يكون
getcursorpos sam
sam.x
sam.y
وممكن تضربهم بعد كدا X بيكسل تويب pixelTwip للشاشة => screen.TwipsPerPixelX او screen.TwipsPerPixely على حسب الاحداثيات
وهنا تقدر تعمل اى عملية مقارنة points اتمنى اكون افيدتك
وسلام
الشكر كل الشكر لكم اخوتي لتعاونكم.
asdjskadasdaAsdASasd
هذا الموضوع مغلق.