Redimensionnement d'image [VB6] - VB/VBA/VBS - Programmation
Marsh Posté le 14-06-2012 à 15:19:25
Rebonjour Cette fois ci j'ai un autre souci. En effet je dois redimensionner mes .jpg pour qu'elle soient à la taille 150*200 px. J'ai essayé de faire : Picture1.Picture = LoadPicture(path & nom, 0, 0, 150, 200) Où path & nom est le chemin de mon image. Mais l'image ne se redimensionne pas ! je ne trouve absolument rien sur internet pour redimensionner en VB6, vous pourriez m'aider s'il vous plaît ? Merci ! EDIT : Je viens également d'essayer ceci : Picture1.Picture = LoadPicture(path & nom) Picture2.PaintPicture Picture1.Picture, 0, 0, 150, 200 SavePicture Picture2.Picture, destination & number & ".png" Mais j'ai une erreur : Erreur d'exécution '380' : Valeur de propriété incorrecte EDIT2 : Encore un test non concluant... J'ai essayé de le faire avec un image control mais quand je sauvegarde la taille reste identique à l'originale.
Make sure you enter the(*)required information where indicate.HTML code is not allowed
Marsh Posté le 14-06-2012 à 15:19:25
Rebonjour
Cette fois ci j'ai un autre souci. En effet je dois redimensionner mes .jpg pour qu'elle soient à la taille 150*200 px. J'ai essayé de faire :
Picture1.Picture = LoadPicture(path & nom, 0, 0, 150, 200)
Où path & nom est le chemin de mon image. Mais l'image ne se redimensionne pas ! je ne trouve absolument rien sur internet pour redimensionner en VB6, vous pourriez m'aider s'il vous plaît ?
Merci !
EDIT :
Je viens également d'essayer ceci :
Picture1.Picture = LoadPicture(path & nom)
Picture2.PaintPicture Picture1.Picture, 0, 0, 150, 200
SavePicture Picture2.Picture, destination & number & ".png"
Mais j'ai une erreur :
Erreur d'exécution '380' :
Valeur de propriété incorrecte
EDIT2 :
Encore un test non concluant... J'ai essayé de le faire avec un image control mais quand je sauvegarde la taille reste identique à l'originale.
Message édité par Mnoxis le 14-06-2012 à 15:37:18