ROGNER UNE IMAGE

Private Function RognImage(ByVal ImaSource As Bitmap, ByVal xPixelDep As Int32, ByVal yPixelDep As Int32, ByVal xPixelTotal As Int32, ByVal yPixelTotal As Int32) As Bitmap

        'ByVal ImaSource As Bitmap est l'objet image source. C'est l'image source de départ qui doit être rogner.
        'ByVal xPixelDep As Int32 et ByVal yPixelDep As Int32 indique les coordonnées x et y du pixel de départ à
        'partir duquel on doit rogner.
        'ByVal xPixelTotal As Int32 indique le nombre de pixel à conserver sur l'axe de coordonnée x
        '(ou le Widht que devra avoir la nouvel image), ByVal yPixelTotal As Int32 indique le nombre
        'de pixel à conserver sur l'axe de coordonnée y (ou le Height que devra avoir la nouvel image)
        '
        'Exemple 1, supposons que votre PictureBox1 contient une image avec un width de 200 pixels et un height
        'de 100 pixels et que vous souhaiter rogner et garder au final que la moitiée supérieure de votre image.
        'Vous appelerez la fonction RognImage comme suit:
        '
        'PictureBox1.Image= RognImage(PictureBox1.Image, 0, 0, 200, 50)

        'Exemple 2, supposons que votre PictureBox1 contient une image avec un width de 350 pixels et un height
        'de 400 pixels et que vous souhaiter rogner et garder au final que la moitiée inférieure de votre image.
        'Vous appelerez la fonction RognImage comme suit:
        '
        'PictureBox1.Image= RognImage(PictureBox1.Image, 0, 200, 350, 200)

        'ATTENTION: Pour le rendu final de votre control PictureBox, souvenez vous que la propriété SizeMode
        'influence la manière dont le controle et son contenu image est dessiné. Garder à l'esprit que le rognage 
        's effectue sur l'objet image contenu dans le PictureBox et non sur le contrôle PictureBox lui même.
        '
        'Vous pouvez appliquer la fonction à tout objet image et pas seulement au contrôle PictureBox.

        Dim nouvImage As New Bitmap(xPixelTotal, yPixelTotal)
        Dim graph As Graphics = Graphics.FromImage(nouvImage)
        Dim rect As New Rectangle(0, 0, xPixelTotal, yPixelTotal)
        graph.DrawImage(ImaSource, rect, xPixelDep, yPixelDep, xPixelTotal, yPixelTotal, GraphicsUnit.Pixel)
        Return nouvImage

    End Function