超级列表框转虚表列表框的处理，以及易结构填充表项的...

a1678131758

首选先获取自定义类型的结构文本以及虚表插入列的代码

.版本 2

.常量 常量1, 虚表 [全_虚表ID].插入列 (-1, "XXXXXXXX", YYYYYYY, , , )

  

结构文本 ＝ “.数据类型 虚表_结构” ＋ #换行符
列表框 ＝ 超级列表框4
计次循环首 (列表框.取列数 (), i)
语句 ＝ 子文本替换 ( #常量1, “XXXXXXXX”, 列表框.取列标题 (i － 1), , , 真)
语句 ＝ 子文本替换 (语句, “YYYYYYY”, 到文本 (列表框.取列宽 (i － 1)), , , 真)
当前文本 ＝ 当前文本 ＋ 语句 ＋ #换行符
结构文本 ＝ 结构文本 ＋ “.成员 ” ＋ 列表框.取列标题 (i － 1) ＋ “,文本型” ＋ #换行符
计次循环尾 ()
调试输出 (当前文本)
置剪辑板文本 (当前文本)
' 置剪辑板文本 (结构文本)
暂停 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> 结构文本 ＝ “.数据类型 虚表_结构” ＋ #换行符<br /> 列表框 ＝ 超级列表框4<br /> .计次循环首 (列表框.取列数 (), i)<br />     语句 ＝ 子文本替换 (#常量1, “XXXXXXXX”, 列表框.取列标题 (i － 1), , , 真)<br />     语句 ＝ 子文本替换 (语句, “YYYYYYY”, 到文本 (列表框.取列宽 (i － 1)), , , 真)<br /> <br />     当前文本 ＝ 当前文本 ＋ 语句 ＋ #换行符<br />     结构文本 ＝ 结构文本 ＋ “.成员 ” ＋ 列表框.取列标题 (i － 1) ＋ “,文本型” ＋ #换行符<br /> .计次循环尾 ()<br /> 调试输出 (当前文本)<br /> 置剪辑板文本 (当前文本)<br /> ' 置剪辑板文本 (结构文本)<br /> <br /> 暂停 ()

其次就是填充项目的时候的处理 用的虚表1.8 一个函数解决所有显示

  

子程序名	返回值类型	公开	备 注
填充列表_虚表
参数名	类 型	参考	可空	数组	备 注
项目指针	整数型

变量名	类 型	静态	数组	备 注
返回文本	文本型
项目	超级列表框项目
索引	整数型
结构首地址	整数型
首成员地址	整数型
i	整数型
子项	整数型

项目 ＝ 指针到列表框项目 (项目指针)
索引 ＝ 项目.表项索引 ＋ 1
子项 ＝ 项目.子项索引
如果真 (全_虚表ID ＝ 1)
如果真 (索引 ＞ 取数组成员数 (集_数据数组))
返回 ()
结构首地址 ＝ 取变量数据地址 (集_数据数组 [索引])
首成员地址 ＝ 指针到整数 (结构首地址)
返回文本 ＝ 指针到文本 (指针到整数 (首成员地址 ＋ 子项 × 4))
写到内存 (返回文本, 项目.项目文本指针, )  ' id
' 返回 (返回文本)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 填充列表_虚表<br /> .参数 项目指针, 整数型<br /> .局部变量 返回文本, 文本型<br /> .局部变量 项目, 超级列表框项目<br /> .局部变量 索引, 整数型<br /> .局部变量 结构首地址, 整数型<br /> .局部变量 首成员地址, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 子项, 整数型<br /> <br /> 项目 ＝ 指针到列表框项目 (项目指针)<br /> 索引 ＝ 项目.表项索引 ＋ 1<br /> 子项 ＝ 项目.子项索引<br /> <br /> .如果真 (全_虚表ID ＝ 1)<br />     .如果真 (索引 ＞ 取数组成员数 (集_数据数组))<br />         返回 ()<br />     .如果真结束<br />     结构首地址 ＝ 取变量数据地址 (集_数据数组 [索引])<br /> <br /> <br /> 首成员地址 ＝ 指针到整数 (结构首地址)<br /> 返回文本 ＝ 指针到文本 (指针到整数 (首成员地址 ＋ 子项 × 4))<br /> <br /> <br /> 写到内存 (返回文本, 项目.项目文本指针, )  ' id<br /> <br /> ' 返回 (返回文本)

qwe111qwe

感谢分享！！！！！

fengyyun

感谢大神分享~！

year1970

支持开源~！感谢分享

煞老尸

111111111111111111111111111

pipicool

学习一下

year1970

支持开源~！感谢分享

zaozi

支持开源~！感谢分享

陈枫

谢谢分享

396384183

感谢分享，很给力！~