How do I write code to include a zoom feature in my project so that when my Vb Form loads an image I can click in my main menu zoom in or zoom out?

--------------------------------
From: Mo Ade

-----------------------
Posted by a user from .NET 247 (http://www.dotnet247.com/)

<Id>6aW7IUJA+0CCEGJ4S8DRuA==</Id>

Hi,

I haven't got a complete answer for you but this should help:

Dim b As System.Drawing.Bitmap
b = New System.Drawing.Bitmap(newWidth, newHeight)
Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(b)
g.InterpolationMode =
Drawing.Drawing2D.InterpolationMode.HighQualityBilinear
g.DrawImage(PictureBox1.Image, New System.Drawing.Rectangle(0, 0, b.Width,
b.Height), 0, 0, PictureBox1.Image.Width, PictureBox1.Image.Height,
Drawing.GraphicsUnit.Pixel)
g.Dispose()

with the g.drawimage you can draw a piece of an image or a complete image on
a bigger or smaller bitmap/image hence zoom in/out but you'll have to
experiment with it to achieve what you want. Or maybe someone alse has got a
complete sample which you can use, I haven't got the time to make one now
because I'm to busy at work. And maybe someone else has got a better
solution.

hth Peter

my Vb Form loads an image I can click in my main menu zoom in or zoom out?
Show quoteHide quote

Mo Ade via .NET 247 wrote:
If you are open to using a commercial component
in your VB.NET project, our MetaDraw component
will allow both Zoom and Scroll.   You can specify
zoom by some ratio simply by writing

       MetaDraw.ZoomFactor =  XXXX
( where X is multiple or fraction of original size)

You can also let user create a zoom rectangle
Just set
      MetaDraw.EditMode = ED_Zoom
and user can draw zoom rectangle with mouse
and the image will be zoomed to show that area.

You can even allow user to zoom simply by holding
the CNTL key and using the Scroll Wheel of a mouse

    MetaDraw.ScrollMouse = ScrollType.WheelZoom
                 OR    MetaDraw.ScrollMouse

Also if you like when you are ready to print you
can zoom the printout, or print only some desired
portion of the image.

Take a look at www.Bennet-Tec.com and select MetaDraw.

I'd be happy to answer any questions you might
have about this


* * Please include a copy of this message with your reply

    Jeff Bennett
    Jeff @ Bennet-Tec.Com

    *    Bennet-Tec Information Systems, Inc
    *    50 Jericho Tpk, Jericho, NY 11753
    *    Phone 516 997 5596,  Fax - 5597
    *    RELIABLE Components Make You Look Sharp!
    *    TList/Pro    *    ALLText HT/Pro    *    MetaDraw    *
    *    Custom Software Development Services Too.
    *    WWW.Bennet-Tec.Com

===================     ===================

Microsoft not content with "dissing" just the Classic VB Developer Army....
Where to find good icons?
In-place Updating in Datagrid not working
Setup project registery values with app install folder in them
Event for PgUp and PgDn on Form
How to get current free physical memory ?
modify HTML in code behind
Set textbox1.enabled = false inside a module?
How to expose a structure to VB6 from VB.NET?
Datagrid problem