Redimensionner une image

Question

Bonjour,

J'ai écris ce petit bout de code pour redimensionner une image :

    Private Function ThumbnailCallback() As Boolean
        Return False
    End Function

    Private subThumbnail(ByVal ImagePath As String, ByVal DestinationPath As String, ByVal NewSize As Size) 
            Dim oImage As Image = Image.FromFile(ImagePath)

            Dim oCallBack As Image.GetThumbnailImageAbort = New Image.GetThumbnailImageAbort(AddressOf ThumbnailCallback)

            oImage = oImage.GetThumbnailImage(NewSize.Width, NewSize.Height, oCallBack, IntPtr.Zero)
 
            oImage.Save(DestinationPath)
    End Sub

Mon problème est le suivant, je ne suis pas capable, une fois l'image réduite créee, d'effacer l'image original, car le programme me dit que le fichier image est utilisé par un autre processus. Donc, il y a quelquepart dans ce bout de code, où je dois omettre de fermer quelquechose, un peu comme avec les fichiers ? Sauf, je n'arrive pas à trouver quoi ...

Merci
a+

bouv · Answer

A la fin de Private subThumbnail, essai d'ajouter la ligne suivante 

Set oImage = Nothing

Bonne prog ++

kiboumz · Answer

Salut,

J'avais esseyé, mais sans succès ...

Merci
a+

metoui fethi · Answer

fethi envoye moi tout l'interface pour faire un exemple d'exicution. je vas voir l'emplacement d'erreur.
sur  e-mail: matoui_fethi@yahoo.fr

mautone32 · Answer

Bonjour,

Pourriez-vous me donner la solution à son problème, svp ?? J'ai aussi ce genre de problème.

Merci et désolé de reouvrir un ancien message.

euloiix · Answer

Egalement intéressé par la solution :-) (désolé pour les 2 ans de retard)

Redimensionner une image

5 réponses

Votre réponse

Discussions similaires