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

福仔

  

子程序名	返回值类型	公开	备 注
限制输入_中文			该子程序仅支持在 _编辑框_字符输入 子程序下使用
参数名	类 型	参考	可空	数组	备 注
欲操作的编辑框	编辑框				提供一个编辑框
字符代码	字节型				_编辑框_字符输入 下的参数

变量名	类 型	静态	数组	备 注
局部_字符组	字节型		0	文本型就是字节集,字节集就是字节型数组,所以字节型数组就是文本型,因为这里只加入文本,如果是多个编辑框一起用的话,这里会有问题,自己想办法解决
局部_计次	字节型			一个中文两个字节,到两次才加入编辑框

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

子程序名	返回值类型	公开	备 注
限制输入_数值			该子程序仅支持在 _编辑框_字符输入 子程序下使用
参数名	类 型	参考	可空	数组	备 注
欲操作的编辑框	编辑框				提供一个编辑框
字符代码	整数型				_编辑框_字符输入 下的参数

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

子程序名	返回值类型	公开	备 注
限制输入_小写字母			该子程序仅支持在 _编辑框_字符输入 子程序下使用
参数名	类 型	参考	可空	数组	备 注
欲操作的编辑框	编辑框				提供一个编辑框
字符代码	整数型				_编辑框_字符输入 下的参数

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

子程序名	返回值类型	公开	备 注
限制输入_大写字母			该子程序仅支持在 _编辑框_字符输入 子程序下使用
参数名	类 型	参考	可空	数组	备 注
欲操作的编辑框	编辑框				提供一个编辑框
字符代码	整数型				_编辑框_字符输入 下的参数

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

子程序名	返回值类型	公开	备 注
是否在两数范围内	逻辑型
参数名	类 型	参考	可空	数组	备 注
欲判断的数	整数型
第一个数	整数型
第二个数	整数型

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

.版本 2<br /> <br /> .子程序 限制输入_中文, , 公开, 该子程序仅支持在 _编辑框_字符输入 子程序下使用<br /> .参数 欲操作的编辑框, 编辑框, , 提供一个编辑框<br /> .参数 字符代码, 字节型, , _编辑框_字符输入 下的参数<br /> .局部变量 局部_字符组, 字节型, 静态, "0", 文本型就是字节集,字节集就是字节型数组,所以字节型数组就是文本型,因为这里只加入文本,如果是多个编辑框一起用的话,这里会有问题,自己想办法解决<br /> .局部变量 局部_计次, 字节型, 静态, , 一个中文两个字节,到两次才加入编辑框<br /> <br /> .如果真 (字符代码 ＞ 127)  ' 懒得判断是不是中文,我这里判断超过127就算中文,其他不处理<br />     加入成员 (局部_字符组, 字符代码)<br />     局部_计次 ＝ 局部_计次 ＋ 1<br />     .如果真 (局部_计次 ＝ 2)  ' 一个中文两个字节,到两次才加入编辑框<br />         局部_计次 ＝ 0  ' 计次清零<br />         欲操作的编辑框.内容 ＝ 欲操作的编辑框.内容 ＋ 到文本 (局部_字符组)  ' 原来编辑框的内容加上刚输入的内容<br />         欲操作的编辑框.起始选择位置 ＝ -1  ' 编辑框光标让它到最后<br />         清除数组 (局部_字符组)  ' 加入编辑框后要清空数组里的内容<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 限制输入_数值, , 公开, 该子程序仅支持在 _编辑框_字符输入 子程序下使用<br /> .参数 欲操作的编辑框, 编辑框, , 提供一个编辑框<br /> .参数 字符代码, 整数型, , _编辑框_字符输入 下的参数<br /> <br /> .如果真 (是否在两数范围内 (字符代码, 取代码 (“0”, ), 取代码 (“9”, )))  ' 0-9<br />     欲操作的编辑框.内容 ＝ 欲操作的编辑框.内容 ＋ 字符 (字符代码)  ' 原来编辑框的内容加上最新输入的字符<br />     欲操作的编辑框.起始选择位置 ＝ -1  ' 编辑框光标让它到最后<br /> .如果真结束<br /> <br /> <br /> .子程序 限制输入_小写字母, , 公开, 该子程序仅支持在 _编辑框_字符输入 子程序下使用<br /> .参数 欲操作的编辑框, 编辑框, , 提供一个编辑框<br /> .参数 字符代码, 整数型, , _编辑框_字符输入 下的参数<br /> <br /> .如果真 (是否在两数范围内 (字符代码, 取代码 (“a”, ), 取代码 (“z”, )))<br />     欲操作的编辑框.内容 ＝ 欲操作的编辑框.内容 ＋ 字符 (字符代码)  ' 原来编辑框的内容加上最新输入的字符<br />     欲操作的编辑框.起始选择位置 ＝ -1  ' 编辑框光标让它到最后<br /> .如果真结束<br /> <br /> <br /> .子程序 限制输入_大写字母, , 公开, 该子程序仅支持在 _编辑框_字符输入 子程序下使用<br /> .参数 欲操作的编辑框, 编辑框, , 提供一个编辑框<br /> .参数 字符代码, 整数型, , _编辑框_字符输入 下的参数<br /> <br /> .如果真 (是否在两数范围内 (字符代码, 取代码 (“A”, ), 取代码 (“Z”, )))<br />     欲操作的编辑框.内容 ＝ 欲操作的编辑框.内容 ＋ 字符 (字符代码)  ' 原来编辑框的内容加上最新输入的字符<br />     欲操作的编辑框.起始选择位置 ＝ -1  ' 编辑框光标让它到最后<br /> .如果真结束<br /> <br /> <br /> .子程序 是否在两数范围内, 逻辑型<br /> .参数 欲判断的数, 整数型<br /> .参数 第一个数, 整数型<br /> .参数 第二个数, 整数型<br /> <br /> 返回 (欲判断的数 ≥ 第一个数 且 欲判断的数 ≤ 第二个数)

看到问答区提的一个问题,感觉还挺有意思,然后就花了点时间写了一个
核心代码就这么多
主要是不知道编辑框字符输入是什么消息值,如果知道编辑框输入字符是什么消息值的话 可以用 SetWindowLongA 这个API来获取消息,然后在处理
限制编辑框输入.zip (3.36 KB, 下载次数: 94)

2017-3-3 19:08 上传

点击文件名下载附件

练祖岚

小手一抖，精币到手

1025806597

感谢楼主的分享！！

ganqing1234560

太有帮助了，非常感谢。你发的很多教程，都是我需要的！

airaz

应该 加到精易里

bylove

发生的方式的放松放松的

三多01

正在写一个命令生成器，正好遇到这个中文判断难题。谢谢解答！

〆夏﹏月光倾城

很好奇看到那个问答区的问题是不是我提出来的-.-

ljf10080

谢谢楼主分享，下载备用

kyo9766

新技能已get√

列明

学习一下，感谢了，好思路