以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于表列的网址生成二维码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90868)

--  作者:188802386
--  发布时间:2016/9/23 11:46:00
--  [求助]关于表列的网址生成二维码
]关于表列的网址生成二维码
我有个表A fyid 列 里面是网址,我想实现二维码,只要微信扫描该二维码就能打开该网址,请问如何生成,麻烦提供个思路,谢谢

--  作者:有点蓝
--  发布时间:2016/9/23 12:02:00
--  
参考:http://www.foxtable.com/webhelp/scr/2071.htm
--  作者:188802386
--  发布时间:2016/9/23 12:23:00
--  
Dim wz As WinForm.TextBox = Forms("获取数据").Controls("TextBox1")
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.Code = (wz.text)
Bar.QuietZoneWidth = 2
Forms("彩图预览").Controls("BarCode1").GetImage(600)

这样怎么不得行呢

--  作者:188802386
--  发布时间:2016/9/23 12:26:00
--  
可以了 根本不需要代码 直接绑定就可以了