Dim img As Image = getimage("D:\test.jpg")
Dim bmpOut As new Bitmap(290, 185, PixelFormat.Format24bppRgb) '290为裁剪区域宽度,185为高度
Dim myGraphics As Graphics = Graphics.FromImage(bmpOut)
myGraphics.Clear(Color.White)
myGraphics.DrawImage(img, new Rectangle(0, 0, 290, 185), new Rectangle(270, 100, 290, 185), GraphicsUnit.Pixel) '270为原图需要裁剪的区域的左边距,100为上边距
Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
g.DrawImage(bmpOut,10,10)
加好友 
发短信
Post By：2020/1/18 14:17:00 [只看该作者]
