Redim jpeg

Soyez le premier à donner votre avis sur cette source.

Vue 5 294 fois - Téléchargée 423 fois

Description

Ce logiciel est destiné à recadrer et redimensionner des photos au format JPeg.
Particulièrement utile avant transfert des photos vers un cadre photo-numérique, en redimensionnant les photos au nombre exact de pixels du cadre, vous gagnerez en place sur la carte de stockage, en temps d'exécution au passage d'une photo à la suivante.
Utilisation ultra-simplifiée: Bouton droit de la souris pour Zoomer, bouton gauche pour déplacer, double-clis pour sauvegarder et passer à l'image suivante.

Mode d'emploi détaillé du logiciel :

1 / Avant de lancer le logiciel, créez tout d'abord un dossier dans lequel vous placerez toutes les photos à recadrer/redimensionner. Pour un classement plus facile des photos, il est possible de créer des sous-dossiers.

2/ Lancez le logiciel, puis placez-vous dans l'onglet Données pour sélectionner le dossier qui contient les photos à recadrer/redimensionner. Attention, toutes les photos du dossier et de ses sous-dossiers seront passées en revue.
Choisissez la largeur et la hauteur des images que vous voulez obtenir. Ces dimensions doivent être comprises entre 32 et 32767 pixels. La taille de l'image souhaitée doit être inférieure à 64 méga-pixels.

3/ Allez dans l'onglet Photos. Par défaut, la première photo non redimensionnée aux dimensions choisies est affichée.
Pour Zoomer, maintenir le bouton droit de la souris enfoncé, puis monter ou descendre la souris pour grossir ou réduire l'image.
Pour déplacer l'image dans la fenêtre, maintenir le bouton gauche de la souris enfoncé, puis déplacer l'image avec la souris.

4/ Pour passer à l'image suivante, utilisez les flèches du clavier (flèche vers le bas, ou page suivante). L?appui sur la touche entrée ou un double-clic dans l'image permet également de passer à l'image suivante.
Pour passer à l'image précédente, utilisez les flèches du clavier (flèche vers le haut, ou page précédente).
A chaque changement d'image, l'image courante est sauvegardée avec son recadrage.

5/ Les images recadrées sont mémorisées dans un dossier "Recadrées" placé dans le dossier d'origine. Si le dossier d'origine contient des sous-dossiers, la même arborescence est recrée dans le dossier "Recadrées".

6/ Pendant les fonctions de zoom, une jauge sur le coté droit de l'image donne le niveau de qualité. En vert tout va bien, le nombre de pixels de la zone sélectionnée de l'image est supérieur au nombre de pixels de l'image recadrée. En rouge c'est l'inverse. La partie sombre (rouge ou verte) donne la marge restante.

7/ Vous n'avez pas eu le temps de traiter tout votre dossier photos. Pas de problème, fermez le logiciel. Tout votre travail reste mémorisé, et à la prochaine utilisation la reprise se fera automatiquement à la dernière photo recadrée.

Source / Exemple :


Imports System.Drawing.Imaging
Imports System.IO

