Foxtable(狐表)用户栏目专家坐堂 → 求助一个代码问题。


  共有1867人关注过本帖树形打印复制链接

主题:求助一个代码问题。

美女呀,离线,留言给我吧!
minimoon
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:7 积分:106 威望:0 精华:0 注册:2017/7/24 19:30:00
求助一个代码问题。  发帖心情 Post By:2017/7/24 19:39:00 [只看该作者]

请教各位老师。
我想实现批量生成QR码

可以实吗?
求指点。
谢谢了。


Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.Code = "DTXT:SUB:编码;TXT:88888888;;"
Bar.QuietZoneWidth = 2
Bar.SaveImage("文件名")






[此贴子已经被作者于2017/7/25 1:05:44编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110253 积分:561089 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/7/24 20:55:00 [只看该作者]

使用循环

For i As Integer = 0 To 3
    Dim txt As String = Rand.Next(10000000,99999999)
    Dim Bar As New BarCodeBuilder
    Bar.Symbology = Barpro.Symbology.QRCode
    Bar.Code = "DTXT:SUB:编码;TXT:" & txt & ";;"
    Bar.QuietZoneWidth = 2
    Bar.SaveImage("f:\" & txt & ".jpg")
Next

 回到顶部
美女呀,离线,留言给我吧!
minimoon
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:7 积分:106 威望:0 精华:0 注册:2017/7/24 19:30:00
  发帖心情 Post By:2017/7/24 23:21:00 [只看该作者]

谢谢版主,
感谢感谢。
成功了

图片点击可在新窗口打开查看
继续学习。


For Each txt As Row In Tables("表A").Rows
    Dim Bar As New BarCodeBuilder
    Bar.Symbology = Barpro.Symbology.QRCode
    bar.Code = txt("编号")
    Bar.QuietZoneWidth = 2
    Dim i As Integer=i+1
    Bar.SaveImage("f:\" & i & "_" & txt("编号") & ".jpg")
Next
[此贴子已经被作者于2017/7/25 0:37:34编辑过]

 回到顶部
美女呀,离线,留言给我吧!
minimoon
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:7 积分:106 威望:0 精华:0 注册:2017/7/24 19:30:00
  发帖心情 Post By:2017/7/25 1:05:00 [只看该作者]

现在又有个问题,我想实现彩色码,有没有办法?
一次性随机生成色彩效果。
让每一张都不一样,

[此贴子已经被作者于2017/7/25 13:01:18编辑过]

 回到顶部
美女呀,离线,留言给我吧!
minimoon
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:7 积分:106 威望:0 精华:0 注册:2017/7/24 19:30:00
  发帖心情 Post By:2017/7/25 1:17:00 [只看该作者]

我有个想法,就是让每一个生成的图片,
可以选择一个主色调。
然后随机产生明度上的抖动或者纯度上的抖动
色相上就尽量不要动。
颜色控制在一定的亮度上,便于后期扫描。
解释一下,为什么要这样。
因为 同色系更容易和谐。在整个设计图中,尽量不要对其它视觉设计元素产生太大的影响。
比如: 
R 100 ~150
G 50
B 30
再比如:
R 100 ~150
G 80
B 100



再次感谢。
[此贴子已经被作者于2017/7/25 13:01:57编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/25 9:25:00 [只看该作者]

以下是引用minimoon在2017/7/25 1:05:00的发言:

每一张生成的颜色效果都不一样的。
可用于防伪。
这样别人伪造的彩色二维码,打印出来,就和数据库里的不能对应了。

 

没看懂你要表达的意思。二维码并没有防伪的功能,任何设备扫描二维码都能得到同样的信息。

 

如果你要防伪,你还得结合互联网,扫描后得到网址,跳转,显示查询的次数等等信息。


 回到顶部
美女呀,离线,留言给我吧!
minimoon
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:7 积分:106 威望:0 精华:0 注册:2017/7/24 19:30:00
  发帖心情 Post By:2017/7/25 9:28:00 [只看该作者]

在这里只要实现随机产生彩色的图片功能就可以了。
[此贴子已经被作者于2017/7/25 13:00:40编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/25 10:06:00 [只看该作者]


 回到顶部
美女呀,离线,留言给我吧!
minimoon
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:7 积分:106 威望:0 精华:0 注册:2017/7/24 19:30:00
  发帖心情 Post By:2017/7/25 12:36:00 [只看该作者]

谢谢甜版。我去研究一下。
太感谢了

 回到顶部
美女呀,离线,留言给我吧!
minimoon
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:7 积分:106 威望:0 精华:0 注册:2017/7/24 19:30:00
  发帖心情 Post By:2017/7/25 13:00:00 [只看该作者]

已成功了,感谢。。

 回到顶部