Scusami sir!
Onestamente dovevo ancora provare!
Non devo utilizzare questo pezzo vero? Perchè con questo taglio l'immagine giusto?
grTmp.DrawImageUnscaledAndClipped(Image2, New Rectangle(-Rect.X, -Rect.Y, bmpTmp.Width + Rect.X, bmpTmp.Height + Rect.Y))
Io per ora ho fatto così:
Dim Image2 As Image = Image.FromFile("C:\nome" & cont & ".bmp")
MsgBox(cont)
Dim bmpTmp = New Bitmap(1024, 1005) 'le immagini sono 1024 x 201 e ne metto 5
Dim grTmp As Graphics = Graphics.FromImage(bmpTmp)
grTmp.DrawImageUnscaledAndClipped(Image2, New Rectangle(-Rect.X, -Rect.Y, bmpTmp.Width + Rect.X, bmpTmp.Height + Rect.Y))
'Dim picture As New PictureBox()
Dim myCanvas As Graphics = Graphics.FromImage(bmpTmp)
PictureBox1.Image = bmpTmp
PictureBox1.Image.Save("PROVA" & cont & ".bmp")
cont = cont + 1
Dovrebbe solo mancarmi la parte in cui inserisco l'immagine alle coordinate!
AGGIORNAMENTO:
Fatto
grTmp.DrawImage(Image2, New Rectangle(0, cont2, bmpTmp.Width, 201))


Rispondi quotando