|
发表于 2011-7-19 00:12:25
|
显示全部楼层
江西省景德镇市
本帖最后由 简易人生 于 2011-7-19 00:32 编辑
我找遍了 都没有。。望精易能添加。时间输入控件。 控件模型:
输入 要求 23:59:59 >00:00:00
输出 要求 01:01:01
输入规则我已经设计好了。
输出规则就是编辑框的内容
现在我就是 不知道怎么把 这个做成一个 功能组件。麻烦高手们给做下。
[e]
.版本 2
.子程序 _编辑框1_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
返回 (模拟时间框事件处理器 (编辑框1, 键代码, 0))
.子程序 _编辑框1_调节钮被按下
.参数 按钮值, 整数型
模拟时间框事件处理器 (编辑框1, 按钮值, 1)
.子程序 模拟时间框事件处理器, 逻辑型, 公开, 进行简单封装
.参数 编辑框, 编辑框
.参数 附加参数, 整数型, , 键代码,按钮值
.参数 事件类型, 整数型, , 0按下某键,1调节钮被按下
.局部变量 p, 整数型
.局部变量 buf, 字节集
.判断开始 (事件类型 = 1) ' 1调节钮被按下
p = 编辑框.起始选择位置
.判断开始 (p ≤ 2)
编辑框.内容 = 格式化时间 (增减时间 (到时间 (“2000-01-01 ” + 编辑框.内容), #小时, 附加参数))
.判断 (p ≥ 3 且 p ≤ 5)
编辑框.内容 = 格式化时间 (增减时间 (到时间 (“2000-01-01 ” + 编辑框.内容), #分钟, 附加参数))
.判断 (p ≥ 6)
编辑框.内容 = 格式化时间 (增减时间 (到时间 (“2000-01-01 ” + 编辑框.内容), #秒, 附加参数))
.默认
返回 (假)
.判断结束
编辑框.起始选择位置 = p
返回 (真)
.判断 (事件类型 = 0)
.判断开始 (附加参数 > 47 且 附加参数 < 58) ' 纯数字
p = 编辑框.起始选择位置 + 1
.判断开始 (p = 3 或 p = 6) ' 判断输入标志位
p = p + 1
.判断 (p = 9)
p = p - 1
.默认
.判断结束
buf = 到字节集 (编辑框.内容)
buf [p] = 附加参数
编辑框.内容 = 格式化时间 (到时间 (“2000-01-01 ” + 到文本 (buf))) ' 规法以下时间输入,呵呵,懒得去判断去了。
编辑框.起始选择位置 = p
.判断 (附加参数 = #左光标键 或 附加参数 = #右光标键) ' 允许使用光标键 方便输入
返回 (真)
.判断 (附加参数 = #上光标键)
模拟时间框事件处理器 (编辑框, 1, 1)
.判断 (附加参数 = #下光标键)
模拟时间框事件处理器 (编辑框, -1, 1)
.默认
.判断结束
.默认
.判断结束
返回 (假)
.子程序 格式化时间, 文本型, 公开, 01:01:01
.参数 时间, 日期时间型
返回 (选择 (取小时 (时间) < 10, “0” + 到文本 (取小时 (时间)), 到文本 (取小时 (时间))) + “:” + 选择 (取分钟 (时间) < 10, “0” + 到文本 (取分钟 (时间)), 到文本 (取分钟 (时间))) + “:” + 选择 (取秒 (时间) < 10, “0” + 到文本 (取秒 (时间)), 到文本 (取秒 (时间))))
[/e]
|
|