Miniature dans controle Image

Résolu
Signaler
Messages postés
855
Date d'inscription
samedi 11 juin 2005
Statut
Membre
Dernière intervention
21 août 2015
-
Messages postés
855
Date d'inscription
samedi 11 juin 2005
Statut
Membre
Dernière intervention
21 août 2015
-
Salut !

On sais que le stretch = true rends l'image telle qu'elle est en taille réelle, mais pendant la miniature quand on met la valeur en False, elle prends la mesure du cadre dessiné dans le controle image.
Comment rendre ma miniature en meilleur état ?

Merci

----------
OS : Windows XP SP3 et Vista 32
Platforme : VB 6.0 + SP6
Ok VB6.0 c'est pas net !

2 réponses

Messages postés
345
Date d'inscription
mardi 1 juin 2004
Statut
Membre
Dernière intervention
17 octobre 2014
4
Bonjour,
C'est vrai que ce controle est rudimentaire, et pour faire mieux, on préfère le PictureBox.
Si j'ai bien compris, ton "meilleur état" c'est sans déformation.

je te propose ceci de charger le fichier en stretch=false (le controle se redimensionne) puis tu réduis les dimensions proportionnellement et tu mets stretch=true.
soit:
with image1
.visible=false
.stretch=false
.picture=loadpicture("c:\.....")
ratio = .width/.height
.height= 1000
.width= .height * ratio
.stretch=true
.visible=true
end with


thip
Messages postés
855
Date d'inscription
samedi 11 juin 2005
Statut
Membre
Dernière intervention
21 août 2015

Salut tpoinsot, merci pour ton bout de code ! Il m'a servi comme tu peux pas savoir !
Encore merci