输入方式=3
允许多行=假
[C] 纯文本查看 复制代码 .版本 2
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
编辑框_月份.输入方式 = 3 ' 设置编辑框只能输入数字
编辑框_月份.是否允许多行 = 假 ' 设置编辑框为单行模式,便于按回车键操作
编辑框_月份.获取焦点 () ' 让编辑框初始获取焦点,方便直接输入
.子程序 _编辑框_月份_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.局部变量 输入月份, 整数型
.局部变量 月份文字, 文本型
.如果真 (键代码 = #回车键) ' 判断按下的键是否为回车键
输入月份 = 到整数 (编辑框_月份.内容) ' 获取编辑框中输入的内容并转为整数
.如果 (输入月份 ≥ 1 且 输入月份 ≤ 12) ' 判断输入月份是否在合理范围
.判断开始 (输入月份 = 1)
月份文字 = “孟春”
.判断 (输入月份 = 2)
月份文字 = “仲春”
.判断 (输入月份 = 3)
月份文字 = “季春”
.判断 (输入月份 = 4)
月份文字 = “孟夏”
.判断 (输入月份 = 5)
月份文字 = “仲夏”
.判断 (输入月份 = 6)
月份文字 = “季夏”
.判断 (输入月份 = 7)
月份文字 = “孟秋”
.判断 (输入月份 = 8)
月份文字 = “仲秋”
.判断 (输入月份 = 9)
月份文字 = “季秋”
.判断 (输入月份 = 10)
月份文字 = “孟冬”
.判断 (输入月份 = 11)
月份文字 = “仲冬”
.判断 (输入月份 = 12)
月份文字 = “季冬”
.默认
月份文字 = “未知月份”
.判断结束
.否则
月份文字 = “输入月份错误,请输入01 - 12的整数”
.如果结束
标签_结果.标题 = 月份文字 ' 将这里的属性改为"标题",用于设置标签显示的文字内容
返回 (假)
.如果真结束
返回 (真)
|