大漠.键盘 字符录入的问题
.版本 2.支持库 spec
.程序集 窗口程序集_启动窗口
.程序集变量 大漠, 大漠英文版
.子程序 __启动窗口_创建完毕
大漠.创建对象 ()
调试输出 (大漠.Ver ())
.子程序 _按钮_输入_被单击
.局部变量 i, 整数型
.局部变量 代码键, 整数型
.局部变量 单个文本, 文本型
.局部变量 大写, 文本型
编辑框_输入框.获取焦点 ()
.计次循环首 (取文本长度 (编辑框_初始数据.内容), i)
单个文本 ＝ 取文本中间 (编辑框_初始数据.内容, i, 1)
代码键 ＝ 取代码 (单个文本, )
调试输出 (代码键)
.判断开始 (代码键 ≥ 97 且 代码键 ≤ 122)
大写 ＝ 到大写 (单个文本)
调试输出 (大写)
代码键 ＝ 取代码 (大写, )
.判断 (单个文本 ＝ “@”)
大漠.KeyDown (#Shift键)
大漠.KeyDown (50)
大漠.KeyUp (#Shift键)
大漠.KeyUp (50)
.判断 (单个文本 ＝ “.”)
大漠.KeyPress (190)
.默认
.判断结束
.如果真 (单个文本 ≠ “@” 且 单个文本 ≠ “.”)
大漠.KeyPress (代码键)
.如果真结束
延时 (100)
.计次循环尾 ()
我想把编辑框_初始数据的内容：带有“@” "."等一类字符录入到编辑框_输入框中，但是总是会有一部分字符随机的录入不从成功，请问是什么问题啊
页:
[1]