Picturebox image zoom + moving function

[oxbow123]

Hello,

I would like to fit an image in a picturebox but without strechting it like :

"PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage"

Just a zoom where the full picture is displayed like in IE6.


Second thing I try to do is to allow user to move the picture inside the picturebox when the original picture is bigger than the picturebox.


Thanks

[nemaroller]

Its easy to fit a picture inside a picturebox... without stretching. The problem is that making the picture appear normal requires a design decision on your part...

Since an image may have dimensions of 450 x 200, but your picturebox may be 600 X100 (extreme example), you can't simply assign it, or you lose the proportions of the original image's height and width. In an image of 450 x 200, you have a proportion of 2.25 : 1. While your picturebox has a proportion of 6:1. That's a problem.

So, do you want to expand your picturebox dimensions to fit the image? Or do you scale in/out the image to fit the dimensions of the picturebox?

[oxbow123]

I would like to scale a copy of the picture into the picturebox.

That's the picture who should be resized, not the piturebox.

Original image is keep to be saved later.


Thanks

[oxbow123]

Dim Width As Integer
        Dim Height As Integer
        Dim Ratio As Decimal
 
        If PictureBox1.Tag > -1 And Not PictureBox1.Tag Is Nothing Then
 
            If RadioButton1.Checked = True Then              'Option Zoom 100%
                Height = PictureArray(PictureBox1.Tag).Height
                Width = PictureArray(PictureBox1.Tag).Width
            Else
' Option Zoom Fit Image in Picturebox
                Ratio = PictureArray(PictureBox1.Tag).width / PictureArray(PictureBox1.Tag).height
                If Ratio < (PictureBox1.Width / PictureBox1.Height) Then
                    Height = PictureBox1.Height
                    Width = PictureBox1.Width * Ratio
                Else
                    Height = PictureBox1.Height / Ratio
                    Width = PictureBox1.Width
                End If
 
            End If
            PictureBox1.Image = PictureArray(PictureBox1.Tag).GetThumbnailImage(Width, Height, Nothing, Nothing)
        End If

Does anyone know How can I move the Image if it is bigger than the picturebox ??? (scrollbar or mouse event)