易语言限制编辑框只能输入中文的方法

今天小编就为大家分享一篇关于易语言限制编辑框只能输入中文的方法，小编觉得内容挺不错的，现在分享给大家，具有很好的参考价值，需要的朋友一起跟随小编来看看吧

编辑框只能输入汉字例程

				?

									.版本 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)

									.如果真结束