以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [建议] 补强QRcode 功能  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96608)

--  作者:tennis
--  发布时间:2017/2/24 9:54:00
--  [建议] 补强QRcode 功能

如题:有鉴于现在行销一物一码,且结合数据库,希望foxtable增加QRcode 编辑及产生功能,配合即将问世的2017foxtable有手机行动功能;foxtable将更优值于市场.

参考网址:http://www.visualead.com/


--  作者:有点色
--  发布时间:2017/2/24 10:02:00
--  
 foxtable本来不是有条码二维码的生成工具么?还要怎么补强?
--  作者:tennis
--  发布时间:2017/2/24 11:39:00
--  

各QRcode可加背景图产生图档.


--  作者:有点色
--  发布时间:2017/2/24 12:35:00
--  

加入logo可以这样处理

 

Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.Code = "测试:测试"
bar.SaveImage("d:\\test.wmf",300)
Dim imgback As image = getimage("d:\\test.wmf")
Dim bmp As new bitmap(imgback.width, imgback.height)
Dim g = graphics.fromimage(bmp)
g.DrawImage(imgback, 0, 0, imgback.Width, imgback.Height)
Dim img = getimage("d:\\test.ico")
Dim w As Integer = (imgback.width-img.width) / 2
Dim h As Integer = (imgback.height-img.height) / 2
g.DrawImage(img, w, h, img.Width, img.Height)
bmp.Save("d:\\test05.jpg")
bmp.dispose


--  作者:tennis
--  发布时间:2017/2/24 13:52:00
--  
能否FOXTABLE中有此功能,不要动不动就要写代码??
--  作者:有点色
--  发布时间:2017/2/24 14:37:00
--  

 1、foxtable更新效率比较低;

 

 2、小功能或者说不是那么重要的功能,基本轮不上的。

 

 3、只好自己【想办法】。


--  作者:凡夫俗子
--  发布时间:2017/5/23 18:38:00
--  
生成的二维码 下方能加上 二维码的内容不。即如同一维码一样,再下面加文字说明。
--  作者:有点蓝
--  发布时间:2017/5/23 20:25:00
--  
参考4楼用法,把画布设置高一点,把需要的文字绘制到适当位置