vb.net将图缩小 vb做图片放大缩小代码

VB.NET picturebox 内绘图完图形放大缩小移动 鼠标控制 。比较笨看了VB的代码不明白 求解

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

vb.net 如何放大和缩小图片

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

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中怎么实现图片缩小和放大

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

在VB.NET下面如何显示和保存缩放图像

实现代码如下：

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

vb.net如何将JPG文件缩放至不大于指定的字节数

1.我有个思路可以尝试一下：把一张字节数在280-300K的图片用PS打开看看像素大小；

2.定义一个新的位图，指定像素大小为上面得到的数据；

3.读取你需要修改大小的JPG文件，然后按指定大小复制到上面新建的位图，并保存为JPG格式