在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 怎么把一张大图 缩放到 和图片框一样大小显示

PictureBox.SizeMode

属性

默认情况下，在

Normal

模式中，Image

置于

PictureBox

的左上角，凡是因过大而不适合

PictureBox

的任何图像部分都将被剪裁掉。

使用

StretchImage

值会使图像拉伸或收缩，以便适合

PictureBox。

使用

Zoom

的值可以使图像被拉伸或收缩以适应

PictureBox；但是仍然保持原始纵横比。

使用

AutoSize

值会使控件调整大小，以便总是适合图像的大小。

使用

CenterImage

值会使图像居于工作区的中心。

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

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

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.net 数组添加的图片框 怎么单价单击图片框的时候 放大图片框呢?

'初始化的时候添加事件

Private Sub Main_Load(....) Handles MyBase.Load

AddHandler pic_10.Click, New EventHandler(AddressOf Pic_Click)'pic_10为你自创建图片的需放大的图片名称

End Sub

'自定义控件处理函数(注意TabIndex的编号)

Protected Sub Pic_10Click(ByVal sender As Object, ByVal e As EventArgs)

'在这放大图片

pic_10.Width+=20

pic_10.Height+=20

End Sub

分享名称：vb.net图形放大 vb放大图片代码
本文URL：http://scgulin.cn/article/hjsgse.html