decouper ou rogner une imageRésolu

Question

Bonjour à tous.
Je m'inspire d'un code que j'ai récupéré sur ce site sans me souvenir précisément de son créateur mais il s'agit de :
ImageCroppingDemo
ce code fonctionne bien, il s'agit de découper une partie de l'image pour la récupérer et l'enregistrer.
Malheureusement l'image récupérait reste déformé et tiré et je ne parviens pas à trouver la solution. L'instruction «   PreviewPictureBox.SizeMode = PictureBoxSizeMode.Zoom
» ne fonctionne pas dans ce cas

si vous pouviez m'indiquer la méthode pour que la nouvelle image obtenue reste dans les proportions sans aucune déformation je vous en serais vraiment très reconnaissant car je tourne en rond depuis une semaine.
D'avance je vous en remercie.


Voici le code concernant la récupération de la partie découpée de l'image :


    Private Sub crobPictureBox_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles crobPictureBox.MouseUp
        Try
            Cursor = Cursors.Default
            Try

                If cropWidth < 1 Then
                    Exit Sub
                End If

                Dim rect As Rectangle = New Rectangle(cropX, cropY, cropWidth, cropHeight)
                Dim bit As Bitmap = New Bitmap(crobPictureBox.Image, crobPictureBox.Width, crobPictureBox.Height)

                cropBitmap = New Bitmap(cropWidth, cropHeight)
                Dim g As Graphics = Graphics.FromImage(cropBitmap)
                g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
                g.PixelOffsetMode = Drawing2D.PixelOffsetMode.HighQuality
                g.CompositingQuality = Drawing2D.CompositingQuality.HighQuality
                g.DrawImage(bit, 0, 0, rect, GraphicsUnit.Pixel)
                'pour  ajuster  l'image
                PreviewPictureBox.SizeMode = PictureBoxSizeMode.Zoom


                PreviewPictureBox.Image = cropBitmap

            Catch exc As Exception
            End Try
        Catch exc As Exception
        End Try
    End Sub

cs_Le Pivert · Answer

Bonjour,

Voir ceci qui fonctionne:

 http://codes-sources.commentcamarche.net/source/100331-rogner-une-image-en-pixels-ou-en-cm

DAN · Answer

Bonjour pour cette réponse mais   ca ne marche pas chez moi 
recadr_img.exe est manquant.


Je parviens bien a   decouper une partie  de ma picture box et la coller  dans une seconde picture box mais  cette dernière   reste déformée étirée.... 

auriez vous une solution?

cs_Le Pivert · Answer

recadr_img.exe est manquant. 

Toutes les sources sont déposées sans exe, c'est la règle, il suffit d'ouvrir la solution et la compiler!

DAN · Answer

Merci  mais je suis assez novice en la matiere pourriez vous  me preciser la marche a suivre,je ne  vois pas ou se trouve ce  fichier que je dois ouvrir et  si je dois le renomer 
Excuser mon ignorance

DAN · Answer

Bonjour.
Vous êtes un peu sévère avec moi, je programme de façon correcte en m'inspirant parfois du code de de certains.
Sur cette simple petite partie consistant à récupérer une partie de l'image d'une Picture box je n'obtient pas à l'arrivée un résultat correct car cette parcelle reste déformée.
Je ne programme pas régulièrement et j'ai suivi régulièrement un didacticiel visuel basique sur ce site il y a quelques années.
Cela ne fait pas de moi un pro de la programmation VB.
C'est bien pour cela que je m'adresse aux pros de ce site qui pourrait me donner la solution.
J'ajoute qu'étant malvoyant je ne peux pas aller chercher sur le Web

cs_Le Pivert · Answer

Nous ne sommes pas sévères, mais tu comprendras que ta question peut surprendre de la part d'une personne qui programme en VB.Net
voici le fichier à ouvrir:recad_img

Dan1 · Answer

