zoom کردن عکس

[samira222]

سلام
من به یک مشکلی برخورد کردم
یک عکس توی فرمم دارم مه می خوام براش قابلیت zoom in و zoom out بزارم
برای همین دو تا دکمه گذاشتم برای این کار وقتی کاربر روی دکمه ی zoom in کلیک می کنه و بعدش روی صفحه کلیک می کنه تصویر یک مقداری براش zoom بشه و همینطور برای دکمه ی zoom out
من این کد رو براش نوشتم ولی اشتباهه و خطا میده
PictureBox1.Location.X = x1 + 10
در ضمن x1 مختصات مکانی هست که کاربر کلیک کرده
ممنون می شم راهنماییم کنید
مرسی

[viper2009]

سلام
من به یک مشکلی برخورد کردم
یک عکس توی فرمم دارم مه می خوام براش قابلیت zoom in و zoom out بزارم
برای همین دو تا دکمه گذاشتم برای این کار وقتی کاربر روی دکمه ی zoom in کلیک می کنه و بعدش روی صفحه کلیک می کنه تصویر یک مقداری براش zoom بشه و همینطور برای دکمه ی zoom out
من این کد رو براش نوشتم ولی اشتباهه و خطا میده
PictureBox1.Location.X = x1 + 10
در ضمن x1 مختصات مکانی هست که کاربر کلیک کرده
ممنون می شم راهنماییم کنید
مرسی

این کد هارو امتحان کن
برای زوم کردن

PictureBox1.With = picturebox1.With *2

PictureBox1.Height= picturebox1.Height*2

برای از زوم خارج کردن

PictureBox1.With = picturebox1.With /2

PictureBox1.Height= picturebox1.Height/2

یک شرط هم بزار که با یک بار یا دوبار کلیک کردن دیگه زووم نشه یا بشه

[samira222]

سلام
دستتون درد نکنه تقريبا درست شد
اما دو تا مشکل هست
من مي خوام وقتي کاربر zoomin مي کنه از وسط نقشه zoomبشه در حالي که توي اين حالت ظاهرا از گوشه ی تصویر زوم می شه !! ؟
و یکی هم اینکه چطوری این قابلیت رو بهش بدم که بتونه با کشیدن ماوس تصویر رو جا به جا کنه یعنی ماوس رو به سمت چپ بکشه و تصویر با حرکت ماوس جابهجا بشه منظورم مثل تصویرهای دیگه است مثلا مثل عکس های زوم شده ی خود ویندوز که با ماوس می شه روی تصویر حرکت کرد!!؟
ممنون

[viper2009]

این ضمیمه فکر کنم بکارتون بیاد

[reza1944]

viper2009 جان اين چه نوع زوم عكس هست كه داري به بچه مردم ياد ميدي ميگي بدونيم؟!!!!

[samira222]

سلام
خیلی ممنونم از فایلتون
ولی راستش خیلی حرفه ای بود و من هم مبتدی چیزی ازش سر در نیاوردم
برای همین مجبور شدم از scrol خود فرم استفاده کنم , زیاد بد نشد قابل تحمله
اما حالا یک مشکل دیگه گیر گردم
من دو تا مختصات xوy دارم که توی دو تا textbox ذخیره شده و با زدن یک دکمه عوض می شه یعنی رکوردهاش تغییر می کنه و عقب و جلو میره حالا من یک radiobutton در حالت فعال گذاشتم و می خوام جایی که xوy نشون میدن , radiobutton هم اونجا بره یعنی تو همون مختصات !!
امیدوارم منظورم رو خوب رسونده باشم
ممنون می شم کمکم کنین

[reza1944]

معلومه مي خواي پيمايش يه نقشه رو بنويسي
براي Zoom

Private originalImage As Image = Nothing

Private currentImage As Image = MainImage.Image

Private zoomFactor AsDouble = 1

Private screenImageWidth AsInteger = 0

Private screenImageHeight AsInteger = 0

PrivateSub Zoom(ByVal factor AsDouble)

zoomFactor = factor

Dim sourceBitmap AsNew Bitmap(currentImage)

Dim destBitmap AsNew Bitmap(CInt(sourceBitmap.Width * factor), _

CInt(sourceBitmap.Height * factor))

Dim destGraphic As Graphics = Graphics.FromImage(destBitmap)

destGraphic.DrawImage(sourceBitmap, 0, 0, destBitmap.Width + 1, _

destBitmap.Height + 1)

screenImageWidth = destBitmap.Width

screenImageHeight = destBitmap.Height

'picture box

MainImage.Image = destBitmap

ZoomLabel.Text = "Zoom: " & zoomFactor * 100 & "%"

EndSub

از radiobutton.location.x و radiobutton.location.y استفاده كن يا

Radiobutton.loaction=new point(x,y)

[samira222]

سلام
ممنون از کمک هاتون
من کد شما رو وارد کردم اما نمی دونم چرا همش رو خطا می گیره !!؟
حالا می خوام تصویرم رو طوری zoomin و zoomout کنم که مثلا مختصات نقطه ی x در تصویر زوم نشده برابر با مختصات x در تصویر زوم شده باشه یا حداقل یک نسبتی داشته باشن و من بتونم مختصات x رو در هر دو تصویر زوم شده و نشده یکی ببینم , نمی دونم تونستم منظورم رو برسونم یا نه !!؟ (اگه تصویر رو همون نقشه در نظر بگیرین فکر کنم بهتر بتونین بفهمین مشکل من کجاست)
من چند وقته گیر همین مساله شدم , ممنون می شم اگه کمکم کنین

[mdshmdsh]

آقا دمت گرم... سورست عالی بود