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

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

VB中如何实现图片自动缩放

1.可以利用picture.mousemove()事件实现放大效果.即当鼠标经过时,图像的长宽分别加上一个固定值.实现"放大"效果.不过要注意就是,要先设置一个判断标志----放大了一次后就不要再放大了.不然,当鼠标一直在上面时,不断触发这个事件,会不断变大,与设想效果不同.

但,picutre控件本身没有鼠标离开事件,无法实现缩小.

2.幸好,窗体 form本身也有mousemove事件.并且,当鼠标经过窗体中控件表面时,

不会触发窗体本身的mousemove事件.那么.利用这点.以下程序演示实现LZ要求.

VB6中新建工程,一个窗体,窗体上放置一个picture控件.图像什么随便设置.大小也是自己设置

全部代码如下:

Dim ch As Boolean '图像改变大小标志

Private Sub Form_Load()

ch = False '程序运行时,鼠标肯定还没有经过图像,所以,假

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If ch Then '已经放大了,则缩小,当鼠标离开图像时.

Picture1.Width = Picture1.Width - 200 '这个值200和以下的300自己改吧

Picture1.Height = Picture1.Height - 300

ch = False

End If

End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Not ch Then '鼠标经过,且,还没有放大过.放大一次.

Picture1.Width = Picture1.Width + 200 '这个值200和以下的300自己改吧

Picture1.Height = Picture1.Height + 300

ch = True

End If

End Sub

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

PictureBox.SizeMode

属性

默认情况下，在

Normal

模式中，Image

置于

PictureBox

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

PictureBox

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

使用

StretchImage

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

PictureBox。

使用

Zoom

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

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

使用

AutoSize

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

使用

CenterImage

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

本文名称：关于vb.net实现图像缩放的信息
网站网址：http://scyingshan.cn/article/hhjoje.html