How to create a zoom feature in Vb.Net

[Mo Ade via .NET 247]

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>

[Peter Proost]

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.HighQualityBil inear
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

"Mo Ade via .NET 247" <an*******@dotnet247.com> schreef in bericht
news:et**************@TK2MSFTNGP15.phx.gbl...

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>

[jeff]

Mo Ade via .NET 247 wrote:

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?

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 [phone], Fax - 5597
* RELIABLE Components Make You Look Sharp!
* TList/Pro * ALLText HT/Pro * MetaDraw *
* Custom Software Development Services Too.
* WWW.Bennet-Tec.Com

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