expanding/zooming in on picture

[shadowdemon]

can anyone help. i am using "loadpicture" to inport picture files into a picture box. Is ther an easy way to zoom in on the picture.??

[thebernieb]

Easy Money.

Just drop this code into a form with an image1 and it should work out. Its already commented so you should be able to follow.

Hope that helps,

Bernie

Private Sub Image1_Click()
Dim intImageTopStart As Integer
Dim intImageLeftStart As Integer
Dim intZoomLevel As Integer

'Set the level of the zoom.
'Setting it to 2 doubles the size..
'3 triples the size.. and so fourth
intZoomLevel = 2

'Find the initial top and left values so we can center the image
'after resizing

intImageTopStart = Image1.Top
intImageLeftStart = Image1.Left

'Set the value of stretch to true so when the image size is
'increased the photo will grow with it.
Image1.Stretch = True

'Increase the width and height by multiplying them by zoom level.
Image1.Width = Image1.Width * intZoomLevel ' Zoom Level (I used twice its size)
Image1.Height = Image1.Height * intZoomLevel 'Zoom Level (I used twice its size)

'Center the picture using the inital top and left values values
Image1.Top = intImageTopStart - (Int(Image1.Height / 4))
Image1.Left = intImageLeftStart - (Int(Image1.Width / 4))
Image1.Refresh

End Sub