Rogner une image

Commenter

Contenu du snippet

Cette fonction sert à rogner une image.

Placer un PictureBox sur votre formulaire (PictureBox1).
Dans la propriété image de votre PictureBox1, sélectionner une image.

Dans l'évennement FormLoad de votre formulaire, appeler la fonction RognImage comme suit:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'exemple:
PictureBox1.Image= RognImage(PictureBox1.Image, 0, 11, 22, 22)

End Sub

Source / Exemple : 


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

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (ToToLeBon)