我正在尝试获取一个字符串并将其转换为 vb.net 代码 128 条形码。我是一个新手程序员,想知道有些人认为实现这一目标的最佳设计实践是什么。
一个简单的谷歌搜索已经产生了一些看似免费的解决方案。http://www.onbarcode.com/vb_net/code-128-generator.html例如
我也可以尝试自己做这件事,但我不确定将字符串转换为条形码的确切方法。我会继续研究这个问题,但如果有人已经知道这一点,它可以为我节省一些时间。
提前致谢
如果您不想在条形码中编写任何用于字符串转换的代码,并且不想购买外部组件,则可以使用ItextSharp库(http://sourceforge.net/projects/itextsharp/),在我看来,这是实现目标的最简单方法。你可以在网上和 stackoverflow 上找到一些关于 itextsharp 的资源,主要是 c# 的,但也 vb.net。
对于条形码生成 vb.net 代码,您可以在此处查看:http://professionalaspnet.com/archive/2008/11/09/A-Quick-and-Dirty-Bar-Code-Image-httpHandler.aspx
请看下面的代码项目页面 - 条形码图像生成库
这允许您从字符串生成所需格式的条形码图像。
应该足以让你开始
以下示例取自
http://www.onbarcode.com/tutorial/vb-net-barcode-generation.html
生成条形码
Dim barcode As OnBarcode.Barcode.Linear
' Create linear barcode object
barcode = New OnBarcode.Barcode.Linear()
' Set barcode symbology type to Code-39
barcode.Type = OnBarcode.Barcode.BarcodeType.CODE39
' Set barcode data to encode
barcode.Data = "0123456789"
' Set barcode bar width (X dimension) in pixel
barcode.X = 1
' Set barcode bar height (Y dimension) in pixel
barcode.Y = 60
' Draw & print generated barcode to png image file
barcode.drawBarcode("C://vbnet-code39.png")
绘图和打印
Dim qrCode As OnBarcode.Barcode.QRCode
' Create QRCode object
qrCode = New OnBarcode.Barcode.QRCode()
' Set QR Code data to encode
qrCode.Data = "VB.NET QRCode"
' Set QRCode data mode (QR-Code Barcode Settings)
qrCode.DataMode = OnBarcode.Barcode.QRCodeDataMode.Auto
' Draw & print generated QR Code to jpeg image file
qrCode.ImageFormat = System.Drawing.Imaging.ImageFormat.Jpeg
qrCode.drawBarcode("C://vbnet-qrcode.jpg")
你需要质疑你的目标。 这个答案将驱动你的方法论。
- 快速开发和完成
- 学习经历
- 便宜/免费(不包括汗水权益)
您的谷歌链接显示的产品在该页面上显示示例代码。 这是怎么回事?
您的目标产出是多少? 报表对象,还是直接打印到打印机/标签?
您可以使用此代码在 VB 编程中生成并输出 code128 图像。请参考下面的Visual Basic示例代码,可以尝试在 vb.net 中生成code128。
VB 示例代码
Dim code128 As KeepAutomation.Barcode.Bean.BarCode = New KeepAutomation.Barcode.Bean.BarCode
code128.Symbology = KeepAutomation.Barcode.Symbology.Code128Auto
code128.CodeToEncode = "0128"
'Apply checksum for Code 128 barcode.
code128.ChecksumEnabled = True
'Display checksum in the Code 128 barcode text
code128.DisplayChecksum = True
'Unit of measure, Pixel, Cm and Inch supported.
code128.BarcodeUnit = KeepAutomation.Barcode.BarcodeUnit.Pixel
'Code 128 image resolution in DPI.
code128.DPI = 72
'Set Size for Generated Code 128 image
'Code 128 bar module width (X dimention)
code128.X = 2
'Code 128 barcode image width (X dimention)
code128.BarCodeWidth = 100
'Code 128 bar module height (Y dimention)
code128.Y = 60
'Image left margin size, a 10X is automatically added according to specification.
code128.LeftMargin = 0
'Image right margin size, a 10X is automatically added according to specification.
code128.RightMargin = 0
'Code 128 image top margin size'
code128.TopMargin = 0
'Code 128 image bottom margin size'
code128.BottomMargin = 0
'Orientation, 90, 180, 270 degrees supported' Code 128 image bottom margin size
code128.Orientation = KeepAutomation.Barcode.Orientation.Degree0
'Code 128 image formats in Png, Gif, Jpeg/Jpg, Tiff, Bmp/Bitmap, etc.
code128.ImageFormat = System.Drawing.Imaging.ImageFormat.Png
'Set Code 128 human readable text style
code128.DisplayText = True
code128.TextFont = New Drawing.Font("Arial", 10.0F, Drawing.FontStyle.Regular)
'Space between barcode and text
code128.TextMargin = 6
code128.generateBarcodeToImageFile("C://code128-vb-net.png")