How do i Set an autosize(or auto fit)an image into the picturebox

[Dravid]

Hello,

I am putting together a simple picture viewing program to view jpg pictures. I have the picturebox autosize set to true. I dont have the
picturebox in a pannel set to autoscroll, so if I get a picture that is
larger than the width/height of the containing form (pannel, etc) I can't able to
scroll. When I open this pic in Microsoft Photo Editor - it
opens to 50% zoom by default. How can I set the zoom in my picturebox which
is set to autosize? How do I set the zoom? Like if I get the image size say
1900x800 I will automatically zoom the image to 50%. How do I set the zoom
of the image? I tried Img.Zoom, but there is no .Zoom.

Thanks,
Dravid.

[kadghar]

i think you can use PictureSizeMode ;
e.g.

Image1.PictureS izeMode = 1

If you set it to 0 I'll put the picture in its original size even if it doesnt fit in your Image (wont show the complete picture)

If you set it to 1 it'll strech to fit your image

if you set it to 2 i'll zoom <--- i think this is the one you need.

(I dont have VB here, only VBA so i dont remember if this applies to for a picture box, but you can always use an Image)

Good Luck
Kad

[Muhammad Javaid]

I noted it from a forum and found it working as my requirement

'Picture1.Picture = Image1(1).Picture
    Picture1.ScaleMode = 3
    Picture1.AutoRedraw = True
    Picture1.PaintPicture Picture1.Picture, _
        0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, _
        0, 0, _
        Picture1.Picture.Width / 26.46, _
        Picture1.Picture.Height / 26.46
    Picture1.Picture = Picture1.Image