connaîtres les dimensions d'une image

Question

Bonjour,
J'ai un problème. Je voudrai pouvoir savoir les dimensions d'une image en l'ouvrant ou de toutes autre facon sauf celle de la charger dans une picture box et de recuperer les proprietes(c'est bien trop lourd). Je viens de faire une recherche mais je n'ai rien trouver de bien concluant donc si quelqu'un pouvait m'aider, cela serait vraiment gentil à lui.

Merci d'avance

jotrash[vb]

cs_EBArtSoft · Answer

Essaie le code ci dessous :

Option Explicit

Private Type BITMAP '14 bytes
    bmType          As Long
    bmWidth         As Long
    bmHeight        As Long
    bmWidthBytes    As Long
    bmPlanes        As Integer
    bmBitsPixel     As Integer
    bmBits          As Long
End Type

Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long

Private Sub Command1_Click()
    Dim Pic As StdPicture
    Dim Bmp As BITMAP
    Set Pic = LoadPicture("C:\MonImage.jpg")
    GetObject Pic.Handle, Len(Bmp), Bmp
    MsgBox "Image X: " & Bmp.bmWidth & " Y:" & Bmp.bmHeight
    Set Pic = Nothing
End Sub

Le probleme c'est que l'image est charger en memoire
comme pour un picturebox ! une autre technique serait de
lire les x et y selon le format de l'image jpg tiff bmp etc...
mais pour cela il faut connaitre tout les formats 

@+

E.B.

jotrash · Answer

Super !
ca marche super bien, et ce n'est pas lourd du tout et cela s'éxecute très vite.
Merci beaucoup pour ta solution

@**

Connaîtres les dimensions d'une image

2 réponses

Discussions similaires