zoom in and zoom out

how to write the code to zoom in or zoom out the picture? can anybody provide the code on zoom in or out function?

See if this sample works for you.

Quote:

---

Originally Posted by RhinoBull

See if this sample works for you.

---

this sample is zoom in or zoom out the picture box' size.
what i want is zoom in or zoom out the actual picture's size which i loaded but the picture box's size is still maintain.

Something similar

Code:

---

Private mPic As Picture
Private mWidth As Single, mHeight As Single

Private Sub Form_Load()
    Set mPic = LoadPicture("D:\pic1.JPG") '(Add the Path to your Picture here)
    mWidth = Picture1.ScaleX(mPic.Width, vbHimetric, Picture1.ScaleMode)
    mHeight = Picture1.ScaleY(mPic.Height, vbHimetric, Picture1.ScaleMode)
   
    Picture1.AutoRedraw = True
    Picture1.PaintPicture mPic, 0, 0
End Sub

Private Sub Command1_Click()
    ZoomPicture Picture1, 0.9
End Sub
Private Sub Command2_Click()
    ZoomPicture Picture1, 1.1
End Sub

Public Sub ZoomPicture(pct As PictureBox, zoom As Double)
    pct.Cls
    mWidth = mWidth * zoom
    mHeight = mHeight * zoom
    pct.PaintPicture mPic, 0, 0, mWidth, mHeight
End Sub

---

Quote:

---

Originally Posted by junlo

this sample is zoom in or zoom out the picture box' size...

---

But that was done intentionally or it will look sort of unfinished otherwise.
If you want to keep the orginal controls size place your main picturebox (without the borders) into another picturebox (with the borders) that can work like container.
You will resize picturebox that displays picture but container will stay unchanged.

Code:

---

Private Sub Form_Load()
Dim lPic As Picture   
Me.Picture1.AutoRedraw = True 
 Set lPic = LoadPicture("C:\YourPicture.jpg") 'Use the correct path and filename here 
 ResizePicture Me.Picture1, lPic
End Sub

Private Sub ResizePicture(pBox As PictureBox, pPic As Picture)
Dim lWidth      As Single, lHeight    As Single
Dim lnewWidth  As Single, lnewHeight As Single   

'Clear the Picture in the PictureBox 
  pBox.Picture = Nothing 
     
'Clear the Image  in the Picturebox   
pBox.Cls     
 
 'Get the size of the Image, but in the same Scale than the scale used by the PictureBox
  lWidth = pBox.ScaleX(pPic.Width, vbHimetric, pBox.ScaleMode)   
lHeight = pBox.ScaleY(pPic.Height, vbHimetric, pBox.ScaleMode) 

      'If image Width > pictureBox Width, resize Width
  If lWidth > pBox.ScaleWidth Then 
    lnewWidth = pBox.ScaleWidth              'new Width = PB width
      lHeight = lHeight * (lnewWidth / lWidth) 'Risize Height keeping proportions   
Else
      lnewWidth = lWidth                      'If not, keep the original Width value   
End If       

'If the image Height > The pictureBox Height, resize Height
  If lHeight > pBox.ScaleHeight Then
        lnewHeight = pBox.ScaleHeight                  'new Height = PB Height     
  lnewWidth = lnewWidth * (lnewHeight / lHeight)  'Risize Width keeping proportions 
  Else       
lnewHeight = lHeight                            'If not, use the same value   
End If   

  'add resized and centered to Picturebox 
  pBox.PaintPicture pPic, (pBox.ScaleWidth - lnewWidth) / 2, _
                            (pBox.ScaleHeight - lnewHeight) / 2, _
                            lnewWidth, lnewHeight                               

'Update the Picture with the new image if you need it   
Set pBox.Picture = pBox.Image
End Sub
You can add ResizePicture sub in a module (declare it Public) if you want.

---

i use code above,but came out an error "object variable or with block variable not set" and point to the line code(red color)