Foxtable(狐表)用户栏目专家坐堂 → [求助] 二维码


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

主题:[求助] 二维码

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


加好友 发短信
等级:七尾狐 帖子:1629 积分:14396 威望:0 精华:0 注册:2014/6/6 8:42:00
[求助] 二维码  发帖心情 Post By:2017/3/23 23:02:00 [只看该作者]

老师,有两个问题请教

1、用帮助中代码生成的二维码很好用,但不知道如何加上标志性的图片,那样很美观。

2、如果二维码集成了一个网络地址,是否可以通过扫描二维码就能直接打开网址?

     谢谢!


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/23 23:46:00 [只看该作者]

1、

 

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

 

2、可以,取决于扫描的那个软件,必须是纯网址才会跳转


 回到顶部