13518219792
。net 不用api就行
专注于为中小企业提供成都网站建设、成都网站设计服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业宽城免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了1000多家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。
缩放操作
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 值可以判断滚动方向
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的值就可以了。
实现代码如下：
Dim img As Image = Image.FromFile("D:\Image\tstImage.jpg") 'tstImage是原先的图片
Dim grfx As Graphics = Me.CreateGraphics
grfx.DrawImage(img, 0, 0, img.Width * 3, img.Height * 3) '在Form里显示
Dim imgnew As New System.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事件里面，执行就行了。
对上面代码的解释：
1.要获取Graphics对象只能从某一事件的参数中获取或者使用窗体和控件对象的CreateGraphics方法来获取-----上面代码使用Me.CreateGraphics来引用这个对象。
2.加载一个图片用Image类的FromFile或者FromStream方法
3.用DrawImage来显示一个图片,该方法有30多个重载方法，可以查MSDN了解细节。
4.保存时的一个问题：我们必须先建一个对象，用于存缩放图像。
1.我有个思路可以尝试一下：把一张字节数在280-300K的图片用PS打开看看像素大小；
2.定义一个新的位图，指定像素大小为上面得到的数据；
3.读取你需要修改大小的JPG文件，然后按指定大小复制到上面新建的位图，并保存为JPG格式