Public Class Form1
    Public Structure photo
        Dim Nom As String
        Dim Folder As String
        Dim Top As Integer
        Dim Bottom As Integer
        Dim Left As Integer
        Dim right As Integer
        Dim Zoom As Single
        Dim ZoomMini As Single
        Dim recadreW As Integer
        Dim recadreH As Integer
    End Structure
    Dim photoWidth, photoHeight As Integer
    Dim lastPhotoWidth, lastPhotoHeight As Integer
    Dim selectedFolder As String
    Dim onePhotoIsLoaded As Boolean = False
    Dim NbPhotosATraiter As Integer = 0
    Dim Photos() As photo
    Dim NewFolder As String = ""
    Dim photoHeightIsOk, photoWidthIsOk, dossierIsOk, allIsOk As Boolean
    Dim resisedPhoto As Bitmap
    Dim photoLoaded As New PictureBox
    Dim CurrentPhoto As Integer = -1
    Dim LastPhotoLoaded As Integer = -1
    Dim btnGaucheIsdown As Boolean = False
    Dim btnDroiteIsdown As Boolean = False
    Public memoMouseX As Integer = -1
    Public memoMouseY As Integer = -1
    Public MouseIsMoving As Boolean = False

    Private Sub control()
        allIsOk = True
        If photoHeight > 31 Then
            If photoHeight < 32768 Then
                photoHeightIsOk = True
            Else
                photoHeightIsOk = False
            End If
        Else
            photoHeightIsOk = False
        End If
        If photoWidth > 31 Then
            If photoWidth < 32768 Then
                photoWidthIsOk = True
            Else
                photoWidthIsOk = False
            End If
        Else
            photoWidthIsOk = False
        End If
        If photoHeightIsOk And photoWidthIsOk Then
            If photoHeight * photoWidth > 64 * 1024 * 1024 Then
                photoHeightIsOk = False
                photoWidthIsOk = False
            End If
        End If
        If photoHeightIsOk Then
            TextBoxHauteur.BackColor = Color.FromArgb(128, 255, 128)
        Else
            TextBoxHauteur.BackColor = Color.FromArgb(255, 128, 128)
            allIsOk = False
        End If
        If photoWidthIsOk Then
            TextBoxLargeur.BackColor = Color.FromArgb(128, 255, 128)
        Else
            TextBoxLargeur.BackColor = Color.FromArgb(255, 128, 128)
            allIsOk = False
        End If
        If selectedFolder = "" Or NbPhotosATraiter = 0 Then
            ButtonChoixPhotos.BackColor = Color.FromArgb(255, 128, 128)
            ButtonChoixPhotos.Text = "Choix du dossier de photos"
            allIsOk = False
            dossierIsOk = False
        Else
            ButtonChoixPhotos.BackColor = Color.FromArgb(128, 255, 128)
            ButtonChoixPhotos.Text = "Choix du dossier de photos (" + NbPhotosATraiter.ToString + ")"
            dossierIsOk = True
        End If
        If allIsOk Then
            NewFolder = selectedFolder + "\Recadrées"
            Try
                My.Computer.FileSystem.CreateDirectory(NewFolder)
            Catch ex As Exception
            End Try
            Dim NomFichier As String = String.Concat(My.Application.Info.DirectoryPath, "\RedimJPegData.txt")
            Dim Texte(0) As String
            Texte(0) = selectedFolder + "|" + photoHeight.ToString + "|" + photoWidth.ToString
            System.IO.File.WriteAllLines(NomFichier, Texte)
        End If
    End Sub

    Private Sub TextBoxLargeur_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxLargeur.TextChanged
        Try
            photoWidth = System.Convert.ToInt32(TextBoxLargeur.Text)
        Catch ex As Exception
            photoWidth = 0
            If TextBoxLargeur.Text.Length > 1 Then
                TextBoxLargeur.Text = TextBoxLargeur.Text.Substring(0, TextBoxLargeur.Text.Length - 1)
                TextBoxLargeur.SelectionStart = TextBoxLargeur.Text.Length
            ElseIf TextBoxLargeur.Text.Length = 1 Then
                TextBoxLargeur.Text = ""
            Else
                TextBoxLargeur.Text = ""
            End If
        End Try
        control()
    End Sub

    Private Sub TextBoxHauteur_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxHauteur.TextChanged
        Try
            photoHeight = System.Convert.ToInt32(TextBoxHauteur.Text)
        Catch ex As Exception
            photoHeight = 0
            If TextBoxHauteur.Text.Length > 1 Then
                TextBoxHauteur.Text = TextBoxHauteur.Text.Substring(0, TextBoxHauteur.Text.Length - 1)
                TextBoxHauteur.SelectionStart = TextBoxHauteur.Text.Length
            ElseIf TextBoxHauteur.Text.Length = 1 Then
                TextBoxHauteur.Text = ""
            Else
                TextBoxHauteur.Text = ""
            End If
        End Try
        control()
    End Sub

    Private Sub EtablirListePhotos()
        NewFolder = selectedFolder + "\Recadrées"
        Me.Text = "Recadrage de photos :  " + selectedFolder
        Try
            For Each folder As String In _
            My.Computer.FileSystem.GetDirectories(selectedFolder, FileIO.SearchOption.SearchAllSubDirectories)
                If folder.Substring(0, Math.Min(folder.Length, NewFolder.Length)) <> NewFolder Then
                    For Each foundFile As String In _
                        My.Computer.FileSystem.GetFiles(folder, FileIO.SearchOption.SearchTopLevelOnly, "*.jpg")
                        NbPhotosATraiter += 1
                    Next
                End If
            Next
            For Each foundFile As String In _
                My.Computer.FileSystem.GetFiles(selectedFolder, FileIO.SearchOption.SearchTopLevelOnly, "*.jpg")
                NbPhotosATraiter += 1
            Next
            ReDim Photos(NbPhotosATraiter - 1)
            NbPhotosATraiter = 0
            Dim LengthSelectedFolder As Integer = selectedFolder.Length
            For Each folder As String In _
                My.Computer.FileSystem.GetDirectories(selectedFolder, FileIO.SearchOption.SearchAllSubDirectories)
                If folder.Substring(0, Math.Min(folder.Length, NewFolder.Length)) <> NewFolder Then
                    For Each foundFile As String In _
                        My.Computer.FileSystem.GetFiles(folder, FileIO.SearchOption.SearchTopLevelOnly, "*.jpg")
                        Photos(NbPhotosATraiter).Nom = Strings.Right(foundFile, foundFile.Length - LengthSelectedFolder)
                        Photos(NbPhotosATraiter).Zoom = 0.0
                        Photos(NbPhotosATraiter).Folder = folder.Substring(selectedFolder.Length)
                        NbPhotosATraiter += 1
                    Next
                End If
            Next
            For Each foundFile As String In _
                My.Computer.FileSystem.GetFiles(selectedFolder, FileIO.SearchOption.SearchTopLevelOnly, "*.jpg")
                Photos(NbPhotosATraiter).Nom = Strings.Right(foundFile, foundFile.Length - LengthSelectedFolder)
                NbPhotosATraiter += 1
            Next
            CurrentPhoto = 0
            Dim Nomfichier As String = selectedFolder + "\MemoRecadrages.txt"
            Dim TempResultats() As String
            Dim FileOfResultats As System.IO.FileStream
            If File.Exists(Nomfichier) Then
                FileOfResultats = File.OpenRead(Nomfichier)
                TempResultats = File.ReadAllLines(Nomfichier)
                Dim i As Integer = 0
                While i < TempResultats.Length - 1
                    Dim Array() As String = Split(TempResultats(i), "|")
                    For num = 0 To NbPhotosATraiter - 1
                        If Photos(num).Nom = Array(1) Then
                            Photos(num).Top = Array(2)
                            Photos(num).Bottom = Array(3)
                            Photos(num).Left = Array(4)
                            Photos(num).right = Array(5)
                            Photos(num).Zoom = Array(6)
                            Photos(num).ZoomMini = Array(7)
                            Photos(num).recadreH = Array(8)
                            Photos(num).recadreW = Array(9)
                        End If
                    Next
                    i = i + 1
                End While
                FileOfResultats.Close()
            End If

        Catch ex As Exception
        End Try
    End Sub

    Private Sub ButtonChoixPhotos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonChoixPhotos.Click
        FolderBrowserDialog.Description = "Sélectionner le dossier de photos"
        NbPhotosATraiter = 0
        If FolderBrowserDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
            selectedFolder = FolderBrowserDialog.SelectedPath
            EtablirListePhotos()
        Else
            selectedFolder = ""
            CurrentPhoto = -1
        End If
        control()
    End Sub

    Private Sub AjustePictureBox()
        If TabControl.SelectedIndex <> 1 Then Exit Sub
        Dim newH, newW As Integer
        Dim coef As Single
        PictureBox.Height = TabPagePhotos.Height
        PictureBox.Width = TabPagePhotos.Width - PictureBoxZoom.Width - 6
        newH = PictureBox.Height
        newW = PictureBox.Width
        coef = 1.0 * newW / newH * photoHeight / photoWidth
        If coef > 1 Then
            PictureBox.Width = Math.Round(PictureBox.Width / coef)
        Else
            PictureBox.Height = Math.Round(PictureBox.Height * coef)
        End If
        PictureBox.Top = (TabPagePhotos.Height - PictureBox.Height) \ 2
        PictureBox.Left = ((TabPagePhotos.Width - PictureBoxZoom.Width - 6) - PictureBox.Width) \ 2
        If CurrentPhoto >= 0 Then
            LoadPhoto(CurrentPhoto)
        End If
    End Sub

    Private Sub TabPagePhotos_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPagePhotos.Enter
        If allIsOk Then
            Me.KeyPreview = True
            CurrentPhoto = 0
            For num = 0 To NbPhotosATraiter - 1
                If (Photos(num).Zoom = 0.0) Or (Photos(num).recadreH <> photoHeight) Or (Photos(num).recadreW <> photoWidth) Then Exit For
                CurrentPhoto = num
            Next
            AjustePictureBox()
        Else
            Me.KeyPreview = False
            TabControl.SelectedIndex = 0
        End If
    End Sub

    Private Sub LoadPhoto(ByVal num As Integer)
        If num = LastPhotoLoaded Then Exit Sub
        Try
            photoLoaded.Dispose()
        Catch ex As Exception
        End Try
        Try
            resisedPhoto.Dispose()
        Catch ex As Exception
        End Try
        resisedPhoto = New Bitmap(photoWidth, photoHeight)
        photoLoaded.Load(selectedFolder + Photos(CurrentPhoto).Nom)
        Me.Text = "Recadrage de photos : " + selectedFolder + Photos(CurrentPhoto).Nom
        Dim GRP As Graphics = Graphics.FromImage(resisedPhoto)
        GRP.InterpolationMode = Drawing2D.InterpolationMode.Low
        If (Photos(num).Zoom = 0.0) Or (Photos(num).recadreH <> photoHeight) Or (Photos(num).recadreW <> photoWidth) Then
            Dim Z0 As Single = photoLoaded.Image.Width * 1.0 / photoLoaded.Image.Height
            Dim Zn As Single = photoWidth * 1.0 / photoHeight
            If Zn > Z0 Then
                Photos(num).Zoom = photoWidth * 1.0 / photoLoaded.Image.Width
            Else
                Photos(num).Zoom = photoHeight * 1.0 / photoLoaded.Image.Height
            End If
            Photos(num).Top = -Math.Round((photoHeight / Photos(num).Zoom - photoLoaded.Image.Height) / 2.0)
            Photos(num).Left = -Math.Round((photoWidth / Photos(num).Zoom - photoLoaded.Image.Width) / 2.0)
            Photos(num).Bottom = Photos(num).Top + Math.Round(photoHeight / Photos(num).Zoom)
            Photos(num).right = Photos(num).Left + Math.Round(photoWidth / Photos(num).Zoom)
            Photos(num).ZoomMini = Photos(num).Zoom
            Photos(num).recadreH = photoHeight
            Photos(num).recadreW = photoWidth
        End If
        BuildZoom()
        Dim Zone As Rectangle
        Zone = Rectangle.FromLTRB(0, 0, photoWidth, photoHeight)
        GRP.DrawImage(photoLoaded.Image, Zone, Photos(num).Left, Photos(num).Top, _
                      Photos(num).right - Photos(num).Left, Photos(num).Bottom - Photos(num).Top, GraphicsUnit.Pixel)
        PictureBox.Image = resisedPhoto.Clone
        GRP.Dispose()
        LastPhotoLoaded = num
    End Sub

    Private Sub TabPagePhotos_SizeChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPagePhotos.SizeChanged
        AjustePictureBox()
        BuildZoom()
    End Sub

    Private Sub PictureBox_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            btnGaucheIsdown = True
        End If
        If e.Button = Windows.Forms.MouseButtons.Right Then
            btnDroiteIsdown = True
        End If
        memoMouseX = e.X
        memoMouseY = e.Y
    End Sub

    Private Sub PictureBox_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox.MouseUp
        btnDroiteIsdown = False
        btnGaucheIsdown = False
    End Sub

    Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        Dim key As Integer
        key = e.KeyValue
        If (key = 33) Or (key = 38) Then ' touche Page Up
            SavePhoto()
            If CurrentPhoto > 0 Then
                CurrentPhoto -= 1
                LoadPhoto(CurrentPhoto)
            End If
        End If
        If (key = 34) Or (key = 40) Or (key = 13) Then ' touche Page Down
            SavePhoto()
            If CurrentPhoto < NbPhotosATraiter - 1 Then
                CurrentPhoto += 1
                LoadPhoto(CurrentPhoto)
            End If
        End If
    End Sub

    Private Function GetEncoder(ByVal format As ImageFormat) As ImageCodecInfo

        Dim codecs As ImageCodecInfo() = ImageCodecInfo.GetImageDecoders()

        Dim codec As ImageCodecInfo
        For Each codec In codecs
            If codec.FormatID = format.Guid Then
                Return codec
            End If
        Next codec
        Return Nothing

    End Function

    Private Sub SavePhoto()
        Dim photoName, PhotoFolder As String
        Dim myEncoder As Drawing.Imaging.Encoder
        Dim myEncoderParameter As Drawing.Imaging.EncoderParameter
        Dim myEncoderParameters As Drawing.Imaging.EncoderParameters
        Dim jgpEncoder As ImageCodecInfo = GetEncoder(ImageFormat.Jpeg)

        myEncoder = Drawing.Imaging.Encoder.Quality
        myEncoderParameters = New Drawing.Imaging.EncoderParameters(1)
        myEncoderParameter = New Drawing.Imaging.EncoderParameter(myEncoder, CType(99L, Int32))
        myEncoderParameters.Param(0) = myEncoderParameter
        photoName = selectedFolder + "\Recadrées" + Photos(CurrentPhoto).Nom
        PhotoFolder = selectedFolder + "\Recadrées" + Photos(CurrentPhoto).Folder
        Try
            System.IO.Directory.CreateDirectory(PhotoFolder)
        Catch ex As Exception
        End Try
        Dim Zone As Rectangle
        Zone = Rectangle.FromLTRB(0, 0, photoWidth, photoHeight)
        Dim GRP As Graphics = Graphics.FromImage(resisedPhoto)
        GRP.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
        GRP.DrawImage(photoLoaded.Image, Zone, Photos(CurrentPhoto).Left, Photos(CurrentPhoto).Top, _
                      Photos(CurrentPhoto).right - Photos(CurrentPhoto).Left, Photos(CurrentPhoto).Bottom - Photos(CurrentPhoto).Top, GraphicsUnit.Pixel)
        GRP.Dispose()
        resisedPhoto.Save(selectedFolder + "\Recadrées" + Photos(CurrentPhoto).Nom, jgpEncoder, myEncoderParameters)
        Photos(CurrentPhoto).recadreW = photoWidth
        Photos(CurrentPhoto).recadreH = photoHeight
    End Sub

    Private Sub PictureBox_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox.MouseMove
        If MouseIsMoving Then Exit Sub
        Dim memX As Integer = e.X
        Dim memY As Integer = e.Y
        MouseIsMoving = True
        If btnGaucheIsdown Then 'Déplacement de la photo dans le cadre
            Dim dX, dY As Integer
            dX = Math.Round((memoMouseX - memX) * 1.0 / PictureBox.Width * resisedPhoto.Width / Photos(CurrentPhoto).Zoom)
            dY = Math.Round((memoMouseY - memY) * 1.0 / PictureBox.Width * resisedPhoto.Width / Photos(CurrentPhoto).Zoom)
            Photos(CurrentPhoto).Left += dX
            Photos(CurrentPhoto).right += dX
            Photos(CurrentPhoto).Top += dY
            Photos(CurrentPhoto).Bottom += dY
            If Photos(CurrentPhoto).Left < 0 Then
                Photos(CurrentPhoto).right -= Photos(CurrentPhoto).Left
                Photos(CurrentPhoto).Left = 0
            ElseIf Photos(CurrentPhoto).right > photoLoaded.Image.Width Then
                Photos(CurrentPhoto).Left -= (Photos(CurrentPhoto).right - photoLoaded.Image.Width)
                Photos(CurrentPhoto).right = photoLoaded.Image.Width
            End If
            If Photos(CurrentPhoto).Top < 0 Then
                Photos(CurrentPhoto).Bottom -= Photos(CurrentPhoto).Top
                Photos(CurrentPhoto).Top = 0
            ElseIf Photos(CurrentPhoto).Bottom > photoLoaded.Image.Height Then
                Photos(CurrentPhoto).Top -= (Photos(CurrentPhoto).Bottom - photoLoaded.Image.Height)
                Photos(CurrentPhoto).Bottom = photoLoaded.Image.Height
            End If
            Dim Zone As Rectangle
            Zone = Rectangle.FromLTRB(0, 0, photoWidth, photoHeight)
            Dim GRP As Graphics = Graphics.FromImage(resisedPhoto)
            GRP.InterpolationMode = Drawing2D.InterpolationMode.Low
            GRP.DrawImage(photoLoaded.Image, Zone, Photos(CurrentPhoto).Left, Photos(CurrentPhoto).Top, _
                          Photos(CurrentPhoto).right - Photos(CurrentPhoto).Left, Photos(CurrentPhoto).Bottom - Photos(CurrentPhoto).Top, GraphicsUnit.Pixel)
            GRP.Dispose()
            PictureBox.Image = resisedPhoto.Clone
            memoMouseX = memX
            memoMouseY = memY
        End If
        If btnDroiteIsdown Then 'Zoom
            Dim coef As Single = (memoMouseY - memY) * 0.004 + 1.0
            Dim photoZoom As Single = Photos(CurrentPhoto).Zoom
            photoZoom *= coef
            If photoZoom < Photos(CurrentPhoto).ZoomMini Then
                coef *= (Photos(CurrentPhoto).ZoomMini / photoZoom)
                photoZoom = Photos(CurrentPhoto).ZoomMini
            End If
            Dim centerX As Integer = (Photos(CurrentPhoto).Left + Photos(CurrentPhoto).right) \ 2
            Dim centerY As Integer = (Photos(CurrentPhoto).Top + Photos(CurrentPhoto).Bottom) \ 2
            Dim deltaX As Integer = Math.Round((centerX - Photos(CurrentPhoto).Left) / coef)
            Dim deltaY As Integer = Math.Round((centerY - Photos(CurrentPhoto).Top) / coef)
            If deltaX > photoLoaded.Image.Width \ 2 Then deltaX = photoLoaded.Image.Width \ 2
            If deltaY > photoLoaded.Image.Height \ 2 Then deltaY = photoLoaded.Image.Height \ 2
            Dim test As Boolean = True
            Dim rtest As Single
            rtest = Math.Abs(1.0 * deltaX / deltaY / photoWidth * photoHeight - 1.0)
            If rtest > 0.002 Then test = False
            If test Then
                Photos(CurrentPhoto).Zoom = photoZoom
                BuildZoom()
                Photos(CurrentPhoto).Left = centerX - deltaX
                Photos(CurrentPhoto).right = centerX + deltaX
                Photos(CurrentPhoto).Top = centerY - deltaY
                Photos(CurrentPhoto).Bottom = centerY + deltaY
                If Photos(CurrentPhoto).Left < 0 Then
                    Photos(CurrentPhoto).right -= Photos(CurrentPhoto).Left
                    Photos(CurrentPhoto).Left = 0
                ElseIf Photos(CurrentPhoto).right > photoLoaded.Image.Width Then
                    Photos(CurrentPhoto).Left -= (Photos(CurrentPhoto).right - photoLoaded.Image.Width)
                    Photos(CurrentPhoto).right = photoLoaded.Image.Width
                End If
                If Photos(CurrentPhoto).Top < 0 Then
                    Photos(CurrentPhoto).Bottom -= Photos(CurrentPhoto).Top
                    Photos(CurrentPhoto).Top = 0
                ElseIf Photos(CurrentPhoto).Bottom > photoLoaded.Image.Height Then
                    Photos(CurrentPhoto).Top -= (Photos(CurrentPhoto).Bottom - photoLoaded.Image.Height)
                    Photos(CurrentPhoto).Bottom = photoLoaded.Image.Height
                End If
                Dim Zone As Rectangle
                Zone = Rectangle.FromLTRB(0, 0, photoWidth, photoHeight)
                Dim GRP As Graphics = Graphics.FromImage(resisedPhoto)
                GRP.InterpolationMode = Drawing2D.InterpolationMode.Low
                GRP.DrawImage(photoLoaded.Image, Zone, Photos(CurrentPhoto).Left, Photos(CurrentPhoto).Top, _
                              Photos(CurrentPhoto).right - Photos(CurrentPhoto).Left, Photos(CurrentPhoto).Bottom - Photos(CurrentPhoto).Top, GraphicsUnit.Pixel)
                GRP.Dispose()
                PictureBox.Image = resisedPhoto.Clone
                memoMouseX = memX
                memoMouseY = memY
            End If
        End If

        MouseIsMoving = False
    End Sub

    Private Sub BuildZoom()
        Dim Hzone, Wzone As Integer
        Dim theBrush As SolidBrush
        If CurrentPhoto < 0 Then Exit Sub
        PictureBoxZoom.Height = PictureBox.Height
        PictureBoxZoom.Top = PictureBox.Top
        Wzone = PictureBoxZoom.Width
        Dim Img As New Bitmap(PictureBoxZoom.Width, PictureBoxZoom.Height)
        Dim GRP As Graphics = Graphics.FromImage(Img)
        If Photos(CurrentPhoto).Zoom < 1 Then
            Hzone = PictureBoxZoom.Height * (1.0 - Photos(CurrentPhoto).Zoom)
            theBrush = New SolidBrush(Color.FromArgb(128, 255, 128))
            GRP.FillRectangle(theBrush, 0, 0, Wzone, PictureBoxZoom.Height)
            theBrush = New SolidBrush(Color.FromArgb(0, 192, 0))
            GRP.FillRectangle(theBrush, 0, PictureBoxZoom.Height - Hzone, Wzone, Hzone)
        Else
            Hzone = PictureBoxZoom.Height * (1.0 - 1.0 / Photos(CurrentPhoto).Zoom)
            theBrush = New SolidBrush(Color.FromArgb(255, 128, 128))
            GRP.FillRectangle(theBrush, 0, 0, Wzone, PictureBoxZoom.Height)
            theBrush = New SolidBrush(Color.FromArgb(224, 0, 0))
            GRP.FillRectangle(theBrush, 0, PictureBoxZoom.Height - Hzone, Wzone, Hzone)
        End If
        GRP.Dispose()
        PictureBoxZoom.Image = Img.Clone
    End Sub

    Private Sub SaveData()
        Dim Nomfichier As String = selectedFolder + "\MemoRecadrages.txt"
        Dim Res(NbPhotosATraiter) As String
        For num = 0 To NbPhotosATraiter - 1
            Res(num) = Photos(num).Folder
            Res(num) += "|"
            Res(num) += Photos(num).Nom
            Res(num) += "|"
            Res(num) += Photos(num).Top.ToString
            Res(num) += "|"
            Res(num) += Photos(num).Bottom.ToString
            Res(num) += "|"
            Res(num) += Photos(num).Left.ToString
            Res(num) += "|"
            Res(num) += Photos(num).right.ToString
            Res(num) += "|"
            Res(num) += Photos(num).Zoom.ToString
            Res(num) += "|"
            Res(num) += Photos(num).ZoomMini.ToString
            Res(num) += "|"
            Res(num) += Photos(num).recadreH.ToString
            Res(num) += "|"
            Res(num) += Photos(num).recadreW.ToString
        Next
        System.IO.File.WriteAllLines(NomFichier, Res)
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        SaveData()
    End Sub

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

        Dim NomFichier As String = String.Concat(My.Application.Info.DirectoryPath, "\RedimJPegData.txt")
        Dim TempResultats() As String
        Dim FileOfResultats As System.IO.FileStream
        If File.Exists(NomFichier) Then
            FileOfResultats = File.OpenRead(NomFichier)
            TempResultats = File.ReadAllLines(NomFichier)
            FileOfResultats.Close()
            Dim Array() As String = Split(TempResultats(0), "|")
            selectedFolder = Array(0)
            photoHeight = Array(1)
            photoWidth = Array(2)
            EtablirListePhotos()
            control()
            If photoHeightIsOk Then TextBoxHauteur.Text = Array(1)
            If photoWidthIsOk Then TextBoxLargeur.Text = Array(2)
        End If
    End Sub

    Private Sub PictureBox_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox.DoubleClick
        SavePhoto()
        If CurrentPhoto < NbPhotosATraiter - 1 Then
            CurrentPhoto += 1
            LoadPhoto(CurrentPhoto)
        End If
    End Sub
End Class

Conclusion :


Simple et efficase

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
1
Date d'inscription
samedi 19 juillet 2003
Statut
Membre
Dernière intervention
13 avril 2009

à BADOQUEALEX:
Je suis preneur des idées pour simplifier le prog !
à GAEL51:
Je sais pour les commentaires j'aurais pu faire mieux, mais j'ai fait çà un peu vite !
Messages postés
6
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
13 avril 2009

Super program... quelques commentaire dans la source aurait rendu le truc plus digeste (8/10)
Messages postés
9
Date d'inscription
mercredi 1 avril 2009
Statut
Membre
Dernière intervention
10 juin 2009

BONJOUR,
comment lances-tu ton logiciel?
merci
Messages postés
129
Date d'inscription
mardi 20 juillet 2004
Statut
Membre
Dernière intervention
6 juin 2009

Pfiou que de chemmins détournés et d'égarement ... 5/10 (parce que ca fonctionne)

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.