احداثيات نقطة

فى حدث Mouse_Down

ستجد الاحداثى X وهو الافقى والاحداثى Y الراسى وهذه الاحداثيات مأخوذه بالنسبه للنقطه العليا ناحية اليسار لخانة الصوره وليس للفورم

عند تكبير الصورة

او وضع الصورة في الوسط هل ستتغير الاحداثيات

وشكر

الاحداثيات تكون مأخوذه بالنسبه لخانة الصوره وليس للصوره نفسها

بصراحة لم افهم مقصودك

ارجو التوضيح

Up

الاخ الدولار مامعنى كلمة Up

أخى سوبر ما أقصده ان الاحداثى X والاحداثى Y نحصل عليهما حتى ولو لم يكن هناك صوره

فى خانة الصوره فعندما تضع صوره فى خانة الصوره فإن الفيجول بيسك لايعلم عنها شيئ سوى مسارها ولكن عندما تضغط بالماوس على الصوره فأنت تضغط فى خانه الصوره وهذه هى الاحداثيات التى ستحصل عليها

اشكر اخي رمضان

اذا رسمت دائرة على هذه الصورة بواسطة الكود

كيف يمكنني ان اجعل مؤشر الماوس يتغير عند مروره فوق هذه الدائرة

وشكر

بفرض ان إحداثيات مركز الدائره هما X1,Y1 ونصف القطر هو R فيكون الكود بالصوره الاتيه

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

    If X < X1 + R And X > X1 - R And Y > Y1 - R And Y < Y1 + R Then
        MousePointer = 99
        MouseIcon = LoadPicture("IcoPath")
    End If
    'هو مسار الشكل الذى ترغب أن "IcoPath" حيث
    'يكون عليه شكل الماوس عند مرورها على الدائره
    ' وأرجو أن تجرب الكود وتخيرنى لأنى لم أجربه

End Sub

للاسف لم يعمل حيث غير المؤشر على جميع الصورة وليس على الدئرة

وشكر

مش ممكن أرجو أن تضع الكود الذى إستخدمته

كود رسم الدئرة وفق للاحداثيات

Me.Circle (x, y), 45, vbRed, b

الملف الذي تحاول إرفاقه حجمه كبير جداً .. الحجم الأقصى المسموح به هو 1 بايت.

-----------------------

هل يوجد ملف حجمه 1 بايت

-----------------------

شكرا للأخ رمضان /

نزل الملف

سوف اجر ب واخبركم النتيجة