我用二维码字体生成的二维条码，扫描抢不好扫。哪位大虾有源码？谢谢！

那个要用QR编码才行

以解决。用C39HrP24DhTt字体，然后编码前后加*。如“*123*”扫后是：123

还有一种调用组件方法：
①：解压QRMaker1.3组件.zip，复制里面全部组件到：
      win32：C:\Windows\System32
      win64：C:\Windows\SysWOW64
②开始菜单-cmd右击管理员运行-粘贴 regsvr32 C:\Windows\SysWOW64\QRmaker.ocx

③打开工程-菜单-工程-部件-控件-引用QRmaker OLE Control module

[此贴子已经被作者于2021-8-5 21:12编辑过]

老师，请上传QRMaker1.3组件包……最好能做个例子如何调用……谢谢

老师，能不能做个实例 。。比如在TEXT1控件输入字符合自动生成QR码

Private Sub Text1_Change()
    If Len(Text1.Text) = 13 Then
        With QRmaker1
            .ModelNo = 2    '二维码模式
            .EccLevel = H    '纠错等级
            .CellPitch = 14   '二维码大小
            .CellUnit = 203
            .QuietZone = 0
            .Rotate = D0    '图片角度
            .InputData = Text1.Text    '二维码内容
            .Refresh    '刷新
        End With
        Open "D:\条码记录\扫描记录.txt" For Append As #1    'Output新建，Append追加
        t = Text1.Text & "   " & Now()
        Print #1, t
        Close #1
        QRmaker1.CreateQrMetaFile hDC, "D:\条码记录\" + Text1.Text + "(" & Split(Now(), " ")(0) + ")" + ".jpg", 2    '记录保存
        Image1.Picture = LoadPicture("D:\条码记录\" + Text1.Text + "(" & Split(Now(), " ")(0) + ")" + ".jpg", vbLPLarge, vbLPColor)
        Form1.PrintForm    '打印
        Text1.Text = ""
        Image1.Picture = LoadPicture("")
    End If
End Sub

谢谢老师.

老师，经测试，如果字符一长QR码就好像显示不全一样，并且QR码的大小因字符的长度也会自动变……如图

大小会自动变，好像不固定一样