列表框上下移动易语言源码

列表框上下移动易语言源码

.版本 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
相关文件下载地址
©下载资源版权归作者所有;本站所有资源均来源于网络,仅供学习使用,请支持正版!

发表回复

您的电子邮箱地址不会被公开。 必填项已用 * 标注