比如代码
Dim Bar As New BarCodeBuilderBar.Symbology = Barpro.Symbology.QRCodeBar.Code = "姓名:123" & vbcrlf & "年龄:abc"bar.QRCodeByteEncodingName = "utf-8"Bar.SaveImage("d:\test.wmf")
加好友 
发短信
Post By：2018/11/14 14:46:00 [显示全部帖子]
