Get dimensions of a GIF, JPG file

I need to get the dimensions (width and height) of a GIF and a JPG file using Visual Basic.Something like this:

  GetJPGDimensions (sFile as string, lWidth as long, lHeight as long)

  GetGIFDimennsions (sFile as string, lWidth as long, lHeight as long)

Jaume GelabertAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

paaskyCommented:
Hello jaumeg,

With Access VBA you could use these functions:

Global lWidth As Long
Global lHeight As Long

Public Sub GetJPGDimensions(sFile As String)
Dim MyImage As Object

    Set MyImage = LoadPicture(sFile)
    lWidth = MyImage.Width
    lHeight = MyImage.Height
   
    ' Free memory
    Set MyImage = Nothing

End Sub

Public Sub GetGIFDimensions(sFile As String)
Dim MyImage As Object

    Set MyImage = LoadPicture(sFile)
    lWidth = MyImage.Width
    lHeight = MyImage.Height
   
    ' Free memory
    Set MyImage = Nothing
   
End Sub

If you're looking how to do this with VB you should post it to Visual Basic Topic.

Regards,
Paasky
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
TrygveCommented:
You could of course combine the two since they are 100% equal...

Public Sub GetDimensions(sFile As String, lWidth as long, lHeight as long)
Dim MyImage As Object

    Set MyImage = LoadPicture(sFile)
    lWidth = MyImage.Width
    lHeight = MyImage.Height
     
    ' Free memory
    Set MyImage = Nothing

End Sub
0
paaskyCommented:
Trygve, I know...

And you can check size of many other picture file formats with the same way too.

Paasky
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Access

From novice to tech pro — start learning today.