vbnet如何输出保存图片?

xiansr 2006-12-20 09:57:07
目标:把picturebox中的图片保存到硬盘
方法:在picturebox中加载一张本地硬盘上的图片,然后使用pen工具在上面画几条直线。
问题:现在不知道用什么方法能够把修改后的图片保存到硬盘上,比如,save,可是保存的图片并未改变。
...全文
621 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
bvtc_liguoyuan 2006-12-24
  • 打赏
  • 举报
回复
楼主顺便把代码注释下嘛.谢谢。
wzuomin 2006-12-23
  • 打赏
  • 举报
回复
Public Sub SaveCurve(ByVal FileName As String)
Dim bmp As New Bitmap(Pic.Width, Pic.Height)
bmp.Save(FileName)
End Sub
cgtsea 2006-12-23
  • 打赏
  • 举报
回复
ding!
xiansr 2006-12-22
  • 打赏
  • 举报
回复
楼上的方法不会用。自己摸索的方法。
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)

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
z_kai 2006-12-21
  • 打赏
  • 举报
回复


bmp.getpixel 读取图片框的像素到新的图片类

然后再保存就可以了,,

16,722

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