Question

易语言怎么实现按住一个按键之后在编辑框不停的输入“1”松开之后停止输入

如题
易语言怎么实现按住一个按键之后，在编辑框不停的输入123456..9999...99999.以此类推，松开之后停止输入。
最好不要时钟的那种

.版本 2
.子程序 _编辑框1_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.局部变量 a, 整数型, 静态
.如果真 (键代码 ＝ 112)
a ＝ a ＋ 1
编辑框1.加入文本 (到文本 (a) ＋ #换行符)

.如果真结束

上边代码这类的需要组件获取焦点才能用
要求不需要获取焦点就能用的
比如我按下空格键就不停的输入1到9999999松开之后停止

Answer 1

.版本 2

.程序集 窗口程序集_启动窗口

.程序集变量 n, 整数型

.子程序 _编辑框1_字符输入, 整数型

.参数 字符代码, 整数型

.如果真 (字符代码 ＝ 97)

    ' 以上字符代码=97表示按a键，你可以用其他键

    n ＝ n ＋ 1

    .如果真 (n ＞ 6)

        n ＝ 1

    .如果真结束

    编辑框1.内容 ＝ 编辑框1.内容 ＋ 到文本 (n)

    返回 (0)

.如果真结束

返回 (0)

Answer 2

.版本 2

.程序集 窗口程序集1
.程序集变量 S_stop, 逻辑型

.子程序 _按钮2_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 N, 整数型

S_stop ＝ 真
.判断循环首 (S_stop)
N ＝ N ＋ 1
编辑框1.内容 ＝ 编辑框1.内容 ＋ 取文本右边 (到文本 (N), 1)
延时 (100)
处理事件 ()
.判断循环尾 ()

.子程序 _按钮2_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

S_stop ＝ 假