|
发表于 2013-12-14 13:02:42
|
显示全部楼层
广东省东莞市
本帖最后由 superuserlrj 于 2013-12-14 13:03 编辑
[e]
.版本 2
.程序集 窗口程序集1
.子程序 _编辑框1_内容被改变
.局部变量 编辑框事件, 编辑框
编辑框事件 = 取事件组件 ()
.判断开始 (编辑框事件.标记 = “1”)
.如果真 (取文本长度 (编辑框1.内容) ≥ 7)
编辑框2.获取焦点 ()
编辑框2.被选择字符数 = 取文本长度 (编辑框2.内容)
.如果真结束
.判断 (编辑框事件.标记 = “2”)
.如果真 (取文本长度 (编辑框2.内容) ≥ 7)
编辑框3.获取焦点 ()
编辑框3.被选择字符数 = 取文本长度 (编辑框3.内容)
.如果真结束
.如果真 (编辑框2.内容 = “”)
编辑框1.获取焦点 ()
编辑框1.被选择字符数 = 取文本长度 (编辑框1.内容)
.如果真结束
.判断 (编辑框事件.标记 = “3”)
.如果真 (取文本长度 (编辑框3.内容) ≥ 7 或 编辑框3.内容 = “”)
编辑框4.获取焦点 ()
编辑框4.被选择字符数 = 取文本长度 (编辑框4.内容)
.如果真结束
.如果真 (编辑框3.内容 = “”)
编辑框2.获取焦点 ()
编辑框2.被选择字符数 = 取文本长度 (编辑框2.内容)
.如果真结束
.默认
.如果真 (编辑框4.内容 = “”)
编辑框3.获取焦点 ()
编辑框3.被选择字符数 = 取文本长度 (编辑框3.内容)
.如果真结束
.判断结束
.子程序 __启动窗口_创建完毕
编辑框1.标记 = “1”
编辑框2.标记 = “2”
编辑框3.标记 = “3”
编辑框4.标记 = “4”
事件转移 (编辑框2, 编辑框1)
事件转移 (编辑框3, 编辑框1)
事件转移 (编辑框4, 编辑框1)
[/e]
事件转移 例程.rar
(1.28 KB, 下载次数: 3)
|
|