场景:
在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