>I am trying to get the dimensions of "*.jpg" and "*.gif" - files.

>There have to be a better solution than cheating by preloading it into a
>hidden PicBox & read it from there....

>I got bitmaps(*.bmp) right, by sending a BITMAP to GetObjectAPI, but I
don't
>have a
>clue with the other filetypes.

>Any help appreciated??

>Thanks, Per Rollvang

>I am trying to get the dimensions of "*.jpg" and "*.gif" - files.

>There have to be a better solution than cheating by preloading it into a
>hidden PicBox & read it from there....

>I got bitmaps(*.bmp) right, by sending a BITMAP to GetObjectAPI, but I don't

> >I am trying to get the dimensions of "*.jpg" and "*.gif" - files.

> >There have to be a better solution than cheating by preloading it into a
> >hidden PicBox & read it from there....

> >I got bitmaps(*.bmp) right, by sending a BITMAP to GetObjectAPI, but I
don't

> Help for LoadPicture Function:
> "Graphics formats recognized by Visual Basic include bitmap (.bmp)
> files, icon (.ico) files, cursor (.cur) files, run-length encoded (.rle)
> files, metafile (.wmf) files, enhanced metafiles (.emf), GIF (.gif)
> files, and JPEG (.jpg) files."

>   Dim xpixels As Long, ypixels As Long
>   Dim filename As String
>   Dim APicture As Picture

>   filename = "whatever"

>   Set Apicture = LoadPicture(filename)

>   xpixels = Me.ScaleX(APicture.Width, vbHimetric, vbPixels)
>   ypixels = Me.ScaleY(APicture.Height, vbHimetric, vbPixels)

>   Set Apicture = Nothing

> Getting the dimensions of jpg and gif directly from the disk file is
> nightmarish, and just not worth the effort when you can use the above
> code.

> --
> Richard Mason

>This is pretty much what I was looking for. The only drawback is that I will
>use this code with a usercontrol-object, and I have to implement the
>FileOpen-Dialog in there too, because the UserControl provide the dialog,
>but return only hPicture.

> >This is pretty much what I was looking for. The only drawback is that I
will
> >use this code with a usercontrol-object, and I have to implement the
> >FileOpen-Dialog in there too, because the UserControl provide the dialog,
> >but return only hPicture.

> You've lost me here.

> >The other possible solution I wonder .. is it possible to load the gif /
jpg
> >into a memoryDC? What do you search for with GetObjectAPI, is this
possible
> >at all ??

> I'm not sure if this is what you mean.

> Using the same code:

>   Set Apicture = LoadPicture(filename)

>   xpixels = Me.ScaleX(APicture.Width, vbHimetric, vbPixels)
>   ypixels = Me.ScaleY(APicture.Height, vbHimetric, vbPixels)

> 'Select into a DC
>   'selecting into a memory DC
>   hdcNew = CreateCompatibleDC(0&)
>   hbmpOld = SelectObject(hdcNew, APicture.Handle)

> 'Use GetObjectAPI
>   Dim bmap As BITMAP
>   lret = GetObjectAPI(APicture.Handle, Len(bmap), bmap)

> If one doesn't want to use the ScaleX/Y function then Himetric to Pixels
> can be directly calculated.

> --
> Richard Mason