vb点虐 图形创建与保存问题。详见问题补充。

Dim bmp As New Bitmap("打开图片的路径")

成都创新互联公司是一家专业提供保定企业网站建设,专注与网站设计、成都网站建设、H5技术、小程序制作等业务。10年已为保定众多企业、政府机构等服务。创新互联专业网站制作公司优惠进行中。

bmp.Save("保存图片的昌悉路径")

Dim t As New TextBox()

Dim p As New PictureBox

p.Image = bmp '拆迅碰picture等支持image的控件。

t.CreateGraphics.DrawImage(bmp, New Point) '旅谈文本控件。

Me.BackgroundImage = bmp '窗体

vb点虐 grid自动生成excel不保存

软件bug，软件缓存过多。

1、神岁vb点虐 grid软件运行服务器出现bug导致自动生成excel不游逗睁保存，退出重新进入，等待官方修复。

2、vb点虐 grid软件缓存过多导致自动生成excel不保存，清理软件空间指缓，重启软件。

关于vb点虐 中绘图并保存图片的问题

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

当前文章：vbnet画图无法保存 vb为什么图片显示不出来
标题链接：http://pwwzsj.com/article/ddpisop.html