Réduction d'image

Question

Salut !

J'ai créer un bidule qui affiche dans un composant Image l'image du lien sélectionné.
Il affiche en même temps a partir d'un autre composant Image suite à ce code :
With I_LogoM
.Visible = False
.Stretch = False
.Picture = LoadPicture(App.Path & "\Images\Logo_001.jpg")
 Ratio = .Width / .Height
.Height = 2175
.Width = .Height * Ratio
.Stretch = True
.Visible = True
End With la miniature.

Je souhaiterais enregistrer au clique du bouton la miniature à la taille affichée...
Serait-il possible que vous m'aidiez sur ce point ?

Supposons que I_Logo est de 1024*760 et I_LogoM devient 800*600, je voudrais avoir une miniature redimensionnée à 800*600 dans mon dossier App.Path & "\Images\LogoMini_001.jpg

Merci						

----------
OS        : Windows XP SP3 et Vista 32
Platforme : VB 6.0 + SP6
Ok VB6.0 c'est pas net !

cs_GG29 · Answer

Je pense que cette source t'aidera
http://www.vbfrance.com/codes/REDIMENSIONNER-IMAGE-TAILLE-SAUVEGARDE-VB-NET_27672.aspx

Sinsitrus · Answer

Salut et merci pour ton aide, mais c'est une source VBNet :s
J'ai pô !

cs_GG29 · Answer

Dans ce cas cette source devrait t'éclairer
http://www.vbfrance.com/codes/REDIMENSIONNER-IMAGE-COMPRESSION-JPG-TAILLE-MAXI-LISTE-APERCU_42176.aspx

Réduction d'image

3 réponses

Votre réponse

Discussions similaires