Discussion :

[CryoCid]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :



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

[Pol63]

tu es passé en pas à pas pour voir le rectangle que tu envoies et la taille du bitmap créé ?

[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.

[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