急!易语言设置编辑框内只能输入字母和数字,其他符号和文件不可输入。怎么设定?

2024-11-27 07:23:50
推荐回答(2个)
回答1:

.版本 2
.支持库 eAPI

.子程序 _编辑框1_内容被改变

数字字母 ()

.子程序 数字字母, 文本型
.局部变量 母, 文本型
.局部变量 长度, 整数型
.局部变量 i, 整数型
.局部变量 数母, 文本型
.局部变量 a, 逻辑型
.局部变量 b, 整数型

母 = “0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ”
长度 = 取文本长度 (母)
.计次循环首 (长度, i)
数母 = 取文本中间 (母, i, 1)
' 输出调试文本 (数母)
.如果真 (取文本右边 (编辑框1.内容, 1) = 数母)
' 输出调试文本 (取文本右边 (编辑框1.内容, 1))
b = 0
.如果真 (b = 0)
a = 假
跳出循环 ()

.如果真结束

.如果真结束
a = 真
b = 1
.计次循环尾 ()
.如果真 (a)
编辑框1.起始选择位置 = 取文本长度 (编辑框1.内容)
模拟按键 (8, , )
.如果真结束
返回 (数母)

回答2:

.版本 2

.子程序 _编辑框2_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型

.如果真 (键代码 = 229)
返回 (假)

----------------------------------------------
或者用
----------------------------------------------
.版本 2

.子程序 _编辑框1_内容被改变

.如果真 (取代码 (编辑框1.内容, 取文本长度 (编辑框1.内容)) < 0)
编辑框1.内容 = 取文本左边 (编辑框1.内容, 取文本长度 (编辑框1.内容) - 2)
编辑框1.起始选择位置 = -1