限制编辑框输入小数点位数

这就是用户名

  

子程序名	返回值类型	公开	备 注
_编辑框1_字符输入	整数型
参数名	类 型	参考	可空	数组	备 注
字符代码	整数型

变量名	类 型	静态	数组	备 注
小数点位置	整数型
小数点右边	文本型
限制几位小数点	整数型

. ' 如果真 (字符代码 ＝ #回车键)  ' 如果编辑框不允许多行,又不想按回车键有声音,用这个方法可以搞定
' 返回 (0)

如果真 (字符代码 ＝ #退格键 或 字符代码 ＝ #回车键 )  ' 不管什么情况,都允许使用的按键都写这里
返回 (字符代码)

小数点位置 ＝ 寻找文本 (编辑框1.内容, “.”, , 假)
如果真 (小数点位置 ＝ -1)  ' 如果没有输入过小数点,那所有字符都允许输入
返回 (字符代码)

如果真 (字符代码 ＝ 取代码 (“.”, ))  ' 如果有输入过小数点,则不允许输入第二个小数点
返回 (0)

' 否则这里就是已经有输入过小数点了
限制几位小数点 ＝ 2
如果真 (编辑框1.起始选择位置 ＜ 小数点位置)  ' 如果输入的数据是在小数点的左边
返回 (字符代码)

' 走到这里表示输入的是在小数点的右边
小数点右边 ＝ 取文本右边 (编辑框1.内容, 取文本长度 (编辑框1.内容) － 小数点位置)
如果真 (取文本长度 (小数点右边) ≥ 限制几位小数点)
返回 (0)  ' 如果输入的内容大于限制的位数,则不然输入,返回个 \0

.版本 2<br /> <br /> .子程序 _编辑框1_字符输入, 整数型<br /> .参数 字符代码, 整数型<br /> .局部变量 小数点位置, 整数型<br /> .局部变量 小数点右边, 文本型<br /> .局部变量 限制几位小数点, 整数型<br /> <br /> .' 如果真 (字符代码 ＝ #回车键)  ' 如果编辑框不允许多行,又不想按回车键有声音,用这个方法可以搞定<br />     ' 返回 (0)<br /> .如果真结束<br /> <br /> .如果真 (字符代码 ＝ #退格键 或 字符代码 ＝ #回车键)  ' 不管什么情况,都允许使用的按键都写这里<br />     返回 (字符代码)<br /> .如果真结束<br /> <br /> 小数点位置 ＝ 寻找文本 (编辑框1.内容, “.”, , 假)<br /> .如果真 (小数点位置 ＝ -1)  ' 如果没有输入过小数点,那所有字符都允许输入<br />     返回 (字符代码)<br /> .如果真结束<br /> <br /> .如果真 (字符代码 ＝ 取代码 (“.”, ))  ' 如果有输入过小数点,则不允许输入第二个小数点<br />     返回 (0)<br /> .如果真结束<br /> <br /> ' 否则这里就是已经有输入过小数点了<br /> 限制几位小数点 ＝ 2<br /> .如果真 (编辑框1.起始选择位置 ＜ 小数点位置)  ' 如果输入的数据是在小数点的左边<br />     返回 (字符代码)<br /> .如果真结束<br /> <br /> ' 走到这里表示输入的是在小数点的右边<br /> 小数点右边 ＝ 取文本右边 (编辑框1.内容, 取文本长度 (编辑框1.内容) － 小数点位置)<br /> .如果真 (取文本长度 (小数点右边) ≥ 限制几位小数点)<br />     返回 (0)  ' 如果输入的内容大于限制的位数,则不然输入,返回个 \0<br /> .如果真结束

完美限制编辑框小数点输入位数
限制编辑框输入小数点位数.e (3.55 KB, 下载次数: 33)

2018-4-14 18:43 上传

点击文件名下载附件

jonathanwen

学习了，谢谢

boomsa

谢谢分享

专业协议软件

嗯嗯恩，必须支持一下这么好的源码、

ttpower

感谢楼主分享

a1274807709

支持开源~！感谢分享

wuqingg

我没有文化,智能叫楼主加油，加油！

forkh

虽然简单复杂化了，但是新思路就是好，创新嘛

信念

直接用一个分割.搞定。。