编辑框屏蔽键非26个字母盘输入

.版本 2

.程序集 窗口程序集1

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

标签1.标题 ＝ “您按下了： ” ＋ 取按下的键盘字母 (键代码) ＋ “ 键！”
.如果真 (键代码 ＜ 90)
.如果真结束
.如果真 (键代码 ＞ 64)
    返回 (假)
.如果真结束


.子程序 取按下的键盘字母, 文本型, , 返回按下的键盘字母(大写)，记住要把“键代码”设置为参数，不能为变量
.参数 键代码, 整数型

.如果真 (键代码 ＝ 65)
    返回 (“A”)
.如果真结束
.如果真 (键代码 ＝ 66)
    返回 (“B”)
.如果真结束
.如果真 (键代码 ＝ 67)
    返回 (“C”)
.如果真结束
.如果真 (键代码 ＝ 68)
    返回 (“D”)
.如果真结束
.如果真 (键代码 ＝ 69)
    返回 (“E”)
.如果真结束
.如果真 (键代码 ＝ 70)
    返回 (“F”)
.如果真结束
.如果真 (键代码 ＝ 71)
    返回 (“G”)
.如果真结束
.如果真 (键代码 ＝ 72)
    返回 (“H”)
.如果真结束
.如果真 (键代码 ＝ 73)
    返回 (“I”)
.如果真结束
.如果真 (键代码 ＝ 74)
    返回 (“J”)
.如果真结束
.如果真 (键代码 ＝ 75)
    返回 (“K”)
.如果真结束
.如果真 (键代码 ＝ 76)
    返回 (“L”)
.如果真结束
.如果真 (键代码 ＝ 77)
    返回 (“M”)
.如果真结束
.如果真 (键代码 ＝ 78)
    返回 (“N”)
.如果真结束
.如果真 (键代码 ＝ 79)
    返回 (“O”)
.如果真结束
.如果真 (键代码 ＝ 80)
    返回 (“P”)
.如果真结束
.如果真 (键代码 ＝ 81)
    返回 (“Q”)
.如果真结束
.如果真 (键代码 ＝ 82)
    返回 (“R”)
.如果真结束
.如果真 (键代码 ＝ 83)
    返回 (“S”)
.如果真结束
.如果真 (键代码 ＝ 84)
    返回 (“T”)
.如果真结束
.如果真 (键代码 ＝ 85)
    返回 (“U”)
.如果真结束
.如果真 (键代码 ＝ 86)
    返回 (“V”)
.如果真结束
.如果真 (键代码 ＝ 87)
    返回 (“W”)
.如果真结束
.如果真 (键代码 ＝ 88)
    返回 (“X”)
.如果真结束
.如果真 (键代码 ＝ 89)
    返回 (“Y”)
.如果真结束
.如果真 (键代码 ＝ 90)
    返回 (“Z”)
.如果真结束
返回 (“”)

.子程序 __启动窗口_创建完毕

@果子