Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎么实现将生成的二维码图片叠加到兰花图片上，并另行保存的图片中 一并带上兰花和二维码的图片


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

主题：怎么实现将生成的二维码图片叠加到兰花图片上，并另行保存的图片中 一并带上兰花和二维码的图片
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/29 16:43:00 [显示全部帖子]

先绘制主图，再绘制二维码即可

    Dim Bar As New BarCodeBuilder
    Bar.Symbology = Barpro.Symbology.QRCode
    Bar.Code = "某某内容"
    bar.SaveImage(ProjectPath & "Images\test.wmf",300)

    Dim imgback As image = getimage(ProjectPath & "Images\兰花.png")   '主图
    Dim bmp As new bitmap(imgback.width, imgback.height)
    Dim g As System.Drawing.Graphics  = System.Drawing.Graphics.FromImage(bmp)
    g.DrawImage(imgback, 0, 0, imgback.Width, imgback.Height) ‘绘制主图’
    Dim img = bar.GetImage    ‘获取二维码图片’
    Dim x As Integer = imgback.Width - 120 ‘二维码图距离主图左边距
    Dim y As Integer = imgback.height - 120 ‘二维码图距离主图上边距
    g.DrawImage(img, x, y, 100, 100)     '合并图片
    bmp.Save(ProjectPath & "Images\test05.jpg") ‘保存
    bmp.dispose ‘释放资源’
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/29 17:39:00 [显示全部帖子]

可以，逻辑都一样的，想绘制什么就往里添加即可：http://www.foxtable.com/webhelp/topics/1482.htm

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/30 8:39:00 [显示全部帖子]

如果要绘制文字，请直接看4楼帮助，根本不需要另外保存为什么图片，直接往图片里绘制文字即可。http://www.foxtable.com/webhelp/topics/1482.htm
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/30 14:15:00 [显示全部帖子]

Dim img =  getimage（“c:\data\abc_page1.jpg”）

肯定可以直接绘制文字，不需要绘图板

Dim imgback As image = getimage(ProjectPath & "Images\兰花.png")   '主图
Dim bmp As new bitmap(imgback.width, imgback.height)
Dim g As System.Drawing.Graphics  = System.Drawing.Graphics.FromImage(bmp)
g.DrawImage(imgback, 0, 0, imgback.Width, imgback.Height) '绘制主图'
g.DrawString("xxxxxxxxxxxx",New Font("宋体",16),Brushes.Red,10,10)
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/30 20:12:00 [显示全部帖子]

参考：http://www.foxtable.com/webhelp/topics/1482.htm

DrawLine(pen,x1,y1,x2,y2)

绘制一条直线，参数pen指定画笔，x1和y1指定直线的起始位置，x2和y2指定直线的结束位置，单位为像素。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04199 秒, 5 次数据查询