cQRcode 方法参考

🔗 链式设置方法

SetText

设置二维码内容。

Public Function SetText(ByVal Content As Variant) As cQRcode

参数:

• Content - 二维码文本内容（String 或 Byte Array）

返回: 返回自身实例，支持链式调用

示例:

' 设置文本
QR.SetText("Hello World")

' 设置 URL
QR.SetText("https://www.vb6.pro")

' 设置 WiFi 配置
QR.SetText("WIFI:T:WPA;S:MyWiFi;P:password;;")

' 链式调用
QR.SetText("内容").SetSize(200).Generate

---

SetSize

设置二维码图片大小（像素）。

Public Function SetSize(ByVal Size As Long) As cQRcode

参数:

• Size - 图片尺寸（像素）

默认值: 50

示例:

' 设置小尺寸
QR.SetSize(100)

' 设置大尺寸（高清）
QR.SetSize(500)

' 根据容器自适应
QR.SetSize(Picture1.Width)

---

SetForeColor

设置二维码前景色。

Public Function SetForeColor(ByVal ForeColor As OLE_COLOR) As cQRcode

参数:

• ForeColor - 颜色值（VB 颜色常量或 RGB 值）

默认值: vbBlack

示例:

' 使用 VB 常量
QR.SetForeColor(vbRed)
QR.SetForeColor(vbBlue)

' 使用 RGB
QR.SetForeColor(RGB(255, 0, 0))    ' 红色
QR.SetForeColor(RGB(0, 128, 0))    ' 绿色
QR.SetForeColor(&HFF6600)           ' 橙色

' 链式调用
QR.SetText("Color").SetForeColor(vbBlue).Generate

---

🎯 生成方法

Generate

生成二维码图片。

Public Function Generate(Optional ByVal IsCopyToClipboard As Boolean) As StdPicture

参数:

• IsCopyToClipboard - 是否同时复制到剪贴板（默认 False）

返回: StdPicture 对象

示例:

Dim QR As New cQRcode

' 基础生成
Set Image1.Picture = QR.Generate()

' 生成并复制到剪贴板
QR.Generate True

' 完整流程
Set Image1.Picture = QR _
    .SetText("https://vb6.pro") _
    .SetSize(300) _
    .SetForeColor(vbBlack) _
    .Generate()

---

📋 常见使用场景

生成 URL 二维码

Private Sub GenerateURLQR()
    Dim QR As New cQRcode
    
    Set Image1.Picture = QR _
        .SetText("https://www.microsoft.com") _
        .SetSize(200) _
        .Generate()
End Sub

生成 WiFi 二维码

Private Sub GenerateWiFiQR()
    Dim QR As New cQRcode
    Dim wifiConfig As String
    
    ' WiFi 配置格式
    wifiConfig = "WIFI:T:WPA;S:" & txtSSID.Text & ";P:" & txtPassword.Text & ";;"
    
    Set Image1.Picture = QR _
        .SetText(wifiConfig) _
        .SetSize(250) _
        .Generate()
End Sub

生成联系人二维码 (vCard)

Private Sub GenerateVCardQR()
    Dim QR As New cQRcode
    Dim vCard As String
    
    vCard = "BEGIN:VCARD" & vbCrLf & _
            "VERSION:3.0" & vbCrLf & _
            "N:张三" & vbCrLf & _
            "TEL:13800138000" & vbCrLf & _
            "EMAIL:zhangsan@example.com" & vbCrLf & _
            "END:VCARD"
    
    Set Image1.Picture = QR _
        .SetText(vCard) _
        .SetSize(300) _
        .Generate()
End Sub

批量生成二维码

Private Sub BatchGenerate()
    Dim QR As New cQRcode
    Dim items As Variant
    Dim i As Long
    
    items = Array("Item1", "Item2", "Item3", "Item4", "Item5")
    
    For i = LBound(items) To UBound(items)
        ' 生成二维码
        Set Image1.Picture = QR _
            .SetText(items(i)) _
            .SetSize(150) _
            .Generate()
        
        ' 保存文件
        SavePicture Image1.Picture, App.Path & "\QR_" & items(i) & ".bmp"
    Next i
End Sub

打印二维码

Private Sub PrintQR()
    Dim QR As New cQRcode
    
    ' 生成高质量二维码
    Set Image1.Picture = QR _
        .SetText("Print Test") _
        .SetSize(500) _
        .Generate()
    
    ' 打印
    Printer.PaintPicture Image1.Picture, 500, 500
    Printer.EndDoc
End Sub

---

最后更新: 2026-05-17