Récupérer les dimensions d'une image JPEG [Résolu]

Messages postés
27
Date d'inscription
mercredi 11 août 2004
Dernière intervention
13 avril 2013
- - Dernière réponse : jmf0
Messages postés
1566
Date d'inscription
mardi 26 décembre 2000
Dernière intervention
5 avril 2013
- 20 août 2009 à 15:25
Bonjour à tous
Je voudrais récupérer les dimensions d'une image .JPG avec VB6
Comment faire ?
Merci de votre réponse

Claude l'ancien
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
Messages postés
1566
Date d'inscription
mardi 26 décembre 2000
Dernière intervention
5 avril 2013
4
3
Merci
Bonjour,

Une manière parmi d'autres :

    Dim lWidth&, lHeight&
    Dim ObjStd As New StdPicture
    Set ObjStd = LoadPicture("d:\superdeb.jpg")
    lWidth = Me.ScaleX(ObjStd.Width, vbHimetric, vbPixels)
    lHeight = Me.ScaleY(ObjStd.Height, vbHimetric, vbPixels)
    Set ObjStd = Nothing
    MsgBox lWidth & " x " & lHeight & " pixels"

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 119 internautes nous ont dit merci ce mois-ci

Commenter la réponse de jmf0
Messages postés
1566
Date d'inscription
mardi 26 décembre 2000
Dernière intervention
5 avril 2013
4
3
Merci
Tout cela en espérant que tu développes bien sous VB6 et non sous VBA, comme le forumeur qui a ouvert cette discussion :
http://www.vbfrance.com/forum/sujet-RECUPERER-ATTRIBUT-DIMENSIONS-IMAGE_894067.aspx
Bien évidemment !

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 119 internautes nous ont dit merci ce mois-ci

Commenter la réponse de jmf0

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.