کار با تصویر

[tabatabaeefar]

سلام دوستان
میخواستم یه برنامه بنویسم که قسمتی از یک تصویر رو توی متغیری از نوع image یا bitmap بریزه.
از کدهای زیر استفاده کردم.




Private G As Graphics
private b As Bitmap
private r1, r2 As Rectangle


b = New Bitmap(Image.FromFile("Pic/1.png"), 200, 200)



G = PictureBox1.CreateGraphics




r1 = New Rectangle(0, 0, b.Width, b.Height)


r2 = New Rectangle(100, 100, 100, 100)



G.DrawImage(b, r1, r2, GraphicsUnit.Pixel)










بخشی از تصویر مورد نظر توی یک PictureBox نمایش داده میشه، اما موفق نشدم تصویر رو از توی PictureBox به متغیر منتقل کنم.
ممنون میشم راهنمایی بفرمایید

[tabatabaeefar]

با استفاده از روش پایین خودم به جواب رسیدم!




Dim bm AsNew Bitmap(intWPic, intHPic)
Dim B As Bitmap = New Bitmap(Image.FromFile("Pic/1.png"), 200, 200)
Dim gr As Graphics = Graphics.FromImage(bm)
Dim R2 As Rectangle = New Rectangle(100,100, 100, 100)
Dim R1 As Rectangle = New Rectangle(0, 0, intWPic, intHPic)


gr.DrawImage(pic, R1, R2, GraphicsUnit.Pixel)




با این روش قسمت مورد نظر تصویر در متغیر bm قرار داده میشه.
موفق باشید.