易语言中,怎样使编辑框只能输入数字,别的都不能输入?
展开全部
支持库 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, , )
.如果真结束
返回 (数母)
.子程序 _编辑框1_内容被改变
数字字母 ()
.子程序 数字字母, 文本型
.局部变量 母, 文本型
.局部变量 长度, 整数型
.局部变量 i, 整数型
.局部变量 数母, 文本型
.局部变量 a, 逻辑型
.局部变量 b, 整数型
母 = “0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ”
长度 = 取文本长度 (母)
.计次循环首 (长度, i)
数母 = 取文本中间 (母, i, 1)
' 输出调试文本 (数母)
.如果真 (取文本右边 (编辑框1.内容, 1) = 数母)
' 输出调试文本 (取文本右边 (编辑框1.内容, 1))
b = 0
.如果真 (b = 0)
a = 假
跳出循环 ()
.如果真结束
.如果真结束
a = 真
b = 1
.计次循环尾 ()
.如果真 (a)
编辑框1.起始选择位置 = 取文本长度 (编辑框1.内容)
模拟按键 (8, , )
.如果真结束
返回 (数母)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
点击编辑框 有个 输入方式 应该是第七个 整数输入
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询