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

福仔

  

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

变量名	类 型	静态	数组	备 注
局部_字符组	字节型		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, 下载次数: 98)

2017-3-3 19:08 上传

点击文件名下载附件
下载积分: 精币 -2 枚

福仔

自古沙发是楼主,杀个花花

魔鬼技术

1. MessageBox("这么小软件，在这里炫耀！ 切")；

复制代码

进击

来，看看板凳

已注销370852

666，可以的

Timeles

不错哦，可以学习学习

忧郁之子

好东西，又学会了一个东西。

娱乐哟

好东西

列明

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

kyo9766

新技能已get√