Chargement im ds picturebox sans deformation (fonction)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 703 fois - Téléchargée 30 fois

Contenu du snippet

Voila une fonction a mettre dans un module pour charger une image dans un picturebox en utilisant la fonction stretch(comme le ctrl image) et en gardant le rapport H*L + centrage!!

3 Arguments:
Chemin : le chemin de l'image ex c:\\\\image.jpg
Destination : le picturebox de destination
Centrage : True, false si omis true!!!!

Ex : ChargeImage "c:\\image.jpg", Picture1, False
Une alternative intéréssante au loadpicture pour les débutants!!??

Source / Exemple :


'Dans un module
Public Function ChargeImage(Chemin As String, Destination As PictureBox, Optional Centrage As Boolean = True)
Dim Pic As StdPicture
Set Pic = LoadPicture(Chemin)
Destination.AutoRedraw = True
'si la taille est plus petite que la picturebox
If Pic.Width < Destination.Width And Pic.Height < Destination.Height Then
Coeff = 1
X = (Destination.Width - Pic.Width) / 2
Y = (Destination.Height - Pic.Height) / 2
GoTo Affiche_image
End If
'definition du coefficient selon l'orientation de l'image
If Pic.Width > Pic.Height Then
    Coeff = Pic.Width / Destination.Width
    X = 0
    Y = (Destination.Height - (Pic.Height / Coeff)) / 2
Else
    Coeff = Pic.Height / Destination.Height
    X = (Destination.Width - (Pic.Width / Coeff)) / 2
    Y = 0
End If
Affiche_image:
Destination.Cls
NewLargeur = Pic.Width / Coeff
NewHauteur = Pic.Height / Coeff
If Centrage = True Then
Destination.PaintPicture Pic, X, Y, NewLargeur, NewHauteur
Else
Destination.PaintPicture Pic, 0, 0, NewLargeur, NewHauteur
End If
End Function

'Dans la form Pour charger l'image
ChargeImage "c:\\image.jpg", Picture1, True

Conclusion :


Voila j'éspere que ce code vous sera utile!!!????

A voir également

Ajouter un commentaire

Commentaires

matttop
Messages postés
6
Date d'inscription
mercredi 17 février 2010
Statut
Membre
Dernière intervention
24 mars 2010

Aussi je voudrais savoir ou je déclare x et y?

Merci
matttop
Messages postés
6
Date d'inscription
mercredi 17 février 2010
Statut
Membre
Dernière intervention
24 mars 2010

Bonjour je suis débutant en VB.net

Lorsque je teste ce source les déclarations suivantes ne sont pas valides:

Dim Pic As StdPicture
Pic = LoadPicture(Chemin)
Destination.AutoRedraw = True

std picture, load picture, et destination ne sont pas reconnus

Que faire?

Merci
yiab
Messages postés
27
Date d'inscription
jeudi 10 juillet 2008
Statut
Membre
Dernière intervention
31 mai 2015

merci et merci 20 sur 10 c'est ça que je cherchais
Golog
Messages postés
224
Date d'inscription
jeudi 31 janvier 2002
Statut
Membre
Dernière intervention
22 décembre 2009

parfait , c'est ce qu'il me fallait ^^
cs_Dede
Messages postés
61
Date d'inscription
mercredi 2 janvier 2002
Statut
Membre
Dernière intervention
24 juillet 2006

Pour mon prog, c'est parfait.
J'y vais voir de ce pas (ton ocx), et je te dis ce que j'en pense.
A +
Dede

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.