| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3089 人关注过本帖
标题:二维码问题,哪位大虾有源码?谢谢!
只看楼主 加入收藏
约定的童话
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:56
帖 子:246
专家分:1442
注 册:2021-8-1
收藏
得分:0 
回复 9楼 kings12333
直接用不好使,所以引用了Image1.Picture这个组件
2021-08-06 09:28
kings12333
Rank: 2
等 级:论坛游民
帖 子:114
专家分:66
注 册:2012-11-29
收藏
得分:0 
老师,帮看看这句代码并没有生成.jpg   的文件……是什么原因呢?
 QRmaker1.CreateQrMetaFile hDC, "D:\条码记录\" + Text1.Text + "(" & Split(Now(), " ")(0) + ")" + ".jpg", 2  
图片附件: 游客没有浏览图片的权限,请 登录注册

2021-08-06 11:49
kings12333
Rank: 2
等 级:论坛游民
帖 子:114
专家分:66
注 册:2012-11-29
收藏
得分:0 
回复 11楼 约定的童话
老师,看看12楼上的代码为何不会输出.jpg的图片文件
2021-08-07 11:56
约定的童话
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:56
帖 子:246
专家分:1442
注 册:2021-8-1
收藏
得分:0 
回复 13楼 kings12333
F8一步步测试看下,控件注册啥的都弄好了没?
2021-08-09 09:26
kings12333
Rank: 2
等 级:论坛游民
帖 子:114
专家分:66
注 册:2012-11-29
收藏
得分:0 
回复 14楼 约定的童话
win7 32位的系统,已将控件放到system32中并注册了,现在的问题是代码在控件上显示出二维码,但并不能将图片导出……
2021-08-09 15:21
约定的童话
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:56
帖 子:246
专家分:1442
注 册:2021-8-1
收藏
得分:0 
回复 15楼 kings12333
代码看下...
2021-08-15 14:58
kings12333
Rank: 2
等 级:论坛游民
帖 子:114
专家分:66
注 册:2012-11-29
收藏
得分:0 
回复 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
2021-08-15 17:01
约定的童话
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:56
帖 子:246
专家分:1442
注 册:2021-8-1
收藏
得分:0 
回复 17楼 kings12333
先在D盘建一个条码扫描的文件夹试一下
2021-08-15 22:15
kings12333
Rank: 2
等 级:论坛游民
帖 子:114
专家分:66
注 册:2012-11-29
收藏
得分:0 
回复 18楼 约定的童话
请看12楼的图片
2021-08-16 16:57
约定的童话
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:56
帖 子:246
专家分:1442
注 册:2021-8-1
收藏
得分:0 
回复 19楼 kings12333
QRmaker1.CreateQrMetaFile hDC, "D:\条码记录\" + Text1.Text + "(" + Split(Now(), " ")(0) + ")" + ".jpg", 2  
2021-08-17 07:23
快速回复:二维码问题,哪位大虾有源码?谢谢!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018918 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved