Sub 图片缩放()
创新互联专注于永吉网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供永吉营销型网站建设，永吉网站制作、永吉网页设计、永吉网站官网定制、小程序设计服务，打造永吉网络公司原创品牌,更为您提供永吉网站排名全网营销落地服务。
Dim SngPer As Single = 1 '放大或缩小的比例 放大2倍时SngPer=2,缩小3倍时 SngPer=1/3
Dim PicOld As Image = Image.FromFile("原图片路径")
Dim PicNew As New System.Drawing.Bitmap(PicOld, PicOld.Width * SngPer, PicOld.Height * SngPer)
PicNew.Save("新图片路径", Drawing.Imaging.ImageFormat.Jpeg)
End Sub
实现代码：
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
Pegasus的ImagXpress 8.0控件，支持各种格式文件的加载。控件封装了右键局部区域放大的功能，要实现图片的缩放，把AutoResize属性设置为PegasusImaging.WinForms.ImagXpress8.AutoResizeType.CropImage，修改 ZoomFactor的值就可以了。