.版本 2
.子程序 _编辑框_年_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.判断开始 (键代码 = #右光标键)
编辑框_月.获取焦点 ()
.判断 (键代码 = #左光标键)
编辑框_年.获取焦点 ()
.默认
.判断结束
.子程序 _编辑框_月_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.判断开始 (键代码 = #右光标键)
编辑框_日.获取焦点 ()
.判断 (键代码 = #左光标键)
编辑框_年.获取焦点 ()
.默认
.判断结束
.子程序 _编辑框_日_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.判断开始 (键代码 = #右光标键)
编辑框_时.获取焦点 ()
.判断 (键代码 = #左光标键)
编辑框_月.获取焦点 ()
.默认
.判断结束
.子程序 _编辑框_时_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.判断开始 (键代码 = #右光标键)
编辑框_分.获取焦点 ()
.判断 (键代码 = #左光标键)
编辑框_日.获取焦点 ()
.默认
.判断结束
<