列表框上下移动易语言源码
.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
列表框1.现行选中项 = 0
.子程序 _按钮2_被单击
.局部变量 a, 文本型
.如果真 (列表框1.现行选中项 ≠ 列表框1.取项目数 () - 1)
a = 列表框1.取项目文本 (列表框1.现行选中项 + 1)
列表框1.置项目文本 (列表框1.现行选中项 + 1, 列表框1.取项目文本 (列表框1.现行选中项))
列表框1.置项目文本 (列表框1.现行选中项, a)
列表框1.现行选中项 = 列表框1.现行选中项 + 1
.如果真结束
.子程序 _按钮1_被单击
.局部变量 a, 文本型
.如果真 (列表框1.现行选中项 ≠ 0)
a = 列表框1.取项目文本 (列表框1.现行选中项 - 1)
列表框1.置项目文本 (列表框1.现行选中项 - 1, 列表框1.取项目文本 (列表框1.现行选中项))
列表框1.置项目文本 (列表框1.现行选中项, a)
列表框1.现行选中项 = 列表框1.现行选中项 - 1