易语言编辑框只能输入字母数字

风吹PP凉

上网找了几个多多少少都有BUG 不好用
自己写了个  还是比较完美的  分享给大家

  

子程序名	返回值类型	公开	备 注
_编辑框3_按下某键	逻辑型		易语言编辑框只能输入数字字母,编辑框属性设置为只读
参数名	类 型	参考	可空	数组	备 注
键代码	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
光标前面文本	文本型
光标后面文本	文本型
记住光标位置	整数型

如果真 (取文本长度 (键盘_键代码取键名 (键代码)) ＝ 3)
编辑框3.内容 ＝ 编辑框3.内容 ＋ 取文本左边 (键盘_键代码取键名 (键代码), 1)
编辑框3.起始选择位置 ＝ 取文本长度 (编辑框3.内容)
如果真 (键盘_键代码取键名 (键代码) ＝ “退格键”)
如果真 (编辑框3.起始选择位置 ＝ 0)
编辑框3.内容 ＝ “”
光标前面文本 ＝ 取文本左边 (编辑框3.内容, 编辑框3.起始选择位置)
光标后面文本 ＝ 取文本右边 (编辑框3.内容, 取文本长度 (编辑框3.内容) － 编辑框3.起始选择位置)
调试输出 (光标前面文本, 光标后面文本)
记住光标位置 ＝ 取文本长度 (光标前面文本)
编辑框3.内容 ＝ 文本_删右边 (光标前面文本, 1) ＋ 光标后面文本
编辑框3.起始选择位置 ＝ 记住光标位置 － 1

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _编辑框3_按下某键, 逻辑型, , 易语言编辑框只能输入数字字母,编辑框属性设置为只读<br /> .参数 键代码, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 光标前面文本, 文本型<br /> .局部变量 光标后面文本, 文本型<br /> .局部变量 记住光标位置, 整数型<br /> <br /> .如果真 (取文本长度 (键盘_键代码取键名 (键代码)) ＝ 3)<br />     编辑框3.内容 ＝ 编辑框3.内容 ＋ 取文本左边 (键盘_键代码取键名 (键代码), 1)<br />     编辑框3.起始选择位置 ＝ 取文本长度 (编辑框3.内容)<br /> .如果真结束<br /> .如果真 (键盘_键代码取键名 (键代码) ＝ “退格键”)<br />     .如果真 (编辑框3.起始选择位置 ＝ 0)<br />         编辑框3.内容 ＝ “”<br />     .如果真结束<br />     光标前面文本 ＝ 取文本左边 (编辑框3.内容, 编辑框3.起始选择位置)<br />     光标后面文本 ＝ 取文本右边 (编辑框3.内容, 取文本长度 (编辑框3.内容) － 编辑框3.起始选择位置)<br />     调试输出 (光标前面文本, 光标后面文本)<br />     记住光标位置 ＝ 取文本长度 (光标前面文本)<br />     编辑框3.内容 ＝ 文本_删右边 (光标前面文本, 1) ＋ 光标后面文本<br />     编辑框3.起始选择位置 ＝ 记住光标位置 － 1

孤影的牛子

6666666666666666

大拇指软件

昨夜的雨 发表于 2020-3-5 15:24
？？？？？我惊了，易语言不是自带的有这个功能吗

只能同时支持字母和数字啊

天外飞雪

谢谢分享，又学习了一波

天外飞雪

谢谢分享，又学习了一波

lufanjingyi

无语  组件自带的功能还搞一堆判断

wjswzj0

好东东.................

lg7oz9

我傻了，自带这功能为什么还写一个

昨夜的雨

？？？？？我惊了，易语言不是自带的有这个功能吗