易语言编辑框功能限制简单的实例

.版本 2

.程序集 程序集1

.子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码


_临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
返回 (0)  ' 可以根据您的需要返回任意数值

.子程序 _临时子程序

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
载入 (窗口1, , 假)

.子程序 限制输入_中文, , 公开, 该子程序仅支持在 _编辑框_字符输入 子程序下使用
.参数 欲操作的编辑框, 编辑框, , 提供一个编辑框
.参数 字符代码, 字节型, , _编辑框_字符输入 下的参数
.局部变量 局部_字符组, 字节型, 静态, "0", 文本型就是字节集,字节集就是字节型数组,所以字节型数组就是文本型,因为这里只加入文本,如果是多个编辑框一起用的话,这里会有问题,自己想办法解决
.局部变量 局部_计次, 字节型, 静态, , 一个中文两个字节,到两次才加入编辑框

.如果真 (字符代码 ＞ 127)  ' 懒得判断是不是中文,我这里判断超过127就算中文,其他不处理
    加入成员 (局部_字符组, 字符代码)
    局部_计次 ＝ 局部_计次 ＋ 1
    .如果真 (局部_计次 ＝ 2)  ' 一个中文两个字节,到两次才加入编辑框
        局部_计次 ＝ 0  ' 计次清零
        欲操作的编辑框.内容 ＝ 欲操作的编辑框.内容 ＋ 到文本 (局部_字符组)  ' 原来编辑框的内容加上刚输入的内容
        欲操作的编辑框.起始选择位置 ＝ -1  ' 编辑框光标让它到最后
        清除数组 (局部_字符组)  ' 加入编辑框后要清空数组里的内容
    .如果真结束

.如果真结束


.子程序 限制输入_数值, , 公开, 该子程序仅支持在 _编辑框_字符输入 子程序下使用
.参数 欲操作的编辑框, 编辑框, , 提供一个编辑框
.参数 字符代码, 整数型, , _编辑框_字符输入 下的参数

.如果真 (是否在两数范围内 (字符代码, 取代码 (“0”, ), 取代码 (“9”, )))  ' 0-9
    欲操作的编辑框.内容 ＝ 欲操作的编辑框.内容 ＋ 字符 (字符代码)  ' 原来编辑框的内容加上最新输入的字符
    欲操作的编辑框.起始选择位置 ＝ -1  ' 编辑框光标让它到最后
.如果真结束


.子程序 限制输入_小写字母, , 公开, 该子程序仅支持在 _编辑框_字符输入 子程序下使用
.参数 欲操作的编辑框, 编辑框, , 提供一个编辑框
.参数 字符代码, 整数型, , _编辑框_字符输入 下的参数

.如果真 (是否在两数范围内 (字符代码, 取代码 (“a”, ), 取代码 (“z”, )))
    欲操作的编辑框.内容 ＝ 欲操作的编辑框.内容 ＋ 字符 (字符代码)  ' 原来编辑框的内容加上最新输入的字符
    欲操作的编辑框.起始选择位置 ＝ -1  ' 编辑框光标让它到最后
.如果真结束


.子程序 限制输入_大写字母, , 公开, 该子程序仅支持在 _编辑框_字符输入 子程序下使用
.参数 欲操作的编辑框, 编辑框, , 提供一个编辑框
.参数 字符代码, 整数型, , _编辑框_字符输入 下的参数

.如果真 (是否在两数范围内 (字符代码, 取代码 (“A”, ), 取代码 (“Z”, )))
    欲操作的编辑框.内容 ＝ 欲操作的编辑框.内容 ＋ 字符 (字符代码)  ' 原来编辑框的内容加上最新输入的字符
    欲操作的编辑框.起始选择位置 ＝ -1  ' 编辑框光标让它到最后
.如果真结束


.子程序 是否在两数范围内, 逻辑型
.参数 欲判断的数, 整数型
.参数 第一个数, 整数型
.参数 第二个数, 整数型

返回 (欲判断的数 ≥ 第一个数 且 欲判断的数 ≤ 第二个数)

@福仔