Obrázek ve třídě Bitmap se dá z PictureBoxu vytáhnout přes vlastnost Image, potom s ním můžete dál pracovat. Z metod doporučuji Graphics.DrawImageUnscaledAndClipped:
Public Function Vyrizni(ByVal pict As PictureBox) As Bitmap
Dim b As Bitmap = pict.Image.Clone()
Dim b2 As New Bitmap(128, 128)
Dim g As Graphics = Graphics.FromImage(b2)
g.DrawImageUnscaledAndClipped(b, New Rectangle(0, 0, 128, 128))
g.Dispose()
Return b2
End Function
|