تحديد منطقة من رسمة

عندي لك حلان

1 أن تحدد إحداثيات منطقة الضغط على الصورة وإستخدم الحدث

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

وذلك بدلالة قيمة x,y

2 الطريقة الاخرى(من إختراعي) هي ضع أداة ليبل على الصورة في المكان المناسب وإجعلها شفافةBackstyle=0 والCaption إجعله فارغ وضع الاوامر البرمجية على حدث Click على هذا الليبل الغير مرئي للمستخدم

يوجد طرق أخرى متقدمة في حالة عدم إنتظام شكل المنطقة المرغوبة

تحياتي

شكراً لك عزيزي oaob على محاولتك لكني:

كنت أضع أداة image بدلاً من Label وهو لا يؤثر شيئاً أما الأنا في برنامجي يقوم برسم خطوط على الـ Picture في الحدث Mouse Move لذلك إذا وضعت أداة Label أو Image لن ينفذ الحدث Mouse Move لذلك حبذا لو تكرمت وشرحت لي كيف يمكنني تحديد إحداثيات المنطقة.

مشكور أخي oaob

المثال أدناة يبين لك الاحداثي السيني والصادي لنقطة الضغط على الصورة ويظهر لك في أي جزء من الصورة

تمت عملية الضغط بالماوس

ولتطبيقة ضع أداة picture وأجعل scale mode=3 للصورة والفورم

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Print "x="; X; " "; "y="; Y

If X > Picture1.Width / 2 And Y < Picture1.Height / 2 Then

MsgBox "أنت الآن في الربع العلوي الأيمن من الصورة"

End If

If X > Picture1.Width / 2 And Y > Picture1.Height / 2 Then

MsgBox "أنت الآن في الربع السفلي الأيمن من الصورة"

End If

If X < Picture1.Width / 2 And Y < Picture1.Height / 2 Then

MsgBox "أنت الآن في الربع العلوي الأيسر من الصورة"

End If

If X < Picture1.Width / 2 And Y > Picture1.Height / 2 Then

MsgBox "أنت الآن في الربع السفلي الأيسر من الصورة"

End If

End Sub

شكراً كثيييييييير لك عزيزي oaob الله يوفقك ويعطيك العافية