Dim p As WinForm.Painter = e.Form.Controls("Painter1")
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为上边距
myGraphics.Dispose()
bmpOut.Save("E:\问题\123_1.png")
老师，你好，我想不用存而是将剪切的图片在P中显示出来这怎么改，没理清关系
加好友 
发短信
Post By：2020/1/18 12:01:00 [只看该作者]
