.版本 2.DLL命令 二维码_外形设置, , "QRCodeWin32.dll", "QRAppearance" .参数 模块尺寸, 双精度小数型 .参数 方向, 整数型 .参数 边框, 整数型.DLL命令 二维码_编码参数, , "QRCodeWin32.dll", "QRConfigure" .参数 版本, 整数型 .参数 纠错级别, 整数型 .参数 掩膜, 整数型.DLL命令 二维码_默认设置, , "QRCodeWin32.dll", "QRSetDefault".DLL命令 二维码_设置文本信息, , "QRCodeWin32.dll", "QRSetMessage" .参数 文本, 文本型.DLL命令 二维码_获取模块数, , "QRCodeWin32.dll", "QRGetActualRC" .参数 行, 整数型, 传址 .参数 列, 整数型, 传址.DLL命令 二维码_设置图像分辨率, , "QRCodeWin32.dll", "QRSetSize" .参数 宽度, 整数型 .参数 高度, 整数型.DLL命令 二维码_保存到bmp文件, 整数型, "QRCodeWin32.dll", "QRSaveAsBMP" .参数 文件名, 文本型.DLL命令 二维码_复制wmf图片到剪辑板, 整数型, "QRCodeWin32.dll", "QRCopyToClipboard".DLL命令 二维码_设置前景色, , "QRCodeWin32.dll", "QRSetBackColor" .参数 红, 整数型 .参数 绿, 整数型 .参数 蓝, 整数型.DLL命令 二维码_设置背景色, , "QRCodeWin32.dll", "QRSetBarColor" .参数 红, 整数型 .参数 绿, 整数型 .参数 蓝, 整数型
.版本 2.支持库 BmpOperate.程序集 程序集1.子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码_临时子程序 ()返回 (0).子程序 _临时子程序载入 (窗口1, , 假).子程序 快速生成二维码, 字节集, 公开, 返回生成的二维码图像数据.参数 原始文本, 文本型, , 超过120字符的只取前120字符，如果有汉字，可能出现乱码.参数 条码版本, 整数型, 可空, 取值0～40，留空时为设置为0自动.参数 纠错级别, 整数型, 可空, 由低到高0～4，留空时为设置为0低.参数 点阵大小, 双精度小数型, 可空, 取值0.02～0.26，留空设置为0.02.局部变量 图片, 字节集.局部变量 位图, 位图.局部变量 目标位图, 位图.局部变量 I, 整数型.局部变量 顶点X, 整数型.局部变量 顶点Y, 整数型.局部变量 宽高, 整数型.如果真 (取文本长度 (原始文本) ＞ 120) 原始文本 ＝ 取文本左边 (原始文本, 120).如果真结束.如果真 (是否为空 (条码版本)) 条码版本 ＝ 0.如果真结束.如果真 (条码版本 ＜ 0) 条码版本 ＝ 0.如果真结束.如果真 (条码版本 ＞ 40) 条码版本 ＝ 40.如果真结束.如果真 (是否为空 (纠错级别)) 纠错级别 ＝ 0.如果真结束.如果真 (纠错级别 ＜ 0) 纠错级别 ＝ 0.如果真结束.如果真 (纠错级别 ＞ 4) 纠错级别 ＝ 4.如果真结束.如果真 (是否为空 (点阵大小)) 点阵大小 ＝ 0.02.如果真结束.如果真 (点阵大小 ＜ 0.02) 点阵大小 ＝ 0.02.如果真结束.如果真 (点阵大小 ＞ 0.26) 点阵大小 ＝ 0.26.如果真结束二维码_设置文本信息 (原始文本)二维码_设置前景色 (255, 255, 255)二维码_设置背景色 (0, 0, 0)二维码_编码参数 (条码版本, 纠错级别, 5)二维码_外形设置 (点阵大小, 1, 0)二维码_设置图像分辨率 (400, 400)二维码_保存到bmp文件 (取运行目录 () ＋ “/二维码图片.bmp”)位图.创建 (400, 400, 1, 0)位图.载入文件 (取运行目录 () ＋ “/二维码图片.bmp”)取位图图象顶点 (位图, 顶点X, 顶点Y).计次循环首 (399, I) .如果真 (位图.取某点颜色 (顶点X ＋ I － 1, 顶点Y) ＝ 0 且 位图.取某点颜色 (顶点X, 顶点Y ＋ I － 1) ＝ 0) 宽高 ＝ I .如果真结束 .如果真 (顶点X ＋ I － 1 ≥ 399 或 顶点Y ＋ I － 1 ≥ 399) 跳出循环 () .如果真结束.计次循环尾 ()目标位图.创建 (宽高, 宽高, 1, 0)位图.复制到 (顶点X, 顶点Y, 宽高, 宽高, 目标位图, 0, 0, )图片 ＝ 目标位图.取位图数据 ()删除文件 (取运行目录 () ＋ “/二维码图片.bmp”)返回 (图片).子程序 取位图图象顶点.参数 位图, 位图.参数 顶点X, 整数型, 参考.参数 顶点Y, 整数型, 参考.局部变量 X, 整数型.局部变量 Y, 整数型.计次循环首 (400, X) .计次循环首 (400, Y) .如果真 (位图.取某点颜色 (X － 1, Y － 1) ＝ 0) 顶点X ＝ X － 1 顶点Y ＝ Y － 1 返回 () .如果真结束 .计次循环尾 ().计次循环尾 ()
.版本 2.程序集 窗口程序集1.子程序 _生成按钮_被单击二维码图片框.图片 ＝ 快速生成二维码 (要转换内容编辑框.内容, 到数值 (组合框_版本.现行选中项), 到数值 (组合框_纠错.现行选中项), 到数值 (组合框_点阵.内容)).子程序 _窗口1_创建完毕组合框_版本赋值 ()_生成按钮_被单击 ().子程序 组合框_版本赋值.局部变量 n, 整数型.局部变量 像素, 整数型.局部变量 文本, 文本型.局部变量 数值, 双精度小数型数值 ＝ 0.02像素 ＝ 21组合框_版本.加入项目 (“自动”, ).计次循环首 (40, n) 文本 ＝ 到文本 (像素) 组合框_版本.加入项目 (“版本_” ＋ 到文本 (n) ＋ “ ” ＋ 文本 ＋ “×” ＋ 文本, ) 像素 ＝ 像素 ＋ 4.计次循环尾 ().计次循环首 (24, n) 数值 ＝ 数值 ＋ 0.01 组合框_点阵.加入项目 (到文本 (数值), ).计次循环尾 ()
