13518219792
Pegasus的ImagXpress 8.0控件，支持各种格式文件的加载。控件封装了右键局部区域放大的功能，要实现图片的缩放，把AutoResize属性设置为PegasusImaging.WinForms.ImagXpress8.AutoResizeType.CropImage，修改 ZoomFactor的值就可以了。
成都创新互联公司服务项目包括庆云网站建设、庆云网站制作、庆云网页制作以及庆云网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，庆云网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到庆云省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
。net 不用api就行
缩放操作
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 值可以判断滚动方向
PictureBox.SizeMode
属性
默认情况下，在
Normal
模式中，Image
置于
PictureBox
的左上角，凡是因过大而不适合
PictureBox
的任何图像部分都将被剪裁掉。
使用
StretchImage
值会使图像拉伸或收缩，以便适合
PictureBox。
使用
Zoom
的值可以使图像被拉伸或收缩以适应
PictureBox；但是仍然保持原始纵横比。
使用
AutoSize
值会使控件调整大小，以便总是适合图像的大小。
使用
CenterImage
值会使图像居于工作区的中心。
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
