Rogner les images (Recadrer pour supprimer toutes les zones vides)

Question

Pour réduire la taille de certaines images que j'ai, je voudrais supprimer le rembourrage blanc que certains ont. L'idée serait que si l'on a de grandes zones blanches sur les bords, ceux-ci peuvent être recadrés pour économiser de l'espace.

Une idée?

Answer 1

Je suis les frontières de culture à l'aide

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