主题：[求助]QRCODE二维码颜色

红色代码获取所有属性

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

 搜索关键字，参考代码改成你需要的。

https://www.baidu.com/baidu?wd=c%23+%B6%FE%CE%AC%C2%EB+%D4%B2%BD%C7&tn=monline_4_dg