缩放操作
目前成都创新互联公司已为数千家的企业提供了网站建设、域名、虚拟空间、网站托管维护、企业网站设计、丁青网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。
Function 缩放(ByVal bitmap As Bitmap, ByVal 倍数 As Single) As Bitmap
Dim w As Integer = bitmap.Width * 倍数
Dim h As Integer = bitmap.Height * 倍数
Dim tem As New Bitmap(w, h)
Dim g As Graphics = Graphics.FromImage(tem)
g.DrawImage(bitmap, New Rectangle(0, 0, w, h), New Rectangle(0, 0, bitmap.Width, bitmap.Height), GraphicsUnit.Pixel)
g.Dispose()
Return tem
End Function
鼠标滚轮事件 MouseWheel
MouseEventArgs.Delta 值可以判断滚动方向
Pegasus的ImagXpress 8.0控件，支持各种格式文件的加载。控件封装了右键局部区域放大的功能，要实现图片的缩放，把AutoResize属性设置为PegasusImaging.WinForms.ImagXpress8.AutoResizeType.CropImage，修改 ZoomFactor的值就可以了。
在VB.NET操作缩放图像中的显示和保存缩放图像，用到Image和Graphics类，在VSDotNet2K3下面Reference里自动添加了引用System.Drawing，直接用就行。
实现VB.NET操作缩放图像代码如下：DimimgAsImageImage=Image.FromFile
(D:\Image\tstImage.jpg)
''tstImage是原先的图片DimgrfxAsGraphics=Me
.CreateGraphics
grfx.DrawImage(img,0,0,img.Width*
3,img.Height*3)''在Form里显示
DimimgnewAsNewSystem.Drawing.Bitmap
(img,img.Height*3,img.Width*3)
''新建一个放大的图片
imgnew.Save(D:\Image\tstNewImage.jpg,
System.Drawing.Imaging.ImageFormat.Jpeg)
''保存放大后图片
你可以建一个Form，然后在Form里拖进一个Button，把上面的代码放在Button_Click事件里面源码天空
，执行就行了。
对上面VB.NET操作缩放图像代码的解释：
1.要获取Graphics对象只能从某一事件的参数中获取或者使用窗体和控件对象的CreateGraphics方法来获取-----上面代码使用Me.CreateGraphics来引用这个对象。
2.加载一个图片用Image类的FromFile或者FromStream方法
3.用DrawImage来显示一个图片,该方法有30多个重载方法，可以查MSDN了解细节。
4.保存时的一个问题：我们必须先建一个对象，用于存缩放图像。
