189 8069 5689
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 '窗体
软件bug，软件缓存过多。
1、神岁vb点虐 grid软件运行服务器出现bug导致自动生成excel不游逗睁保存，退出重新进入，等待官方修复。
2、vb点虐 grid软件缓存过多导致自动生成excel不保存，清理软件空间指缓，重启软件。
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