VBMAN.QRcode - 二维码生成对象

概述

VBMAN.QRcode 提供了二维码生成功能，使用链式调用方式设置参数并生成二维码图片。

核心特性

• 链式调用: 流畅的 API 设计
• 自定义内容: 支持任意文本内容
• 自定义大小: 可设置二维码尺寸
• 自定义颜色: 可设置前景色
• 剪贴板支持: 可直接复制到剪贴板

方法

SetText

设置二维码内容（链式调用）

Public Function SetText(ByVal Content As Variant) As cQRcode

参数:

• Content - 二维码内容（文本）

示例:

VBMAN.QRcode.SetText("https://www.vb6.pro")

SetSize

设置二维码大小（链式调用）

Public Function SetSize(ByVal Size As Long) As cQRcode

参数:

• Size - 二维码尺寸（像素）

示例:

VBMAN.QRcode.SetSize(200)

SetForeColor

设置前景色（链式调用）

Public Function SetForeColor(ByVal ForeColor As OLE_COLOR) As cQRcode

参数:

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

示例:

VBMAN.QRcode.SetForeColor(vbBlue)
VBMAN.QRcode.SetForeColor(RGB(255, 0, 0))

Generate

生成二维码图片

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

参数:

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

返回: StdPicture 对象

示例:

' 生成二维码
Dim qrPic As StdPicture
Set qrPic = VBMAN.QRcode.Generate

' 显示到图片框
Set Picture1.Picture = qrPic

' 生成并复制到剪贴板
Set qrPic = VBMAN.QRcode.Generate(True)

综合示例

示例1: 基本使用

Private Sub GenerateQR()
    ' 设置内容、大小、颜色
    With VBMAN.QRcode
        .SetText("Hello VB6!")
        .SetSize(150)
        .SetForeColor(vbBlack)
        
        ' 生成并显示
        Set Picture1.Picture = .Generate
    End With
End Sub

示例2: 网址二维码

Private Sub GenerateUrlQR()
    Dim url As String
    url = "https://github.com/vb6pro/vbman"
    
    Set Picture1.Picture = VBMAN.QRcode _
        .SetText(url) _
        .SetSize(200) _
        .SetForeColor(RGB(0, 102, 204)) _
        .Generate(True)  ' 同时复制到剪贴板
    
    MsgBox "二维码已生成并复制到剪贴板！"
End Sub

示例3: 保存为图片文件

Private Sub SaveQRCode()
    ' 生成二维码
    Dim qrPic As StdPicture
    Set qrPic = VBMAN.QRcode _
        .SetText(TextContent.Text) _
        .SetSize(300) _
        .Generate
    
    ' 显示
    Set Picture1.Picture = qrPic
    
    ' 保存为图片（需要引用 GDI+ 或使用 SavePicture）
    SavePicture qrPic, App.Path & "\\qrcode.bmp"
    MsgBox "已保存到: " & App.Path & "\\qrcode.bmp"
End Sub

默认值

• 默认内容: "hello vbman form www.vb6.pro"
• 默认大小: 50 像素
• 默认颜色: vbBlack（黑色）

最佳实践

1. 尺寸选择: 根据显示需求和扫描距离选择合适的大小
2. 颜色对比: 确保前景色与背景色有足够对比度
3. 内容长度: 内容过长会导致二维码密集，建议缩短 URL 或使用短链接
4. 错误处理: 生成失败时返回 Nothing，需进行检查