vb.net框选放大图像 vb利用命令按钮放大和缩小图像框

vb.net中怎么实现图片缩小和放大

Pegasus的ImagXpress 8.0控件，支持各种格式文件的加载。控件封装了右键局部区域放大的功能，要实现图片的缩放，把AutoResize属性设置为PegasusImaging.WinForms.ImagXpress8.AutoResizeType.CropImage，修改 ZoomFactor的值就可以了。

成都创新互联专业为企业提供睢阳网站建设、睢阳做网站、睢阳网站设计、睢阳网站制作等企业网站建设、网页设计与制作、睢阳企业网站模板建站服务，10多年睢阳做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。

VB中如何才能自动放大缩小图片填充到图片框中啊？

实现代码：

VERSION 5．00

BeginVB．FormForm1

Caption＝＂使用PictureBox控件实现图像放大和缩小＂

ClientHeight＝5580

ClientLeft＝60

ClientTop＝345

ClientWidth＝7935

LinkTopic＝＂Form1＂

ScaleHeight＝5580

ScaleWidth＝7935

StartUpPosition＝3＇窗口缺省

BeginVB．PictureBoxPicture1

AutoRedraw＝－1＇True

AutoSize＝－1＇True

Height＝3960

Left＝－15

Picture＝＂Form1．frx＂：0000

ScaleHeight＝3900

ScaleWidth＝6240

TabIndex＝2

Top＝15

Width＝6300

End

BeginVB．CommandButtonCommand2

Caption＝＂放大＂

Height＝360

Left＝6540

TabIndex＝1

Top＝5070

Width＝1140

End

BeginVB．CommandButtonCommand1

Caption＝＂缩小＂

Height＝360

Left＝5160

TabIndex＝0

Top＝5070

Width＝1140

End

End

AttributeVB＿Name＝＂Form1＂

AttributeVB＿GlobalNameSpace＝False

AttributeVB＿Creatable＝False

AttributeVB＿PredeclaredId＝True

AttributeVB＿Exposed＝False

DimiAsInteger

DimjAsInteger

PrivateSubCommand1＿Click（）

Picture1．Cls

i＝i－100：j＝j－100

Picture1．PaintPicturePicture1．Picture，0，0，i，j

Picture1．Width＝i：Picture1．Height＝j

EndSub

PrivateSubCommand2＿Click（）

Picture1．Cls

Picture1．Width＝i：Picture1．Height＝j

i＝i＋100：j＝j＋100

Picture1．PaintPicturePicture1．Picture，0，0，i，j

EndSub

PrivateSubForm＿Load（）

i＝Picture1．Width：j＝Picture1．Height

Picture1．Cls

EndSub

VB6．0通过PictureBox控件实现图片放大和图片缩小功能

扩展资料：

其它方法：

例子前请先下载Gdiplus．tlb，并将其放置到C：＼Windows＼System32中

Gdiplus．tlb下载

VisualBasiccode

使用Gdiplus．tlb，将其放到system32中，然后添加对其的引用

手动设置Form的AutoRedraw＝True，ScaleMode＝Pixels

OptionExplicit

DimlngGraphicsAsLong

DimlngImageHandleAsLong

DimlngTextureBrushAsLong

DimgpPAsGpStatus

DimlngPen1AsLong

DimlngTokenAsLong

DimGpInputAsGdiplusStartupInput

PrivateSubCommand1＿Click（）

DimintPAsInteger

gpP＝GdipCreateFromHDC（Me．hDC，lngGraphics）＇创建绘图区域设备场景

gpP＝GdipLoadImageFromFile（App．Path＆＂＼启动．png＂，lngImageHandle）＇读取图片到内存

gpP＝GdipDrawImage（lngGraphics，lngImageHandle，0，0）＇等大小绘制

gpP＝GdipDrawImageRect（lngGraphics，lngImageHandle，200，0，300，300）＇在指定的区域内绘制（放大或缩小）

gpP＝GdipDrawImageRectRectI（lngGraphics，lngImageHandle，550，0，400，400，20，20，80，80，UnitPixel）＇在400＊400的区域内显示图片部分区域

gpP＝GdipCreateTexture（lngImageHandle，WrapModeTile，lngTextureBrush）＇设置一定排列方式的刷子平铺方式

gpP＝GdipFillRectangle（lngGraphics，lngTextureBrush，0，300，400，300）＇在指定区域内按指定的格式绘制图片

IflngGraphics＜＞0ThenGdipDeleteGraphicslngGraphics

IflngImageHandle＜＞0ThenGdipDisposeImagelngImageHandle

IflngTextureBrush＜＞0ThenGdipDeleteBrushlngTextureBrush

Me．Refresh

EndSub

PrivateSubForm＿Load（）

DimbolPAsBoolean

WithMe

．Caption＝＂GDIPlus范例＂

．Width＝960＊15

．Height＝720＊15

．Left＝（Screen．Width－．Width）＊0．5

．Top＝（Screen．Height－．Height）＊0．5

EndWith

GpInput．GdiplusVersion＝1

IflngToken＝0ThenbolP＝（GdiplusStartup（lngToken，GpInput）＝Ok）

EndSub

如何正确掌握VB.NET操作缩放图像

在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.保存时的一个问题：我们必须先建一个对象，用于存缩放图像。

vb.net当鼠标移入pictureBox时,单独显示一个放大的图片?

缩放操作

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 值可以判断滚动方向