[DEVEXPRESS] Tạo các loại mã vạch Barcode trực tiếp trên Devexpress Barcode API

Xin chào các bạn, bài viết hôm nay mình giới thiệu các bạn cách tạo các mã vạch cho ứng dụng: QRcode, Code 128,... trên thư viện có sẵn của Devexpress API, mà không cần cài đặt thêm thư viện nào khác.

Giao diện demo ứng dụng tạo QRcode:

Bạn cần thêm Ba Dll Devexpress và project của bạn:

• DevExpress.Data.v22.2.dll
• DevExpress.Drawing.v22.2.dll
• DevExpress.Printing.v22.2.Core.dll

Code C#:

using System;
using System.Text;
using DevExpress.BarCodes;
using DevExpress.Drawing;
using DevExpress.Drawing.Extensions;
//...

private void button1_Click(object sender, EventArgs e)
{
    this.pictureBox1.Image = null;

    BarCode barCode = new BarCode();
    barCode.Symbology = Symbology.QRCode;
    barCode.CodeText = "https://laptrinhvb.net/";
    barCode.BackColor = Color.White;
    barCode.ForeColor = Color.Black;
    barCode.RotationAngle = 0;
    barCode.CodeBinaryData = Encoding.Default.GetBytes(barCode.CodeText);
    barCode.Options.QRCode.CompactionMode = QRCodeCompactionMode.Byte;
    barCode.Options.QRCode.ErrorLevel = QRCodeErrorLevel.Q;
    barCode.Options.QRCode.ShowCodeText = false;
    barCode.DpiX = 72;
    barCode.DpiY = 72;
    barCode.Module = 2f;

    this.pictureBox1.Image = barCode.BarCodeImage.ConvertToGdiPlusImage();
}

Code VB.NET

Option Infer On

Imports System
Imports System.Text
Imports DevExpress.BarCodes
Imports DevExpress.Drawing
Imports DevExpress.Drawing.Extensions
'...

Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
    Me.pictureBox1.Image = Nothing

    Dim barCode As New BarCode()
    barCode.Symbology = Symbology.QRCode
    barCode.CodeText = "https://laptrinhvb.net/"
    barCode.BackColor = Color.White
    barCode.ForeColor = Color.Black
    barCode.RotationAngle = 0
    barCode.CodeBinaryData = Encoding.Default.GetBytes(barCode.CodeText)
    barCode.Options.QRCode.CompactionMode = QRCodeCompactionMode.Byte
    barCode.Options.QRCode.ErrorLevel = QRCodeErrorLevel.Q
    barCode.Options.QRCode.ShowCodeText = False
    barCode.DpiX = 72
    barCode.DpiY = 72
    barCode.Module = 2F

    Me.pictureBox1.Image = barCode.BarCodeImage.ConvertToGdiPlusImage()
End Sub

Thanks for watching!