生成二维码后，如何对二维码图片做如下处理？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 生成二维码后，如何对二维码图片做如下处理？

共有2190人关注过本帖树形打印复制链接主题：生成二维码后，如何对二维码图片做如下处理？

xuanxiao	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：三尾狐帖子：640 积分：5407 威望：0 精华：0 注册：2014/8/27 11:12:00	生成二维码后，如何对二维码图片做如下处理？ Post By：2019/5/5 11:03:00 [只看该作者] 用户已经被屏蔽

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/5 11:08:00 [只看该作者]

Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.Code = "123ABC你我他"
Dim img As image = bar.GetImage
Dim bmp As new bitmap( img.width+200, img.height+40)
Dim g = Graphics.FromImage(bmp)
g.DrawImage(img, 20, 20, img.width, img.height) '在背景离顶部100像素,左边100像素的地方开始绘制第二张图
Dim fnt As New Font("宋体",16)
Dim msg As String = "I Like Foxtable"
g.DrawString(msg,fnt,Brushes.Red,img.width+5,(img.height+40)/2)
bmp.Save("d:\test.wmf")
bmp.Dispose()
Dim proc As new Process
proc.file = "d:\test.wmf"
proc.start

xuanxiao	小大 3楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：三尾狐帖子：640 积分：5407 威望：0 精华：0 注册：2014/8/27 11:12:00	Post By：2019/5/5 11:32:00 [只看该作者] 用户已经被屏蔽

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/5 11:50:00 [只看该作者]

Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.Code = "123ABC你我他"
Dim img As image = bar.GetImage
Dim bmp As new bitmap( img.width+200, img.height+40)
Dim g = Graphics.FromImage(bmp)
g.clear(Color.yellow)
g.DrawImage(img, 20, 20, img.width, img.height) '在背景离顶部100像素,左边100像素的地方开始绘制第二张图
Dim fnt As New Font("宋体",16)
Dim msg As String = "I Like Foxtable"
g.DrawString(msg,fnt,Brushes.Red,img.width+5,(img.height+40)/2)
bmp.Save("d:\test.jpg")
bmp.Dispose()
Dim proc As new Process
proc.file = "d:\test.jpg"
proc.start

下一主题 >> << 上一主题

主题：生成二维码后，如何对二维码图片做如下处理？