Copier une portion d'une image

Version imprimable

Bonjour à tous,

J'ai récupéré un bout de code sur le net qui permet de copier un bout d'image.
Le soucis c'est que dans mon cas, je veux récupérer des portions de 32 x 32 mais je récupère un bout d'image en 42 x 42.

Voici se que j'ai fait quand on clique sur l'image d'origine (qui est dans une Picturebox).
Code:

1 2 3 4 5 6 7 Private Sub PICBOX_TILES_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PICBOX_TILES.MouseDown ' Mettre en mémoire le bout de tiles sélectionné _TilesUtilise = RecupererImage(Me.PICBOX_TILES.Image, New Rectangle(Int(e.X / 32) * 32, Int(e.Y / 32) * 32, 32, 32)) Me.PictureBox1.Image = _TilesUtilise End Sub
Voici la fonction RecupererImage (c'est ce que j'ai récupéré sur le net)
Code:

1 2 3 4 5 6 7 8 9 Public Function RecupererImage(ByVal ImgSource As Image, ByVal Rect As Rectangle) As System.Drawing.Image 'cette sub permet de récupérer une portion d'un bitmap sans le prendre dans son intégralité Dim ImgOut As System.Drawing.Image = New System.Drawing.Bitmap(Rect.Width, Rect.Height) Dim Graphics As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(ImgOut) Graphics.DrawImage(ImgSource, 0, 0, Rect, System.Drawing.GraphicsUnit.Pixel) Return ImgOut End Function
Donc j'ai mis le résultat dans une PictureBox (PictureBox1) pour tester et comme je vous les dit, il récupère bien la portion de l'image que je lui demande, mais au format 42 x 42 (donc l'image est "grossi")

Savez-vous pourquoi j'ai ce phénomène ??

Je vous remercie d'avance.
Bonne journée.

Cryo

21/04/2011, 14h05
Pol63
la fonction que tu as retourne bien une image de 32x32

si tu la mets dans un control qui a imagelayout à stretch ou zoom, c'est le control qui agrandit l'image pour qu'elle prenne la place disponible

pour éviter de remplir la mémoire pour rien il faut faire
Code:

1 2 3 4 using graphics As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(ImgOut) Graphics.DrawImage(ImgSource, 0, 0, Rect, System.Drawing.GraphicsUnit.Pixel) Return ImgOut end using
21/04/2011, 14h31
CryoCid

Je te remercie pour ta réponse Pol63.

Mon objet Picturebox1 a la propriété SizeMode à Normal, donc ça c'est bon.

Voici un screen de l'appli :

http://www.keopics.com/images/14722415537981992615.png

J'ai sélectionné à gauche le tronc (entouré en rouge), puis à droite j'ai la Picturebox1 pour voir se que ça donne.

Dans la partie sélection, l'encadré en rouge correspond à un carré de 32 x 32 et la picturebox à droite à une dimension de 32 x 32.

On peut voir qu'à droite le tronc est zoomé.
Si j'agrandis la picturebox1, l'image est bien en 32 x 32 mais coupé.

Je suis dessus depuis hier soir et je n'arrive pas à comprendre pourquoi :(
21/04/2011, 14h44
Pol63

tu es passé en pas à pas pour voir le rectangle que tu envoies et la taille du bitmap créé ?
21/04/2011, 16h01
chrismonoye

Bonjour,
ça doit être un problème de résolution.
J'ai testé avec 72 ppp, on a ce problème.
En passant l'original à 96, plus de soucis.
la résolution du picturebox étant 96.
21/04/2011, 16h11
Pol63

ok je vois

dans ce cas sur le new du bitmap, je crois qu'on spécifier les ppp qu'on veut
et dans ce cas si tu mets la valeur de l'image source ca devrait corriger le problème

Bien vu Pol63
il faut déclarer un Bitmap et non un Image et lui imposer la résolution de l'original :

Code:

1
2
3
4
5
        Dim xDpiImageSource As Single = ImgSource.HorizontalResolution
        Dim yDpiImageSource As Single = ImgSource.VerticalResolution
 
        Dim ImgOut As Bitmap = New Bitmap(Rect.Width, Rect.Height)
        ImgOut.SetResolution(xDpiImageSource, yDpiImageSource)

Je vous remercie tous les deux car ça fonctionne.

Voici la fonction complète pour ceux qui désire coupé un bout d'image

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Function RecupererImage(ByVal ImgSource As Image, ByVal Rect As Rectangle) As System.Drawing.Image
 
        ' On garde la même résolution que l'image d'origine
        Dim xDpiImageSource As Single = ImgSource.HorizontalResolution
        Dim yDpiImageSource As Single = ImgSource.VerticalResolution
 
        ' Création d'un Bitmap par rapport au rectangle de sélection
        Dim ImgOut As Bitmap = New Bitmap(Rect.Width, Rect.Height)
        ' On lui ajoute les résolutions de l'image d'origine
        ImgOut.SetResolution(xDpiImageSource, yDpiImageSource)
        ' Puis on récupére la portion qui nous intéresse sur l'image d'origine
        Dim Graphics As Graphics = Graphics.FromImage(ImgOut)
        Graphics.DrawImage(ImgSource, 0, 0, Rect, System.Drawing.GraphicsUnit.Pixel)
 
        ' On retourne l'image
        Return ImgOut
 
    End Function

Bonne journée!