چطوری می تونم توی VB.net 2005 قسمتی از یه عکس ، مثلا از نقطه 0 . 0 به اندازه 100 پیکسل در 100 پیکسل رو بگیرم

سلام دوستای گله ، برنامه نویسه ، مهندسه بی کار :31: .


آقا ، شایدم خانم .... من یه سوال فنی دارم ، لطفا کمکم کنین .


چطوری می تونم توی VB.net 2005 قسمتی از یه عکس ، مثلا از نقطه 0 . 0 به اندازه 100 پیکسل در 100 پیکسل رو بگیرم و تو یه متغیر بریزم ؟؟؟


==================== توضیحات تکمیلی==============

( برای بازیه پازل می خوام )


پیشاپیش .... مر30 40 50 60

:46::10:

سلام

کد:

---

' Dim ot Using ...
Dim oldimg As System.Drawing.Image = System.Drawing.Image.FromFile("C:\file.png")
 
' Dim or Using ...
Dim newimg As New System.Drawing.Bitmap(100, 100)
Using graph As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(newimg)
            graph.DrawImage(oldimg, 0, 0, 100, 100)
End Using
 
newimg.Save("C:\file2.png", System.Drawing.Imaging.ImageFormat.Png)
 
' newimg.Dispose
' oldimg.Dispose

---

سلام دوست عزیز . مطمعنی کدی که دادی سالمه ؟؟؟


مسیر فایل هارو درست کردم ،


فرمت ذخیره هم با فایلم یکی کردم . ولی در آخر یه فایل میسازه گه فقط یه تصویر سیاه توشه .

سلام
میبخشید کدها را همینجا دستی نوشتم و یک اشتباه کردم.
کد را اصلاح کردم. (همان old پررنگ شده.)
باید تصویر قبلی روی جدید ترسیم شود در حالی که کد اولیه تصویر جدید را روی جدید ترسیم میشد!!!!

دوست عزیز ، بابت کدی که دادی ممنون .

ولی فکر کنم منظورمو درست نرسوندم . من می خوام مثلا اگر تصویر 1000 پیکسل در 10000 پیکسل هست .


از نقطه 0 . 0 به اندازه 100 پیکسل در 100 پیکسل رو ببره . ولی این برنامه شما ، کل عکس اصلی رو به اندازه 100 پیکسل در 100 پیکسل در میاره .

اگه میشه لطف کن ، مشکلمو حل کن

سلام
در مورد برش تصویر باید ابعاد مورد نیاز تصویر اول و ابعاد مقصد داده شود...
(
اگر فقط میبخواهید تصاویر هارد را تغییر سایز بدهید و به اشیای oldimg و newimg نیاز ندارید بهتر است از using استفاده کنید، تا در پایان کار، دو شی مورد نظر نابود شوند و RAM مربوطه هم آزاد شود.

اگر به هر کدام از این اشیا بعد از کد زیر باز نیاز دارید (مثلاً برای نمایش و..)، در مورد آن شی به جای Using از Dim عادی استفاده کنید.
)

کد:

---

Using _
        oldimg As System.Drawing.Image = System.Drawing.Image.FromFile("C:\file.jpg"), _
        newimg As New System.Drawing.Bitmap(100, 100), _
        graph As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(newimg)
 
        Dim rectsource As New System.Drawing.Rectangle(0, 0, 100, 100)
        Dim rectdestin As New System.Drawing.Rectangle(0, 0, 100, 100)
 
        graph.DrawImage(oldimg, rectdestin, rectsource, System.Drawing.GraphicsUnit.Pixel)
 
        newimg.Save("C:\file2.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
End Using

---

موفق باشید.