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

Claude Azoulai 27 Messages postés mercredi 11 août 2004Date d'inscription 13 avril 2013 Dernière intervention - 20 août 2009 à 15:05 - Dernière réponse : jmf0 1566 Messages postés mardi 26 décembre 2000Date d'inscription 5 avril 2013 Dernière intervention
- 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
jmf0 1566 Messages postés mardi 26 décembre 2000Date d'inscription 5 avril 2013 Dernière intervention - 20 août 2009 à 15:21
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"

Merci jmf0 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 92 internautes ce mois-ci

Commenter la réponse de jmf0
Meilleure réponse
jmf0 1566 Messages postés mardi 26 décembre 2000Date d'inscription 5 avril 2013 Dernière intervention - 20 août 2009 à 15:25
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 !

Merci jmf0 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 92 internautes 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.