Foxtable(狐表)用户栏目专家坐堂 → [建议] 补强QRcode 功能


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

主题:[建议] 补强QRcode 功能

帅哥哟,离线,有人找我吗?
有点色
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/2/24 10:02:00 [显示全部帖子]

 foxtable本来不是有条码二维码的生成工具么?还要怎么补强?

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By: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


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/2/24 14:37:00 [显示全部帖子]

 1、foxtable更新效率比较低;

 

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

 

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


 回到顶部