列表框上下移动易语言源码
.版本 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