超级列表框做成一个类多个超级列表框是时候调用子程序传参数没有原来方便

xiaomidi188 · 发表于 2019-3-20 01:10:05

子程序名	返回值类型	公开	备注
超级列表框编辑			实现超级列表框编辑功能（请用4个整数型的程序集变量或全局变量分别为Y、X、Z、K）
参数名	类型	参考	可空	数组	备注
超级列表框	超级列表框				超级列表框
编辑框	编辑框				用来编辑的编辑框
横向位置	整数型				横向位置
纵向位置	整数型
配置名称	文本型

变量名	类型	静态	数组	备注
次数	整数型
列	整数型
列宽度	整数型
Z	整数型
K	整数型

如果真 (超级列表框.现行选中项＜ 0)

返回 ()
集_当前超级列表框＝超级列表框
集_当前超级列表框配置名称＝配置名称
集_Y ＝超级列表框.现行选中项

计次循环首 (超级列表框.取列数 (), 次数)

列宽度＝超级列表框.取列宽 (次数－ 1) ＋列宽度

如果真 (横向位置 ≤ 列宽度)

K ＝超级列表框.取列宽 (次数－ 1)

Z ＝列宽度－超级列表框.取列宽 (次数－ 1)

列＝次数－ 1

跳出循环 ()

计次循环尾 ()
集_X ＝列
编辑框.左边＝选择夹_界面.左边＋超级列表框.左边＋ Z ＋ 2
编辑框.宽度＝ K ＋ 1
编辑框.高度＝ 23
编辑框.顶边＝纵向位置＋超级列表框.顶边－ 23
编辑框.可视＝真
编辑框.内容＝超级列表框.取标题 (集_Y, 集_X)
超级列表框_置行列颜色 (_启动窗口.取窗口句柄 (), 超级列表框.取窗口句柄 (), 集_Y, 集_X, #黑色, #红色 )
编辑框.获取焦点 ()
编辑框.被选择字符数＝取文本长度 (编辑框.内容)