Miniature dans controle ImageRésolu

Question

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 !

tpoinsot · Accepted Answer

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

Sinsitrus · Answer

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

Miniature dans controle Image

2 réponses

Votre réponse

Discussions similaires