| 变量名 | 类 型 | 静态 | 数组 | 备 注 | | i | 整数型 | | | | 文件名 | 文本型 | | | | 项目索引 | 整数型 | | | | 文件数量 | 整数型 | | | | 文件数组 | 文本型 | | 0 | | 组件句柄 | 整数型 | | |
组件句柄 = 组件取窗口绑定组件 (超级列表框EX1. 取窗口句柄 ()) 组件暂停重画 (组件句柄 )组件插入元素 (组件句柄, #元素归属_超列项目, 5, -1, 3 )组件置按钮元素属性 (组件句柄, #元素归属_超列项目, 5, 0, , 到整数 (&超列启动 ), 0, 10, 2, 24, 24, , #启动, )组件置按钮元素属性 (组件句柄, #元素归属_超列项目, 5, 1, , 到整数 (&超列关闭 ), 0, 10, 2, 24, 24, 0, #关闭, )组件置按钮元素属性 (组件句柄, #元素归属_超列项目, 5, 2, , 到整数 (&超列日志 ), 0, 54, 2, 24, 24, 0, #日志, )文件数量 = 目录_取文件数 (取运行目录 () + “\项目文件”) 如果真 (文件数量 > 0 )  文件名 = 寻找文件 (取运行目录 () + “\项目文件\*.txt”, ) 计次循环首 (文件数量, ) 加入成员 (文件数组, 文件名 ) 文件名 = 寻找文件 (, ) 计次循环尾 () 计次循环首 (取数组成员数 (文件数组 ), i ) 文件名 = 文件数组 [i ] 项目索引 = 超级列表框EX1. 插入项目 (, 1, , 30 ) 超级列表框EX1. 置项目文本 (项目索引, 4, “0”) 超级列表框EX1. 置项目图标 (项目索引, 0, #没勾选 ) 超级列表框EX1. 置项目文本 (项目索引, 1, 取文本左边 (文件名, 取文本长度 (文件名 ) - 4 )) 组件置按钮元素数据 (组件句柄, #元素归属_超列项目, 项目索引, 5, 0, 0, 1, 0, “”, , ) 组件置按钮元素数据 (组件句柄, #元素归属_超列项目, 项目索引, 5, 2, 0, 1, 0, “”, , ) 计次循环尾 ()组件容许重画 (组件句柄 )
以上是插入代码,我只要鼠标移动到超列按钮就会自动点击了,我根本就没点击 很奇怪!!!!!!求啥问题找了半天也没人出现啊
|