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 

2 réponses

Répondre au sujet
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
Utile
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"
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de jmf0
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
Utile
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 !
Cette réponse vous a-t-elle aidé ?  
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.