代码 128 vb.net 中的条形码生成



我正在尝试获取一个字符串并将其转换为 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")

相关内容

  • 没有找到相关文章

最新更新