修剪图像（裁剪以删除所有空白区域）

Question

为了减少我的一些图像的大小，我想删除一些有的白色填充。我们的想法是，如果边界上有大的白色区域，那么可以裁剪这些区域以节省一些空间。

有什么想法吗？

Answer 1

我使用

获得了裁剪边框

    Dim MinX As Integer = W : Dim MaxX As Integer = 0
    Dim MinY As Integer = H : Dim MaxY As Integer = 0

    Dim White As Integer = Color.White.ToArgb()
    For x As Integer = 0 To W - 1
        For y As Integer = 0 To H - 1
            If Not Output.GetPixel(x, y).ToArgb() = White Then
                MinX = Math.Min(MinX, x)
                MaxX = Math.Max(MaxX, x)
                MinY = Math.Min(MinY, y)
                MaxY = Math.Max(MaxY, y)
            End If
        Next
    Next