易语言中按下某键执行事件

.版本 2

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

.判断开始 (键代码 ＝ #右光标键)
    编辑框_月.获取焦点 ()
.判断 (键代码 ＝ #左光标键)
    编辑框_年.获取焦点 ()
.默认

.判断结束

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

.判断开始 (键代码 ＝ #右光标键)
    编辑框_日.获取焦点 ()
.判断 (键代码 ＝ #左光标键)
    编辑框_年.获取焦点 ()
.默认

.判断结束

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

.判断开始 (键代码 ＝ #右光标键)
    编辑框_时.获取焦点 ()
.判断 (键代码 ＝ #左光标键)
    编辑框_月.获取焦点 ()
.默认

.判断结束

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

.判断开始 (键代码 ＝ #右光标键)
    编辑框_分.获取焦点 ()
.判断 (键代码 ＝ #左光标键)
    编辑框_日.获取焦点 ()
.默认

.判断结束

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

.判断开始 (键代码 ＝ #右光标键)
    编辑框_秒.获取焦点 ()
.默认

.判断结束
.判断开始 (键代码 ＝ #左光标键)
    编辑框_时.获取焦点 ()
.默认

.判断结束

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

.判断开始 (键代码 ＝ #左光标键)
    编辑框_分.获取焦点 ()
.默认

.判断结束

.子程序 __启动窗口_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型

.子程序 __启动窗口_放开某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型