vbnet保留绘图 vb中savepicture

关于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 GDI绘图刷新问题

绘图代码写在Paint事件中，如

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

Dim g As Graphics = Me.CreateGraphics

g.DrawLine(Pens.Red, 100, 100, 200, 100)

End Sub

'方法二：在 PictureBox1上显示图像----图画在Bitmap

PictureBox1.Image = Nothing

Dim wid As Integer = PictureBox1.ClientSize.Width

Dim hgt As Integer = PictureBox1.ClientSize.Height

Dim bm As New Bitmap(wid, hgt)

Dim g As Graphics = Graphics.FromImage(bm)

'画图代码

'画图代码

PictureBox1.Image = bm

PictureBox1.Refresh()

g.Dispose()

VB.net 怎样保存picturebox中的图像（vs2008）

'因为要保存picturebox中的图片必须要设置autoredraw属性为true,所以也写出来了.

Private Sub Form_Load()

Picture1.AutoRedraw = True

End Sub

Private Sub Command1_Click()

SavePicture Picture1.Image, App.Path "\1.bmp"

End Sub

vbnet保留绘图的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb中savepicture、vbnet保留绘图的信息别忘了在本站进行查找喔。