vb.net保存图像 vbnet图像处理

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

提供两个思路

用printscreen,将其保存到文件，再调用outlook发出去，但是您说的超出一屏，就麻烦了；

以下代码保存为文件，引用自MSDN，由于我的SD版本不支持我的outlook,所以暂时无法给发送邮件的例子，请参考吧！

system.Windows.Forms.SendKeys.Send("%{PRTSC}")

If Not System.Windows.Forms.Clipboard.GetDataObject() Is Nothing Then

Dim oDataObj As IDataObject = System.Windows.Forms.Clipboard.GetDataObject()

If oDataObj.GetDataPresent(System.Windows.Forms.DataFormats.Bitmap) Then

Dim oImgObj As System.Drawing.Image = oDataObj.GetData(DataFormats.Bitmap, True)

'To Save as Bitmap

oImgObj.Save("F:\Test.bmp", System.Drawing.Imaging.ImageFormat.Bmp)

'To Save as Jpeg

oImgObj.Save("D:\Test.jpeg", System.Drawing.Imaging.ImageFormat.Jpeg)

'To Save as Gif

oImgObj.Save("d:\Test.gif", System.Drawing.Imaging.ImageFormat.Gif)

End If

2.另外出出报表，再调用outlook发出去，只给出数据性报表，而不一定是窗体本身；

将PictureBox控件里的图片，保存为文件：

1，文件格式不变化：

PictureBox1.Image.Save("C:\" Format(Now, "HH-mm-ss") ".bmp")

2，文件格式有变化：

PictureBox1.Image.Save("C:\" Format(Now, "HH-mm-ss") ".bmp", System.Drawing.Imaging.ImageFormat.Bmp)

分享名称：vb.net保存图像 vbnet图像处理
标题URL：http://azwzsj.com/article/hpgiod.html