根据书本《易语言编程系统》学习编写的实例三

zhjh1220

数组与列表框

数组操作命令

重定义数组（）

取数组成员数（）

取数组下标（）

复制数组（）

加入成员（）

插入成员（）

删除成员（）

清除数组（）

数组排序（）

数组清零（）

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
文本数组	整数型	0

子程序名	返回值类型	公开	备 注
_加入成员_按钮_被单击

变量名	类 型	静态	数组	备 注
i	整数型

列表框1.加入项目 (编辑框1.内容, )
重定义数组 (文本数组, 假, 列表框1.取项目数 ()) ' 重新定义数组的上限
计次循环首 (列表框1.取项目数 (), i)
文本数组 [i]＝ 到整数 (列表框1.取项目文本 (i － 1)) ' 把列表框中的内容依次转换到数组中。数组是从1开始，列表框中的项目是从0开始。
计次循环尾 ()
调试输出 (文本数组)
编辑框1.内容 ＝ “” ' 可以让编辑框输入后，内容清空。
编辑框1.获取焦点 () ' 可以让编辑框连续输入

子程序名	返回值类型	公开	备 注
_删除成员_按钮_被单击

列表框1.删除项目 (到整数 (编辑框2.内容) － 1)
删除成员 (文本数组, 到整数 (编辑框2.内容), )
编辑框2.内容 ＝ “”
' 调试输出 (文本数组)

子程序名	返回值类型	公开	备 注
_插入成员_按钮_被单击

列表框1.插入项目 (到整数 (编辑框2.内容) － 1, 编辑框1.内容, )
插入成员 (文本数组, 到整数 (编辑框2.内容), 到整数 (编辑框1.内容))
编辑框1.内容 ＝ “”
编辑框2.内容 ＝ “”
' 调试输出 (文本数组)

子程序名	返回值类型	公开	备 注
_清除数组_按钮_被单击

列表框1.清空 ()
清除数组 (文本数组)

子程序名	返回值类型	公开	备 注
_数组排序_按钮_被单击

变量名	类 型	静态	数组	备 注
k	整数型

数组排序 (文本数组, ) ' 自动排序这里不知道列表框怎么样让它自动排序，只有一个属性是自动排序，但只能开始设置，不能动态控制，所以只有先把数组排序后，再加入到列表框中去。
列表框1.清空 ()
计次循环首 (取数组成员数 (文本数组), k)
列表框1.加入项目 (到文本 (文本数组 [k]), )
计次循环尾 ()
' 调试输出 (文本数组)

子程序名	返回值类型	公开	备 注
_编辑框1_按下某键	逻辑型
参数名	类 型	参考	可空	数组	备 注
键代码	整数型
功能键状态	整数型

如果真 (键代码 ＝ #回车键 )
_加入成员_按钮_被单击 ()

子程序名	返回值类型	公开	备 注
_列表框1_列表项被选择

编辑框2.内容 ＝ 到文本 (列表框1.取焦点项目 () ＋ 1)

子程序名	返回值类型	公开	备 注
_编辑框2_内容被改变

内容判断 ()
编辑框2.获取焦点 ()
列表框1.置焦点项目 (到整数 (编辑框2.内容) － 1)

子程序名	返回值类型	公开	备 注
内容判断

如果真 (到整数 (编辑框2.内容) ≤ 0 或 到整数 (编辑框2.内容) ＞ 列表框1.取项目数 ()) ' 判断插入或删除的位置不能小于0或大于列表项目数
信息框 (“请输入小于列表框项目的正整数！”, 0, , )

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 文本数组, 整数型, , "0"<br /> <br /> .子程序 _加入成员_按钮_被单击<br /> .局部变量 i, 整数型<br /> <br /> 列表框1.加入项目 (编辑框1.内容, )<br /> 重定义数组 (文本数组, 假, 列表框1.取项目数 ()) ' 重新定义数组的上限<br /> .计次循环首 (列表框1.取项目数 (), i)<br /> 文本数组 <i>＝ 到整数 (列表框1.取项目文本 (i － 1)) ' 把列表框中的内容依次转换到数组中。数组是从1开始，列表框中的项目是从0开始。<br /> .计次循环尾 ()<br /> 调试输出 (文本数组)<br /> 编辑框1.内容 ＝ “” ' 可以让编辑框输入后，内容清空。<br /> 编辑框1.获取焦点 () ' 可以让编辑框连续输入<br /> <br /> .子程序 _删除成员_按钮_被单击<br /> <br /> 列表框1.删除项目 (到整数 (编辑框2.内容) － 1)<br /> 删除成员 (文本数组, 到整数 (编辑框2.内容), )<br /> 编辑框2.内容 ＝ “”<br /> ' 调试输出 (文本数组)<br /> <br /> .子程序 _插入成员_按钮_被单击<br /> <br /> 列表框1.插入项目 (到整数 (编辑框2.内容) － 1, 编辑框1.内容, )<br /> 插入成员 (文本数组, 到整数 (编辑框2.内容), 到整数 (编辑框1.内容))<br /> 编辑框1.内容 ＝ “”<br /> 编辑框2.内容 ＝ “”<br /> ' 调试输出 (文本数组)<br /> <br /> .子程序 _清除数组_按钮_被单击<br /> <br /> 列表框1.清空 ()<br /> 清除数组 (文本数组)<br /> <br /> .子程序 _数组排序_按钮_被单击<br /> .局部变量 k, 整数型<br /> <br /> 数组排序 (文本数组, ) ' 自动排序这里不知道列表框怎么样让它自动排序，只有一个属性是自动排序，但只能开始设置，不能动态控制，所以只有先把数组排序后，再加入到列表框中去。<br /> 列表框1.清空 ()<br /> .计次循环首 (取数组成员数 (文本数组), k)<br /> 列表框1.加入项目 (到文本 (文本数组 [k]), )<br /> .计次循环尾 ()<br /> ' 调试输出 (文本数组)<br /> <br /> .子程序 _编辑框1_按下某键, 逻辑型<br /> .参数 键代码, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .如果真 (键代码 ＝ #回车键)<br /> _加入成员_按钮_被单击 ()<br /> .如果真结束<br /> <br /> <br /> .子程序 _列表框1_列表项被选择<br /> <br /> 编辑框2.内容 ＝ 到文本 (列表框1.取焦点项目 () ＋ 1)<br /> <br /> .子程序 _编辑框2_内容被改变<br /> <br /> 内容判断 ()<br /> 编辑框2.获取焦点 ()<br /> 列表框1.置焦点项目 (到整数 (编辑框2.内容) － 1)<br /> <br /> .子程序 内容判断<br /> <br /> .如果真 (到整数 (编辑框2.内容) ≤ 0 或 到整数 (编辑框2.内容) ＞ 列表框1.取项目数 ()) ' 判断插入或删除的位置不能小于0或大于列表项目数<br /> 信息框 (“请输入小于列表框项目的正整数！”, 0, , )<br /> .如果真结束

新手学习，请多多指点，谢谢！

书本上是先把编辑框1中的整数文本加入到数组中，然后再添加到列表框中，这样要简单一些。

小伟爱吃醋

感谢开源

biody

不错 希望你继续更新啊！