cQRcode 二维码组件概述

简介

cQRcode 是一个二维码生成组件，基于 Nayuki 的 QR Code Generator Library (MIT License) 实现。支持生成标准 QR 码图片，可自定义内容、大小、颜色。

特性

特性	说明
纯 VB 实现	无需外部依赖
链式调用	流畅的 API 设计
纠错等级	支持 L/M/Q/H 四级纠错
自动编码	支持数字、字母、字节多种模式
剪贴板输出	支持直接复制到剪贴板
图片返回	返回 StdPicture 对象，可直接显示

纠错等级

等级	常量	容错率	适用场景
L	QRCodegenEcc_LOW	约 7%	干净环境
M	QRCodegenEcc_MEDIUM	约 15%	一般场景
Q	QRCodegenEcc_QUARTILE	约 25%	有一定污损
H	QRCodegenEcc_HIGH	约 30%	严重污损

快速开始

基础用法

Dim QR As New cQRcode

' 简单生成
Set Image1.Picture = QR.Generate()

链式设置

Dim QR As New cQRcode

' 链式调用设置属性并生成
Set Image1.Picture = QR _
    .SetText("https://www.vb6.pro") _
    .SetSize(200) _
    .SetForeColor(vbBlue) _
    .Generate()

复制到剪贴板

Dim QR As New cQRcode

' 生成并复制到剪贴板
QR.SetText("Hello World").Generate True

' 现在可以粘贴到其他应用程序

保存为图片文件

Dim QR As New cQRcode

' 生成并保存
Set QR.Picture = QR.SetText("Save me!").Generate()
SavePicture QR.Picture, App.Path & "\qrcode.bmp"

文件结构

文件	说明
cQRcode.cls	二维码类，提供简单接口
mQRcodeGen.bas	核心生成算法模块

底层函数（高级用法）

如需更精细控制，可直接使用模块函数：

' 直接使用底层函数
Set Picture1.Picture = QRCodegenBarcode( _
    TextOrByteArray:="Hello", _
    clrFore:=vbBlack, _
    Ecl:=QRCodegenEcc_MEDIUM, _
    MinVersion:=1, _
    MaxVersion:=5, _
    Mask:=QRCodegenMask_AUTO, _
    BoostEcl:=True, _
    PicSize:=300 _
)

---

最后更新: 2026-05-17