2010-08-21 96 views

回答

3

我得到了使用

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 
的裁剪邊界