用ZXing 生成条形码和二维码图片

   关于ZXing 就不用多介绍了,本问主要介绍如何使用ZXing 生成条形码和二维码的图片。

   Release 版本的dll下载地址:http://zxingnet.codeplex.com/

   下载完成后在项目中引用ZXing.dll,然后做以下封装:

   

/// <summary>
    /// 产生二维码
    /// </summary>
    /// <param name="width">二维码的宽度</param>
    /// <param name="height">二维码的高度</param>
    /// <param name="Contents">二维码内容</param>
    /// <returns>生成的图片</returns>
    public static Bitmap CreateQRCode( string Contents,int width = 430, int height = 430)
    { 
       EncodingOptions options = null;
       BarcodeWriter writer = null;
 
       options = new QrCodeEncodingOptions
       {
         DisableECI = true,
         CharacterSet = "UTF-8",
         Width = width,
         Height = height
        };
        writer = new BarcodeWriter();
        writer.Format = BarcodeFormat.QR_CODE;
        writer.Options = options;
        Bitmap bitmap = writer.Write(Contents);
        return bitmap;
    }
    /// <summary>
    /// 产生条形码
    /// </summary>
    /// <param name="width">条形码图片的宽度</param>
    /// <param name="height">条形码图片的高度</param>
    /// <param name="Contents">条形码内容</param>
    /// <returns>生成的图片</returns>
    public static Bitmap CreateBarCode( string Contents,int width=530, int height=200)
    { 
         EncodingOptions options =null;
         BarcodeWriter writer =null;
 
         options = new QrCodeEncodingOptions
         {
           DisableECI = true,
           CharacterSet = "UTF-8",
           Width =  width,
           Height = height
         };
          writer = new BarcodeWriter();
          writer.Format = BarcodeFormat.CODE_128;
          writer.Options = options;
          Bitmap bitmap = writer.Write(Contents);
          return bitmap;
    }

   注意在生成条形码的时候 设置好合适的BarcodeFormat

如果您觉得我的文章对您有所帮助,欢迎扫码进行赞赏!

 

  

  

VBA(Visual Basic for Applications)是一种用于在Office应用程序中编写宏代码的语言,可以通过VBA代码生成二维码。 要在VBA生成二维码,你需要导入一个支持生成二维码的类库。常用的一个类库是ZXing(Zebra Crossing),它可以在VBA中使用。 首先,在VBA编辑器中,你需要将ZXing类库添加到项目的引用中。点击 "工具" > "引用",在弹出的对话框中找到并勾选 "ZXing"。 接下来,你可以编写VBA代码生成二维码。以下是一个简单的示例: ```vba Sub GenerateQRCode() Dim qrCodeGenerator As New ZXing.BarcodeWriter Dim qrCodeBitmap As Image qrCodeGenerator.Format = ZXing.BarcodeFormat.QR_CODE qrCodeGenerator.Options.Width = 200 qrCodeGenerator.Options.Height = 200 qrCodeGenerator.Options.Margin = 1 qrCodeBitmap = qrCodeGenerator.Write("Hello, World!") ' 保存二维码图片文件 qrCodeBitmap.Save "C:\QRCode.png" End Sub ``` 以上代码创建了一个`BarcodeWriter`对象,设置了生成二维码的相关选项,然后将生成二维码保存为图片文件(这里保存为"QRCode.png")。 你可以根据自己的需求修改代码中的参数,例如二维码的宽度、高度、边距及生成的文本内容。 当你运行这段VBA代码时,它会在指定的路径下生成一个名为"QRCode.png"的二维码图片文件。 这只是一个简单的示例,ZXing库还支持其他二维码格式和更多的生成选项。你可以参考ZXing的文档和示例代码,进一步了解如何在VBA生成定制的二维码
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

凌晨4点5杀老大爷

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值