易语言中,怎样使编辑框只能输入数字,别的都不能输入?

支持库 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, , )
.如果真结束
返回 (数母)

点击编辑框 有个 输入方式 应该是第七个 整数输入