精易论坛

标题: 求写：超级列表框左键单击任意表项，并在编辑框里显示，同时在标签里显示列号和行号。 [打印本页]

---

作者: yuyun1888    时间: 2016-8-10 20:13
标题: 求写：超级列表框左键单击任意表项，并在编辑框里显示，同时在标签里显示列号和行号。
求写：超级列表框左键单击任意表项，并在编辑框里显示，同时在标签里显示列号和行号。谢谢。

1.png (9.22 KB, 下载次数: 4)

下载附件

2016-8-10 20:11 上传

---

作者: lianzuo123    时间: 2016-8-10 20:13
我是利用坐标来解决这个问题的..因为超级列表框貌似没有选中列这么刚东西..
如果想用列解决,用高级表格吧.

至于为什么不用左键被按下事件,你试试就知道了..那个点击是先触发事件,再选中表项.所以这里不适用

  

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

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

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

计次循环首 (10, i)  ' 插入列表数据
Index ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (Index, 0, 到文本 (i))
超级列表框1.置标题 (Index, 1, 到文本 (i × 10))
超级列表框1.置标题 (Index, 2, 到文本 (i × 100))
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_超级列表框1_左键单击表项

变量名	类 型	静态	数组	备 注
Line	双精度小数型

如果真 (超级列表框1.现行选中项 ≠ -1)  ' 至于为什么不用左键被按下事件,你试试就知道了..那个点击是先触发事件,再选中表项.所以这里不适用
Line ＝ LastPoint_X ÷ 150  ' 列宽为150
如果 (Line ＞ 3)  ' 我总共就3列,超出就不管了
_启动窗口.标题 ＝ “当前第” ＋ 到文本 (超级列表框1.现行选中项) ＋ “行,列超出范围”
_启动窗口.标题 ＝ “当前第” ＋ 到文本 (超级列表框1.现行选中项) ＋ “行,第” ＋ 到文本 (到整数 (Line)) ＋ “列,项目文本” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, Line)

子程序名	返回值类型	公开	备 注
_超级列表框1_鼠标位置被移动	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

LastPoint_X ＝ 横向位置

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 LastPoint_X, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 i, 整数型<br /> .局部变量 Index, 整数型<br /> <br /> .计次循环首 (10, i)  ' 插入列表数据<br />     Index ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (Index, 0, 到文本 (i))<br />     超级列表框1.置标题 (Index, 1, 到文本 (i × 10))<br />     超级列表框1.置标题 (Index, 2, 到文本 (i × 100))<br /> .计次循环尾 ()<br /> <br /> .子程序 _超级列表框1_左键单击表项<br /> .局部变量 Line, 双精度小数型<br /> <br /> .如果真 (超级列表框1.现行选中项 ≠ -1)  ' 至于为什么不用左键被按下事件,你试试就知道了..那个点击是先触发事件,再选中表项.所以这里不适用<br />     Line ＝ LastPoint_X ÷ 150  ' 列宽为150<br />     .如果 (Line ＞ 3)  ' 我总共就3列,超出就不管了<br />         _启动窗口.标题 ＝ “当前第” ＋ 到文本 (超级列表框1.现行选中项) ＋ “行,列超出范围”<br />     .否则<br />         _启动窗口.标题 ＝ “当前第” ＋ 到文本 (超级列表框1.现行选中项) ＋ “行,第” ＋ 到文本 (到整数 (Line)) ＋ “列,项目文本” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, Line)<br />     .如果结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _超级列表框1_鼠标位置被移动, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> LastPoint_X ＝ 横向位置

新建 易程序.rar (27.91 KB, 下载次数: 70)

2016-8-10 20:40 上传

点击文件名下载附件

补充内容 (2016-8-10 20:41):
代码里行忘了+1了..自己加一个..超级列表框的索引是从0开始的..0即是第一行

补充内容 (2016-8-10 20:42):
列也是一样..从0开始计算

---

作者: 小淡    时间: 2016-8-10 20:24
http://www.5a5x.com/down.php?a_k=2422AlRRUlZWBlRUVFYLCVJWU1cGUQABVgZVXQZZWQMLBwgUF1xEC1sGQgJZQUldWVMBV1gIU0sCBQBUSgJUAwgBAB1WUVNWVg9UU1QFCwcEBFEGB0pEBUITVVlU

---

作者: 小淡    时间: 2016-8-10 20:24
http://www.5a5x.com/06/201009/09071361.html

---

作者: yuyun1888    时间: 2016-8-10 20:39
在新的编辑框里还是显不出具体内容，只看见坐标，比如你们给的，我要任意显示a,或111，333.等

---

作者: lianzuo123    时间: 2016-8-10 20:42
后来又测试了一下,那个在空白的地方点击,并不会触发事件..
那个 Line>3的情况,你可以删除了

---

作者: lianzuo123    时间: 2016-8-10 20:44
改成这样就好了

  

子程序名	返回值类型	公开	备 注
_超级列表框1_左键单击表项

变量名	类 型	静态	数组	备 注
Line	双精度小数型

如果真 (超级列表框1.现行选中项 ≠ -1)  ' 至于为什么不用左键被按下事件,你试试就知道了..那个点击是先触发事件,再选中表项.所以这里不适用
Line ＝ LastPoint_X ÷ 150  ' 列宽为150
_启动窗口.标题 ＝ “当前第” ＋ 到文本 (超级列表框1.现行选中项 ＋ 1) ＋ “行,第” ＋ 到文本 (到整数 (Line) ＋ 1) ＋ “列,项目文本” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, Line)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _超级列表框1_左键单击表项<br /> .局部变量 Line, 双精度小数型<br /> <br /> .如果真 (超级列表框1.现行选中项 ≠ -1)  ' 至于为什么不用左键被按下事件,你试试就知道了..那个点击是先触发事件,再选中表项.所以这里不适用<br />     Line ＝ LastPoint_X ÷ 150  ' 列宽为150<br />     _启动窗口.标题 ＝ “当前第” ＋ 到文本 (超级列表框1.现行选中项 ＋ 1) ＋ “行,第” ＋ 到文本 (到整数 (Line) ＋ 1) ＋ “列,项目文本” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, Line)<br /> .如果真结束

---

作者: lianzuo123    时间: 2016-8-10 20:45
效果如图

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4