二维码问题，哪位大虾有源码？谢谢！ - 编程论坛

#2

apull2021-04-02 22:47

那个要用QR编码才行

#3

木示2021-04-04 15:42

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

#4

约定的童话2021-08-04 09:08

还有一种调用组件方法：
①：解压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编辑过]

#5

kings123332021-08-05 19:19

回复 4楼约定的童话

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

#6

kings123332021-08-05 23:32

回复 4楼约定的童话

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

#7

约定的童话2021-08-06 07:04

回复 6楼 kings12333

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

#8

kings123332021-08-06 07:46

回复 7楼约定的童话

谢谢老师.

#9

kings123332021-08-06 08:23

回复 7楼约定的童话

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

只有本站会员才能查看附件，请登录

#10

kings123332021-08-06 08:24

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

#11

约定的童话2021-08-06 09:28

回复 9楼 kings12333

直接用不好使，所以引用了Image1.Picture这个组件

#12

kings123332021-08-06 11:49

老师，帮看看这句代码并没有生成.jpg 的文件……是什么原因呢？
QRmaker1.CreateQrMetaFile hDC, "D:\条码记录\" + Text1.Text + "(" & Split(Now(), " ")(0) + ")" + ".jpg", 2

只有本站会员才能查看附件，请登录

#13

kings123332021-08-07 11:56

回复 11楼约定的童话

老师，看看12楼上的代码为何不会输出.jpg的图片文件

#14

约定的童话2021-08-09 09:26

回复 13楼 kings12333

F8一步步测试看下，控件注册啥的都弄好了没？

#15

kings123332021-08-09 15:21

回复 14楼约定的童话

win7 32位的系统，已将控件放到system32中并注册了，现在的问题是代码在控件上显示出二维码，但并不能将图片导出……

#16

约定的童话2021-08-15 14:58

回复 15楼 kings12333

代码看下...

#17

kings123332021-08-15 17:01

回复 16楼约定的童话

代码就是用的你发的代码..
--------------------------------------
rivate 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

#18

约定的童话2021-08-15 22:15

回复 17楼 kings12333

先在D盘建一个条码扫描的文件夹试一下

#19

kings123332021-08-16 16:57

回复 18楼约定的童话

请看12楼的图片

#20

约定的童话2021-08-17 07:23

回复 19楼 kings12333

QRmaker1.CreateQrMetaFile hDC, "D:\条码记录\" + Text1.Text + "(" + Split(Now(), " ")(0) + ")" + ".jpg", 2

#21

opoq2021-11-12 09:27

这个很牛

#22

you1578277152021-11-15 14:52

谢谢分享!

#23

dasdaa2021-12-05 21:55

谢谢分享！！