|
发表于 2014-3-15 10:37:22
|
显示全部楼层
四川省成都市
[e]
.版本 2
.支持库 spec
.支持库 iext
.程序集 窗口程序集1
.程序集变量 男成员数, 整数型
.子程序 _按钮1_被单击
调试输出 (超级列表框1.取表项数 ())
.如果真 (编辑框1.内容 ≠ “”)
.如果真 (超级列表框1.取表项数 () > 9)
超级列表框1.全部删除 ()
.如果真结束
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (超级列表框1.取表项数 () - 1, 0, 到文本 (超级列表框1.取表项数 ()))
超级列表框1.置标题 (超级列表框1.取表项数 () - 1, 1, 编辑框1.内容)
超级列表框1.置标题 (超级列表框1.取表项数 () - 1, 2, 组合框1.内容)
编辑框1.内容 = “”
编辑框1.获取焦点 ()
.如果真 (删首尾空 (组合框1.内容) = “男”)
男成员数 = 男成员数 + 1
状态条1.置文本 (0, “ 已加男成员:” + 到文本 (男成员数) + “个 ”)
.如果真结束
.如果真结束
.子程序 _超级列表框1_左键单击表项
.如果真 (超级列表框1.现行选中项 ≠ -1)
编辑框1.内容 = 超级列表框1.取标题 (超级列表框1.现行选中项, 1)
.如果真结束
.子程序 __启动窗口_创建完毕
编辑框1.获取焦点 ()
[/e] |
|