【超级列表框】移动列

留意

比如，超级列表框已经有15列shuj，为了美观，想把第15列拖动到12列后面手动可以直接拖动到任意位置，请问如何用消息或者命令的方式到达这个效果


补充内容 (2020-5-27 14:55):
我的意思是比如说，直接一个命令能移动列的位置（如果第10列移动到第5列），不需要手动来拖动表头来达到移动列位置的效果

寒潮

https://www.cnblogs.com/zero0ne/p/6f5a9d400c1a4a64d0079e6856b9807c.html

你看看哪个像，去查查msdn吧。
不会用呢。

木小果

把这里改掉就好了



补充内容 (2020-5-27 14:52):
如果是通过代码的话先把shuj保存下来再重新生成列再导入即可

留意

Autism 发表于 2020-5-27 14:50
把这里改掉就好了

不是这个意思啦，我的意思是比如说，直接一个命令能移动列的位置，不需要手动去拖动表头来达到移动列位置

木小果

可以这样 这只是个小例子 可以写成方便调用的函数 Demo3.e (3.52 KB, 下载次数: 15)

2020-5-27 15:02 上传

点击文件名下载附件

木小果

写成通用的了 。。。就这样吧

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1

子程序名	返回值类型	公开	备 注
_按钮1_被单击

列表框_移动列 (超级列表框1, 2, 1)

子程序名	返回值类型	公开	备 注
列表框_移动列
参数名	类 型	参考	可空	数组	备 注
超级列表框	超级列表框
欲移动列索引	整数型
移动位置	整数型
列宽	整数型

变量名	类 型	静态	数组	备 注
列标题	文本型
临时内容	文本型		0
i1	整数型

列标题 ＝ 超级列表框.取列标题 (欲移动列索引)
计次循环首 (超级列表框.取表项数 (), i1)
加入成员 (临时内容, 超级列表框.取标题 (i1 － 1, 欲移动列索引))
计次循环尾 ()
超级列表框.删除列 (欲移动列索引)
判断 (是否为空 (列宽))
超级列表框.插入列 (移动位置, 列标题, , , , )
超级列表框.插入列 (移动位置, 列标题, 列宽, , , )
计次循环首 (取数组成员数 (临时内容), i1)
超级列表框.置标题 (i1 － 1, 1, 临时内容 [i1])
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_窗口1<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 列表框_移动列 (超级列表框1, 2, 1)<br /> <br /> .子程序 列表框_移动列<br /> .参数 超级列表框, 超级列表框<br /> .参数 欲移动列索引, 整数型<br /> .参数 移动位置, 整数型<br /> .参数 列宽, 整数型, 可空<br /> .局部变量 列标题, 文本型<br /> .局部变量 临时内容, 文本型, , "0"<br /> .局部变量 i1, 整数型<br /> <br /> 列标题 ＝ 超级列表框.取列标题 (欲移动列索引)<br /> .计次循环首 (超级列表框.取表项数 (), i1)<br />     加入成员 (临时内容, 超级列表框.取标题 (i1 － 1, 欲移动列索引))<br /> .计次循环尾 ()<br /> 超级列表框.删除列 (欲移动列索引)<br /> .判断开始 (是否为空 (列宽))<br />     超级列表框.插入列 (移动位置, 列标题, , , , )<br /> .默认<br />     超级列表框.插入列 (移动位置, 列标题, 列宽, , , )<br /> .判断结束<br /> .计次循环首 (取数组成员数 (临时内容), i1)<br />     超级列表框.置标题 (i1 － 1, 1, 临时内容 [i1])<br /> .计次循环尾 ()

留意

Autism 发表于 2020-5-27 15:30
写成通用的了 。。。就这样吧

[e=2].版本 2

嗯，这是一种思路

留意

Autism 发表于 2020-5-27 15:30
写成通用的了 。。。就这样吧

[e=2].版本 2

但是，这样会影响现有列的索引，拖动的方式置标题列引索不会变，这样就变了

木小果

留意 发表于 2020-5-29 10:26
但是，这样会影响现有列的索引，拖动的方式置标题列引索不会变，这样就变了

自己想点其他的方法记录一下列索引不就行了？只为你解答这一个问题有，其他问题另开贴