vb.net picturebox中的内容保存到文件

场景:

在picturebox中写一串字符或draw一个图像,并保存到文件。

示例代码用于解决vb.net 打印条形码code39、code128A、code128C、code128Auto(picturebox和打印机)封装类_vb.net打印标签_WormJan的博客-CSDN博客这篇文章中打印的条码无法保存为文件的问题。

这里以那篇文章里的 code128Mix_Click  方法为例

Dim x As Int16 = 40
Dim y As Int16 = 88
Const lineWidth = 1
If ComboBox1.Text.Trim = "" Then
    MsgBox("选择条码")
    Exit Sub
End If
'以下三行为添加的代码
Dim bmp = New Bitmap(PictureBox1.Width, PictureBox1.Height)
Dim g = Graphics.FromImage(bmp)
g.Clear(Color.White)
'以上三行为添加的代码
Dim final As String = clsBarcode.get_code_128Auto(ComboBox1.Text)
For i = 0 To final.Length - 1
    If (final.Substring(i, 1) = "b") Then
        '下面这一行代码,有修改。以前是pic.creategraphics.fillrectangle
        g.FillRectangle(New SolidBrush(Color.Black), New Rectangle(x, y, lineWidth, 50))
    End If
    x += 1
Next
x = 40 + 2
Dim space As Int16 = final.Length / ComboBox1.Text.Length


For i = 0 To ComboBox1.Text.Length - 1
'下面这一行代码,有修改。以前是pic.creategraphics.DrawString
    g.DrawString(ComboBox1.Text.Substring(i, 1), New Font("Arial", 6), New SolidBrush(Color.Black), x + i * space, y + 50)
Next i
'以下4行为新添加的代码。

'把我们画在位图上的图像赋值给pic的image
PictureBox1.Image = bmp
'保存文件
Try
    Dim fs = New System.IO.FileStream("d:\mycode.jpg", IO.FileMode.Create)
    PictureBox1.Image.Save(fs, Imaging.ImageFormat.Jpeg)
    fs.Close()
Catch ex As Exception
    Debug.Print(ex.Message)
End Try

如果单纯写句话到picturebox,然后保存呢。代码如下:

Dim bmp = New Bitmap(PictureBox1.Width, PictureBox1.Height)

Dim g = Graphics.FromImage(bmp)
g.Clear(Color.White)
'下面这行是要写到pic中的文本
g.DrawString("I am WormJan", New Font("Arial", 14), Brushes.DarkRed, 0, 0)
PictureBox1.Image = bmp '指定图像为我们创建的bitmap
Try
    Dim fs = New System.IO.FileStream("d:\savefrompicbox.jpg", IO.FileMode.Create)
    PictureBox1.Image.Save(fs, Imaging.ImageFormat.Jpeg)
    fs.Close()
Catch ex As Exception
    Debug.Print(ex.Message)
End Try

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值