快上网专注成都网站设计 成都网站制作 成都网站建设
成都网站建设公司服务热线:028-86922220

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

vb.net图形放大 vb放大图片代码

在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放大图片代码
转载注明:http://6mz.cn/article/hjsgse.html

其他资讯