以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 求助一个代码问题。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104171) |
-- 作者:minimoon -- 发布时间: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编辑过]
|
-- 作者:有点蓝 -- 发布时间: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 -- 发布时间: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 -- 发布时间:2017/7/25 1:05:00 -- 现在又有个问题,我想实现彩色码,有没有办法? 一次性随机生成色彩效果。 让每一张都不一样, [此贴子已经被作者于2017/7/25 13:01:18编辑过]
|
-- 作者:minimoon -- 发布时间: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编辑过]
|
-- 作者:有点甜 -- 发布时间:2017/7/25 9:25:00 -- 以下是引用minimoon在2017/7/25 1:05:00的发言:
每一张生成的颜色效果都不一样的。 可用于防伪。 这样别人伪造的彩色二维码,打印出来,就和数据库里的不能对应了。
没看懂你要表达的意思。二维码并没有防伪的功能,任何设备扫描二维码都能得到同样的信息。
如果你要防伪,你还得结合互联网,扫描后得到网址,跳转,显示查询的次数等等信息。 |
-- 作者:minimoon -- 发布时间:2017/7/25 9:28:00 -- 在这里只要实现随机产生彩色的图片功能就可以了。 [此贴子已经被作者于2017/7/25 13:00:40编辑过]
|
-- 作者:有点甜 -- 发布时间:2017/7/25 10:06:00 -- 彩色,参考
http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=96703&skin=0
要随机彩色,参考 http://www.foxtable.com/webhelp/scr/0496.htm
|
-- 作者:minimoon -- 发布时间:2017/7/25 12:36:00 -- 谢谢甜版。我去研究一下。 太感谢了 |
-- 作者:minimoon -- 发布时间:2017/7/25 13:00:00 -- 已成功了,感谢。。 |