关于vb.net中绘图并保存图片的问题

Imports System.Drawing.Imaging

成都创新互联提供高防物理服务器租用、云服务器、香港服务器、西部信息服务器托管等

Public Class Form1

Dim imageName As String = "C:\Documents and Settings\...\1126.jpg "

Dim i As Image = Image.FromFile(imageName)

Dim g As Graphics = Graphics.FromImage(i) '此处从背景图创建Greaphics

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'划线

Dim BluePen As New Pen(Color.Blue, 5)

BluePen.DashStyle = Drawing2D.DashStyle.Solid

g.DrawLine(BluePen, 100.0F, 170, 500.0F, 170)

g.Dispose()

PictureBox1.Image = i

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

'退出

Me.Close()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

'存盘

i.Save( "C:\testimage.jpg ", ImageFormat.Jpeg)

i.Dispose()

End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

PictureBox1.Image = i

End Sub

End Class

vb.net保存图片时如何调整其分辨率

保存前加一句 myImage2.SetResolution(300, 300) 你设置的bMape不是保存的主画布 所以无效，设置分辨率就是 SetResolution（X,Y）

vb.net 自己编写的一个图片处理软件 如何实现对处理后的图片的保存功能拜托了各位 谢谢

先用一个临时文件名保存，关闭原来的文件，删除它，然后把那个临时文件改名。Windows很多软件都是这么做的。

vb.net 保存图片问题

有什么问题吗？

你哪里不会呀？

这问题简单的要命，你看看MSDN 或者编程的时候找找属性方法，根据提示都可以做出来吧，感觉你真的不像是学VB.NET的

分享名称：vb.net保存图片模糊 vb 保存图片
标题网址：http://kswjz.com/article/doioshs.html