Bonsoir.
J'ai réglé mon problème mais je ne parviens  pa a lancer ton appli sous  vb.net 2010 ou mémé vb.net 2015
J'ai bien ouvert   et visualisé le code mais    j'ai le message d'erreur  lorse que je  veux ouvrir la  le désigne ou  le lancer.
Je voulais t'envoyer une copie d’écran mais le bouton inserer une image ne  me donne pas cette possibilité.

Pourtant je n'ai pas de souci avec le téléchargement des autres codes.....

cs_Le Pivert · Answer

Bravo vb95, le résultat est conforme à la sélection, voir la mire à ouvrir dans le programme:

télécharger sur le net: code barre, très utile!

merci,c'est vrai le programme dont tu parles est fait sur la base du programme que DAN1 n'arrive pas à faire fonctionner, c'est dommage car là tu as un rectangle de sélection réglable comme les logiciel de pro.
 
Bonne soirèe
@+ Le Pivert

DAN1 · Answer

Bonsoir.
Je pense que l'option StretchImage ne peut convenir car 
  L'image contenue dans la PictureBox est étirée ou rétrécie pour correspondre à la taille de la PictureBox..
Il faudrait pouvoir utiliser l'option zoom et obtenir en sortie une image correspondant à la sélection avec également une option zoom.
Le problème est forcément la et je ne sais toujours pas comment procéder.
Il faudrait pouvoir recalculer la hauteur et la largeur de la nouvelle image mais celle mémorisée dans le cadre n'est pas correcte non plus…

qu'en penses-tu ?
PS : je vais être obligé de recréer un nouveau pseudo et un nouveau mot de passe car celui que j'avais précédemment ne semble plus fonctionner car je ne l'ai pas utilisé depuis très longtemps.

vb95 · Answer

Salut Dan
Je crois avoir trouvé
Utilises ce code S.V.P et uniquement celui-ci 

Imports System.Drawing.Drawing2DPublic Class Form1    Dim Yend As Integer    Dim Xend As Integer    Dim Ystart As Integer    Dim Xstart As Integer    Dim cropWidth As Integer    Dim cropHeight As Integer    Dim cropBitmap As Bitmap    Public cropPen As Pen    Public cropPenSize As Integer = 1 'epaisseur du trait de cadre    Public cropDashStyle As Drawing2D.DashStyle = Drawing2D.DashStyle.Solid ' spefie une ligne continue    Public cropPenColor As Color = Color.Yellow 'specifie la couleur du trait    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize        PictureBox2.SizeMode = PictureBoxSizeMode.Normal        PictureBox2.Visible = False        Dim nomfich As String = "D:\Capture.jpg" ' fichier image à charger        PictureBox1.Image = Image.FromFile(nomfich)    End Sub    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown        If PictureBox1.Image Is Nothing Then Exit Sub        If e.Button = MouseButtons.Left Then            PictureBox1.Refresh()            PictureBox2.Visible = False            Xstart = e.X            Ystart = e.Y        End If    End Sub    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove        If PictureBox1.Image Is Nothing Then Exit Sub        If e.Button = MouseButtons.Left Then            PictureBox1.Refresh()            Yend = e.Y            Xend = e.X            cropWidth = Math.Abs(e.X - Xstart)            cropHeight = Math.Abs(e.Y - Ystart)            cropPen = New Pen(cropPenColor, cropPenSize)            'On efface l'ancien rectangle            Dim rect As Rectangle            ControlPaint.DrawReversibleFrame(rect, Me.BackColor, FrameStyle.Thick)            rect = PictureBox1.RectangleToScreen(New Rectangle(Xstart, Ystart, Xend - Xstart, Yend - Ystart))            PictureBox1.CreateGraphics.DrawRectangle(cropPen, Xstart, Ystart, cropWidth, cropHeight)        End If    End Sub    Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp        If PictureBox1.Image Is Nothing Then Exit Sub        If cropHeight = 0 Or cropWidth = 0 Then Exit Sub        PictureBox1.CreateGraphics.DrawRectangle(cropPen, Xstart, Ystart, cropWidth, cropHeight)        Dim rect As Rectangle = New Rectangle(Xstart, Ystart, Xend - Xstart, Yend - Ystart)        ' positions x, y et dimensions largeur, hauteur du rectangle rogné dans la PictureBox1        Dim bit As Bitmap = New Bitmap(PictureBox1.Image, PictureBox1.Width, PictureBox1.Height)        Dim CropImage = New Bitmap(cropWidth, cropHeight) 'dimension du bitmap        Dim g As Graphics = Graphics.FromImage(CropImage)        g.InterpolationMode = InterpolationMode.HighQualityBicubic        g.PixelOffsetMode = PixelOffsetMode.HighQuality        g.CompositingQuality = CompositingQuality.HighQuality        g.DrawImage(bit, 0, 0, rect, GraphicsUnit.Pixel)        PictureBox2.Height = rect.Height        PictureBox2.Width = rect.Width        PictureBox2.Image = CropImage 'affichage dans la PictureBox2 aux dimensions du rectangle rogné        PictureBox2.Visible = True    End SubEnd Class

