[VB6] redimensionner picture d'une form [Résolu]

Philippe734 309 Messages postés lundi 16 décembre 2002Date d'inscription 15 juin 2015 Dernière intervention - 3 août 2010 à 15:25 - Dernière réponse : cesaryao 1 Messages postés mardi 7 mars 2006Date d'inscription 27 octobre 2010 Dernière intervention
- 27 oct. 2010 à 20:49
Bonjour,
J'assigne une image à la propriété picture d'une form mais l'image est beaucoup plus grand que la form. Je ne souhaite pas agrandir la form mais redimensionner l'image pour l'ajuster aux dimensions de la form. Comment faire ? Merci d'avance.
        Set Me.Picture = imgPhoto.Picture

        ' Me.Width et Me.Height ne doivent pas être redimensionner


Afficher la suite 

3 réponses

Répondre au sujet
Philippe734 309 Messages postés lundi 16 décembre 2002Date d'inscription 15 juin 2015 Dernière intervention - 5 août 2010 à 11:24
+3
Utile
Merci, mais je n'avais pas précisé que c'etait via VB que souhaitais le faire. En cherchant plus longuement sur le net j'ai trouvé grace à ce lien.

Il faut utiliser la propriété PaintPicture pour copier l'image de la picturebox vers la picturebox de destination puis la redimensionner. Définir la propriété picture de la picturebox de destination de manière à l'ajuster. Puis, sauvegarder les changements vis SavePicture.
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de Philippe734
Mayzz 2859 Messages postés mardi 15 avril 2003Date d'inscription 26 novembre 2013 Dernière intervention - 3 août 2010 à 20:01
0
Utile
Salut,

Tu peux la modifier avec n'importe quel logiciel de retouche. Paint par exemple qui est livré avec windows (Image/Redimentionner), ou paint.Net qui est gratuit (même manip).

@+

Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.
Commenter la réponse de Mayzz
cesaryao 1 Messages postés mardi 7 mars 2006Date d'inscription 27 octobre 2010 Dernière intervention - 27 oct. 2010 à 20:49
0
Utile
Salut Philippe734, pour redimensionner ton image tu n'a qu'à mettre ce code
:Me.PaintPicture Me.Picture,0,0,Me.Heigth,Me.width
au lieu de set Me.Picture = imgPhoto.Picture

ces@ri 99
Commenter la réponse de cesaryao

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.