今天小編就爲大家分享一篇關於易語言將指定內容轉換成二維碼的方法，小編覺得內容挺不錯的，現在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧
DLL命令表
.版本 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 組合框_點陣.加入項目 (到文本 (數值), ) .計次循環尾 ()
運行結果：
總結
以上就是這篇文章的全部內容了，希望本文的內容對大家的學習或者工作具有一定的參考學習價值，謝謝大家對神馬文庫的支持。如果你想了解更多相關內容請查看下面相關鏈接