在vb.net中裁剪图像

时间:2018-09-26 11:24:03

标签: vb.net image

我正在尝试裁切图像并将裁切后的部分另存为单独的图像,但是由于裁切后的图像显示空白屏幕,我无法执行操作。

PFA文件。

Original Image Cropped Image

下面是我的代码段:

Dim bmp As Image = pdf.SaveAsImage(pageIndex)
Dim Bmp1 As Bitmap = New Bitmap(bmp)
zoneLeft = Convert.ToInt32((ZonesItems.Item(ClickedZoneCount - 1).ZoneArea.Left * 100) / ZoomPercent)
            zoneWidth = Convert.ToInt32((ZonesItems.Item(ClickedZoneCount - 1).ZoneArea.Width * 100) / ZoomPercent)
            zoneTop = Convert.ToInt32((ZonesItems.Item(ClickedZoneCount - 1).ZoneArea.Top * 100) / ZoomPercent)
            zoneHeight = Convert.ToInt32((ZonesItems.Item(ClickedZoneCount - 1).ZoneArea.Height * 100) / ZoomPercent)


Bmp1.Save("./Bmp1.tiff", Imaging.ImageFormat.Tiff)

bmp.Dispose()
bmp = Nothing

'X = 388,Y = 81,宽度= 144,高度= 22。     暗淡为新矩形F(X,Y,宽度,高度)     昏暗裁剪为位图= Bmp1.Clone(rect,Bmp1.PixelFormat)

Cropped.Save("./cropped.tiff", Imaging.ImageFormat.Tiff)

这是我们如何计算RECT值:

上述值在“矩形函数”中传递。

任何人都可以让我知道代码中的问题是什么吗?

0 个答案:

没有答案