- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]QRCODE二维码颜色 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96703)
-- 发布时间：2017/2/26 21:14:00
-- [求助]QRCODE二维码颜色
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.Code = "123456"
Bar.QuietZoneWidth = 2
Bar.HumanReadableText = "vvvv"
Bar.Text = "dddd"
Bar.ForeColor = Color.Red
Bar.TextForeColor = Color.LightSkyBlue
Bar.SaveImage("文件名")
如上红色所示，实现了替换文本，说明文本字体的颜色，
包括背景颜色如：如bar.BackColor = Color. 来更改，
但是好像默认的黑色标签颜色改不了，
请问自带BarCodeBuilder有没有相应代码可以改变，不要GDI的方法。谢谢。
-- 发布时间：2017/2/26 23:41:00
--
红色代码获取所有属性
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.Code = "123456"
Bar.QuietZoneWidth = 2
Bar.HumanReadableText = "vvvv"
Bar.Text = "dddd"
Dim obj = bar.basecontrol
obj.barcolor = color.red
Bar.SaveImage("d:\\test.wmf")
For Each o As object In bar.BaseControl.Gettype.getproperties
output.show(o.name)
Next
-- 发布时间：2017/2/27 0:09:00
--
十分感谢，顺便在另一个主题看到可以加图中图的，将自带模板文件稍改了下，
当然如果可以实现圆角和液态、过渡等效果就更先进了，简单效果如下
发现论坛用火狐和Edge都打不开附件上传对话框，只有用IE，还好Edge有用IE打开功能。
此主题相关图片如下：bandicam 2017-02-26 23-52-54-665.jpg
[此贴子已经被作者于2017/2/27 0:09:34编辑过]
-- 发布时间：2017/2/27 10:21:00
--
搜索关键字，参考代码改成你需要的。
https://www.baidu.com/baidu?wd=c%23+%B6%FE%CE%AC%C2%EB+%D4%B2%BD%C7&tn=monline_4_dg