|
发表于 2021-8-15 10:00:05
|
显示全部楼层
河北省邢台市
- .版本 2
- .程序集 窗口程序集_启动窗口
- .程序集变量 词库, 文本型, , "9"
- .程序集变量 if, 逻辑型
- .子程序 _编辑框1_内容被改变
- .局部变量 i, 整数型
- .局部变量 i1
- .局部变量 文本, 文本型, , "0"
- .局部变量 总文本, 文本型
- .如果 (编辑框1.内容 = “”)
- 列表框1.清空 ()
- 列表框1.可视 = 假
- .否则
- .如果真 (取反 (if))
- 列表框1.清空 ()
- 列表框1.可视 = 真
- .计次循环首 (取数组成员数 (词库), i)
- 文本_逐字分割_快速 (词库 [i], 文本, ) ' ''' 用于输入 a
- .如果 (取文本左边 (词库 [i], 取文本长度 (编辑框1.内容)) = 编辑框1.内容)
- 列表框1.加入项目 (词库 [i], )
- .否则
- ' ''' 输入 a
- ' '''预览框输出 啊我是
- .如果真 (取数组成员数 (文本) ≥ 取文本长度 (编辑框1.内容)) ' 预览的大于输入的
- .计次循环首 (取文本长度 (编辑框1.内容), i1)
- 总文本 = 总文本 + 文本 [i1]
- .计次循环尾 ()
- .如果真 (文本_取声母 (总文本) = 编辑框1.内容)
- 列表框1.加入项目 (词库 [i], )
- .如果真结束
- 总文本 = “”
- .如果真结束
- .如果结束
- .计次循环尾 ()
- .如果真 (列表框1.取项目数 () = 0) ' 字库无内容 预览框不显示
- 列表框1.可视 = 假
- .如果真结束
- .如果真结束
- .如果结束
- .子程序 __启动窗口_创建完毕, , , 导入字库
- 词库 [1] = “1”
- 词库 [2] = “11”
- 词库 [3] = “2”
- 词库 [4] = “22”
- 词库 [5] = “3”
- 词库 [6] = “啊我是”
- 词库 [7] = “4”
- 词库 [8] = “44”
- 词库 [9] = “555”
- .子程序 _列表框1_双击选择
- if = 真
- 列表框1.可视 = 假
- 编辑框1.内容 = 列表框1.取项目文本 (列表框1.现行选中项)
- if = 假
复制代码 |
|