最近看到很多朋友有需求，想要SCADA软件根据位号的值来生成二维码及图片。本期文章，我们分享一下，如何利用OCX控件实现在流程图界面实现将数字和英文转换为二维码图片。
一、下载安装QRmaker.ocx控件
链接：
https://pan.baidu.com/s/1PoozegiSu-nK9F6Kh3LZBA?pwd=2024
提取码：2024
下载完成后，对压缩包文件进行解压，
将解压后的文件全部复制到C:\Windows\SysWOW64路径下，
然后运行
regsvr32 C:\Windows\SysWOW64\QRMAKER.OCX
进行注册，注册成功会有提示。
二、流程图启用OCX控件
安装目录下，找到VFDraw.ini文件，如图所示，修改[ControlPanelSettings25]下的Used=1，然后保存。
三、流程图应用
3.1控件编辑
新建流程图，然后在左侧控件栏点击OCX控件，然后启用QRmaker Control，
双击控件，设置初始参数及内容，不建议修改默认参数。
3.2脚本应用
控件可以设置初始值，也可以和数据库位号以及输入框控件联动使用。
3.2.1修改内容函数.InputData
ActiveX1.InputData="需要修改的内容"
3.2.2刷新二维码函数.Refresh
ActiveX1.Refresh
3.2.3保存二维码图片函数.CreateQrMetaFile
ActiveX1.CreateQrMetaFile 1,"C:\Users\user\Desktop\二维码.png",2
附录一：脚本函数及参数说
属性 | 默认值 | 读写类型 | 取值范围 | 定义 |
AutoRedraw | 0 | R/W | 0/1 | 打开/关闭自动绘制模式 |
Bend | -1 | R | >0 | 返回需要编码的字符串最后一个字符的位置 |
Bstart | 0 | R | >0 | 返回需要编码的字符串循环的开始位置 |
CellAdjust | 0 | R/W | - | 设置一个单元纠正值，单位为dpi |
CellPitch | 40 | R | - | 以块中心为原点，设置块与块之间的距离。随着CellPitch的变化，CellAdjust也会发生相应的变化。 |
CellUnit | (*) | R/W | >1 | 设置打印机分辨率(in dpi) |
ecclevel | 1 | R/W | 0-3 | 设置纠错级别 0对应L等级(最大纠错率为：7%) 1对应M等级(最大纠错率为：15%) 2对应Q等级(最大纠错率为：25%) 3对应H等级(最大纠错率为：30%) |
InputData | - | R/W | - | 输入要编码的字符串 |
ModelNo | 2 | R/W | 45294 | 设置QR码的模式： Model 1：是一种原始编码； Model 2：在Model 1的基础上的加强版的qr编码方式，有更大的数据存储量。 MicroQR：适用于存储数据流少的编码方式。 |
numcell | - | R | - | 返回创建的额QR码图像中每条边上的单元个数 |
picture | - | R | - | 返回创建的二维码图片 |
QuietZone | 5 | R/W | - | 设置二维码页边距（周围空白区域宽度） |
Rotate | 0 | R/W | 0-3 | 设置图片旋转角度(0,90.180,270)： 0对应旋转0度 1对应旋转90度 2对应旋转180度 3对应旋转270度 |
TextOrBinary | 0 | R | - | 返回当前编码模式，文本还是二进制 |
Refresh | - | - | - | 刷新二维码图片 |
CreateQrMetaFile | - | - | - | ActiveX1.CreateQrMetaFile 1,"C:\Users\user\Desktop\二维码.png",2 ' 1. 第一个常数 1：可能是一个标志或选项，具体含义取决于 ActiveX 控件的实现 ' 2. 第二个参数 "C:\Users\user\Desktop\二维码.png"：指定生成的二维码图像文件的路径和文件名 ' 3. 第三个常数 2：可能是另一个选项或参数，具体含义取决于 ActiveX 控件的实现。 支持ico、png、bmp、jpg格式的图片 |
附录二：常用脚本函数
ActiveX1
.ModelNo = 2
.CellPitch = 5
.CellUnit = 203
.QuietZone = 0
.InputData = "需要打印的内容"
.Refresh
.CreateQrMetaFile 1,"C:\Users\user\Desktop\二维码.png",2 '其他两个参数不需要调整，仅调整路径和文件名即可
扩展脚本应用案例
扫码领取免费SCADA安装包
