編輯框只能輸入漢字例程
.版本 2.支持庫 RegEx.支持庫 spec.程序集 啟動窗口程序集.程序集變量 過濾后文本, 文本型.子程序 __啟動窗口_創建完畢默認窗口 = SetWindowLongA (編輯框1.取窗口句柄 (), -4, &處理).子程序 處理, 整數型, , 不要修改該子程序的返回值及參數的類型!.參數 句柄, 整數型.參數 消息, 整數型.參數 參數1, 整數型.參數 參數2, 整數型.局部變量 文本字節集, 字節集.局部變量 i, 整數型.局部變量 代碼, 字節型, , "0".局部變量 正則, 正則表達式.局部變量 結果, 搜索結果, , "0".如果真 (消息 = 770) 文本字節集 = 到字節集 (取剪輯板文本 ()) 過濾后文本 = “” i = 1 .判斷循環首 (i < 取字節集長度 (文本字節集)) .判斷開始 (到數值 (文本字節集 [i]) ≥ 176 且 到數值 (文本字節集 [i + 1]) ≥ 161) 重定義數組 (代碼, 假, 0) 加入成員 (代碼, 文本字節集 [i]) 加入成員 (代碼, 文本字節集 [i + 1]) 過濾后文本 = 過濾后文本 + 到文本 (到字節集 (代碼)) i = i + 2 到循環尾 () .判斷 (到數值 (文本字節集 [i]) > 127) i = i + 2 .判斷 (取整 (到數值 (文本字節集 [i])) = 13) 調試輸出 (到數值 (文本字節集 [i])) 重定義數組 (代碼, 假, 0) 加入成員 (代碼, 13) 加入成員 (代碼, 10) 過濾后文本 = 過濾后文本 + 到文本 (到字節集 (代碼)) i = i + 1 .默認 i = i + 1 .判斷結束 .判斷循環尾 () 編輯框1.加入文本 (過濾后文本) 返回 (1).如果真結束返回 (CallWindowProcA (默認窗口, 句柄, 消息, 參數1, 參數2)).子程序 _編輯框1_字符輸入, 整數型.參數 字符代碼, 整數型.如果真 (字符代碼 = 13 或 字符代碼 = 8) 返回 (字符代碼).如果真結束.如果真 (字符代碼 < 176) 返回 (0).如果真結束
運行結果:
總結
以上就是這篇文章的全部內容了,希望本文的內容對大家的學習或者工作具有一定的參考學習價值,謝謝大家對VeVb武林網的支持。
新聞熱點
疑難解答