ZOOM In ZOOM Out

Hello guys out there here i am again i have a problem regarding
on a picture or image on how can i manage my picture on an image
box/picture box to get along with zoom in and zoom out can anyone
there now what to do im a having difficulty on this code i hope you can help me thanks!!!

-HaKuMeTa-
-=-

Comments

  • Hmmm, sounds to me like all you would need to do is change the height and width properties of the picturebox.
  • : Hello guys out there here i am again i have a problem regarding
    : on a picture or image on how can i manage my picture on an image
    : box/picture box to get along with zoom in and zoom out can anyone
    : there now what to do im a having difficulty on this code i hope you can help me thanks!!!
    :
    : -HaKuMeTa-
    : -=-
    :
    First put a frame control in the form, then put an Image control inside the frame (make the image control of the same size of the frame contorl). Then put two command buttons in the form named cmdZoomIn and cmdZoomOut. Then put the codes in the click events of the command buttons. Don't forget to set the streach property of the image contorl to True.

    Private Sub cmdZoomIn_Click()
    Image1.Width = Image1.Width + 100
    Image1.Height = Image1.Height + 100
    Image1.Top = Image1.Top - 50
    Image1.Left = Image1.Left - 50
    End Sub

    Private Sub cmdZoomOut_Click()
    If Image1.Width > Frame1.Width And Image1.Height > Frame1.Height Then
    Image1.Width = Image1.Width - 100
    Image1.Height = Image1.Height - 100
    Image1.Top = Image1.Top + 50
    Image1.Left = Image1.Left + 50
    End If
    End Sub
    _____________________________________________________________________________
    Knowledge Is Power. Be Sure To Use This Power For Others WelFare. (;->

Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories