MODIFICATION DE LA TAILLE D'UN OBJET DE TYPE BITMAP. BESOIN D'AIDE POUR FINIR

Public Class Graphic_Env
    Private Info As String '= "Written by Anthony Faucogney"
    Private value As Integer = 0
    Private Original_Image As Image
    Private Width, Height, Pixel_Number, Center_X, Center_Y
    Private Shared Nb As Integer = 0
    Private From_Picture, To_Picture As Image
    Private G As Graphics
    Private BM As Bitmap

    Sub New(ByVal Source_Picture As Image)
        BM = New Bitmap(Source_Picture.Width, Source_Picture.Height)

        From_Picture = Source_Picture
        G = Graphics.FromImage(BM)

        Width = From_Picture.Width
        Center_X = Width / 2 '

        Height = From_Picture.Height
        Center_Y = Height / 2

        Pixel_Number = Width * Height
    End Sub

    Protected Overrides Sub Finalize()
        Nb -= 1
    End Sub

    Sub Squarize(ByVal _Color As Color)
        ' define background color
        G.Clear(_Color)

        Dim Rect As Rectangle

        ' Print Image to define a square
        Select Case Width
            Case Is > Height
                Rect = New Rectangle(0, ((Width - Height) / 2), Width, Height)
                G.DrawImage(From_Picture, Rect)
            Case Is < Height
                Rect = New Rectangle(((Height - Width) / 2), 0, Width, Height)
                G.DrawImage(From_Picture, Rect)
            Case Else
                Rect = New Rectangle(0, 0, Width, Height)
                G.DrawImage(From_Picture, Rect)
        End Select
    End Sub

    Sub Print()
        ' Draw work in destination image
        To_Picture = BM
    End Sub

    Function Get_Image() As Image
        ' Return the Bitmap image
        Return BM
    End Function

End Class