Deux modifications ont été faites
1) Le SizeMode de PictureBox1 est sur Autosize et non sur StretchImage ce qui fait que PictureBox1 s'adapte automatiquement aux dimensions du fichier image stocké sur le disque : donc plus d'image étirée ou rétrécie normalement .
2) Par contre pour Picturebox2 on passe ce paramètre à Normal 

Remplace le nom du fichier Image que moi j'ai mis par le nom de ton fichier Image
Dis nous ce qu'il est est
A +

cs_Le Pivert · Answer

vb95, je suis désolé mais cela ne va pas du tout.La mouture précédente fonctionne nettement mieux 

 http://codes-sources.commentcamarche.net/forum/affich-10069723-decouper-ou-rogner-une-image#24

J'ai fait un essai avec une image en mode portrait, on ne voit pas la totalité de l'image. j'ai donc mis cela pour voir la totalité de l'image:

  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        PictureBox2.SizeMode = PictureBoxSizeMode.StretchImage
        PictureBox2.Visible = False
        Dim nomfich As String = "C:\chemin image.jpg" ' fichier image à charger
        PictureBox1.Image = Image.FromFile(nomfich)
        PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize
        Me.Width = PictureBox1.Width
        Me.Height = PictureBox1.Height
    End Sub

Le problème vient de l'affichage de la PictureBox2 qui se trouve sur la PictureBox1, et il en manque suivant la position de la sélection.

Reste avec le précédent code qui fonctionne très bien!!

Cdlt

PS on ne s'y retrouve pas dans les posts, c'est un véritable foutoir
@+ Le Pivert

DAN1 · Answer

Salut à vous deux.
J'ai finalement trouvé la solution à tous mes problèmes car les dernières propositions ne marchaient pas sur des images de taille dépassant celle de l'écran.
J'ai donc cherché une solution et je l'ai trouvé.
J'aimerais maintenant poster ce code pour qu'il puisse être disponible par d'autres personnes mais impossibles de comprendre la marche à suivre.
J'aurais voulu vous joindre ici tout au moins mon exe pour que vous puissiez le tester mais encore une fois impossible de trouver le moyen d'ajouter cet exe.
Merci de m'indiquer la marche à suivre à moins que je ne sois obligé de créer une nouvelle inscription.
A+.
Dan

DAN247 · Answer

Bonjour.
Merci de ton message.
J'ai donc fait une nouvelle inscription sous le pseudo Dan247.
J'ai déposé mon projet concernant le découpage d'une image et je serai très heureux de recueillir votre avis sur ce résultat.
Quelque soit la taille de l'image elle peut apparaître en totalité à l'écran et l'on peut récupérer n'importe quelle partie de cette image et l'enregistrer.
Grand merci pour votre aide en tout cas.
Dan247

Decouper ou rogner une image

13 réponses

Votre réponse

Discussions similaires