بدست آوردن مختصات عکس

[m.estreji]

سلام خدمت همه استاتید
من یه image دارم میخوام مختصات 5 نقطه از اون رو بدست بیارم
بالا راست - پایین راست - بالا چپ - پایین چپ - مرکز
ممنون میشم اگر کحسی راهنمایی کنه

[امين اسماعيلي]

با درود
میتونین از کد زیر استفاده کنین اما من فقط نمونه ای گذاشتم ریتمش همین باید باشه

Private Sub CommandButton1_Click()
a = Image1.Left
b = Image1.Top
c = Me.Height - (Image1.Top + Image1.Height)
d = Me.Width - (Image1.Left + Image1.Width)
MsgBox "Left=" & a & "  Top=" & b & "  Bottom=" & c & "  Right=" & d
End Sub

me همون یوزر فرمتون هست که به جای me.height میتونین از اندازه داخلیش هم دقیق تر استفاده کنین me.InsideHeight , همچنین به جای width از me.InsideWidth استفااده کنین

Private Sub CommandButton1_Click()
a = Image1.Left
b = Image1.Top
c = Me.InsideHeight - (Image1.Top + Image1.Height)
d = Me.InsideWidth - (Image1.Left + Image1.Width)
MsgBox "Left=" & a & "  Top=" & b & "  Bottom=" & c & "  Right=" & d
End Sub

[~M*E*H*D*I~]

ببین همچین ایده ای مشکلتو حل میکنه?

[Amir Ghasemiyan]

سلام خدمت همه استاتید
من یه image دارم میخوام مختصات 5 نقطه از اون رو بدست بیارم
بالا راست - پایین راست - بالا چپ - پایین چپ - مرکز
ممنون میشم اگر کحسی راهنمایی کنه

سلام دوست عزيز
من يه نرم افزار با راهنماش بهتون معرفي ميكنم كه كارش بدست آوردن مختصات نقاط مختلف در عكسه. اميدوارم براتون مفيد باشه

http://www.iran-eng.com/showthread.p...B1%D9%87%D8%A7

[امين اسماعيلي]

میبخشید من منظورتونو درست متوجه نشدم. شرمنده - جواب من موقعیت خود عکس بود . اما خوب اگر یه تقسیم به 2 انجام بدیم تو راحت این مورد با داشتن اونچه که بالا نوشتم امکان داره .خوب یعنی مثلا بالا چپ که همون طول چپ رو داره و تاپ اصطلاحا . بالا راست طول راست و تاپ از بالا (یا ته + طول خود عکس)............
میشه بگین این مختصات رو دقیقا از کدوم گوشه فرم باید داشته باشین. چون یه بازی ریاضی دیگه که با 4 تا بالای میشه بدست اورد

بعد این عکس تو یوزر فرم ه یا تو خود شیت قاطی کردم رفت پی کارش

[m.estreji]

آقا مهدی از شما ممنونم بابت پاسخ خوبتون همچنین از آقای امین اسماعیلی
سوالم رو تو این عکس مشخص کردم اون جاهایی که علامت زده شده رو میخوام مختصاتش رو بدست بیارم
البته این عکس تو یه فرممه و از ایمیج استفاده کردم

[امين اسماعيلي]

با دزود
خوب من برات با توجه به اینکه مثلا نقطه صفر وصفر گوشه چپ پایین فرم در نظر گرفته بشه مینویسم . مثل مبدا مختصات
مشکلی نداری با این قضیه

[امين اسماعيلي]

با درود - اینم با در نظر گرفتن مبدا مختصات از گوشه چپ و پایین فرم (نقطه صفر و صفر ) - b و d هم الان اظافین ولی خوب میشود با کمک اونها هم نوشت که اگر این راه که من نوشتم مد نظرت بود میخوام با کمک اون دو تا شما برام بنویسی . حتمانا

Private Sub CommandButton1_Click()
a = Image1.Left
'b = Image1.Top
c = Me.InsideHeight - (Image1.Top + Image1.Height)
'd = Me.InsideWidth - (Image1.Left + Image1.Width)

MsgBox "left and down=" & "(" & a & "," & c & ")" & "  " & "Right and down=" & "(" & a + Image1.Width & "," & c & ")" & "  " & "Left and Up=" & "(" & a & "," & c + Image1.Height & ")" & "  " & "Right and Up=" & "(" & a + Image1.Width & "," & c + Image1.Height & ")" & "  " & "Center=" & "(" & a + (Image1.Width / 2) & "," & c + (Image1.Height / 2) & ")"




End Sub