半岛外围网上直营

一般来说,条码是通过改变平行线间的宽度和间距代表数据。现在,使用Aspose.BarCode可以生成并识别自定义宽度的条形码。

创建一个固定的准确条形码

C#

// Generate the barcode
    BarCodeBuilder builder = new BarCodeBuilder();
    // Set symbology type
    builder.SymbologyType = Symbology.Code128;
    // Set the code text
    builder.CodeText = "123456";
    // Get bitmap with exact barcode only
    Bitmap bmp = builder.GetOnlyBarCodeImage();
    // Save image on local
    bmp.Save("c:\\barcode.png", ImageFormat.Png); 

VB.Net

 ' Generate the barcode
    Dim builder As New BarCodeBuilder()
    ' Set symbology type
    builder.SymbologyType = Symbology.Code128
    ' Set the code text
    Dim codetext As String = "123456";
    builder.CodeText = codetext
    ' Get bitmap with exact barcode only
    Dim bmp As Bitmap = builder.GetOnlyBarCodeImage()
    ' Save image on local
    bmp.Save("c:\\barcode.png")

创建并为条形码设置大小

C#

// Generate the barcode    BarCodeBuilder builder = new BarCodeBuilder();
    // Set symbology type
    builder.SymbologyType = Symbology.Pdf417;
    // Set the code text
    builder.CodeText = "One thing 2 thing";
    // Set the code text location
    builder.CodeLocation = CodeLocation.None;
    // Set graphics unit
    builder.GraphicsUnit = GraphicsUnit.Pixel;
    // Set margins
    builder.Margins.Set(0);
    // Get Bitmap with exact barcode only
    Bitmap bmp = builder.GetOnlyBarCodeImage();
    // Allows to set size for whole picture with barcode inside
    Bitmap tt = builder.GetCustomSizeBarCodeImage(new Size(bmp.Width * 5, bmp.Height * 5));
    // Save image on local
    tt.Save(@"c:\ab\v5.2\test20\barcode2.png", ImageFormat.Png);

VB.NET

 ' Generate the barcode    Dim builder As New BarCodeBuilder()
    ' Set symbology type
    builder.SymbologyType = Symbology.Pdf417
    ' Set the code text
    builder.CodeText = "One thing 2 thing"
    ' Set the code text location
    builder.CodeLocation = CodeLocation.None
    ' Set graphics unit
    builder.GraphicsUnit = GraphicsUnit.Pixel
    ' Set margins
    builder.Margins.[Set](0)
    ' Get Bitmap with exact barcode only
    Dim bmp As Bitmap = builder.GetOnlyBarCodeImage()
    ' Allows to set size for whole picture with barcode inside
    Dim tt As Bitmap = builder.GetCustomSizeBarCodeImage(New Size(bmp.Width * 5, bmp.Height * 5))
    ' Save image on local
    tt.Save("c:\ab\v5.2\test20\barcode2.png", ImageFormat.Png)