精易论坛

标题: 超级列表框转虚表列表框的处理，以及易结构填充表项的... [打印本页]
作者: a1678131758    时间: 2023-11-22 13:15
标题: 超级列表框转虚表列表框的处理，以及易结构填充表项的...
首选先获取自定义类型的结构文本以及虚表插入列的代码

.版本 2

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


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


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

其次就是填充项目的时候的处理 用的虚表1.8 一个函数解决所有显示
  
子程序名返回值类型公开备 注
填充列表_虚表  
参数名类 型参考可空数组备 注
项目指针整数型
变量名类 型静态数组备 注
返回文本文本型 
项目超级列表框项目 
索引整数型 
结构首地址整数型 
首成员地址整数型 
i整数型 
子项整数型 
项目 ＝ 指针到列表框项目 (项目指针)
索引 ＝ 项目.表项索引 ＋ 1
子项 ＝ 项目.子项索引
如果真 (全_虚表ID ＝ 1)
如果真 (索引 ＞ 取数组成员数 (集_数据数组))
返回 ()
结构首地址 ＝ 取变量数据地址 (集_数据数组 [索引])
首成员地址 ＝ 指针到整数 (结构首地址)
返回文本 ＝ 指针到文本 (指针到整数 (首成员地址 ＋ 子项 × 4))
写到内存 (返回文本, 项目.项目文本指针, )  ' id
 ' 返回 (返回文本)



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



作者: mcm999    时间: 2023-11-22 13:58
12312315498578
作者: mood100    时间: 2023-11-22 14:04
收藏学习了，感谢分享呢
作者: ZHuanR    时间: 2023-11-22 16:15
新技能已get√
作者: 给自己留一片天空    时间: 2023-11-22 16:37
新技能已get√
作者: 李泽勇2    时间: 2023-11-22 19:37
新手看的一脸懵。
作者: 本森Bin    时间: 2023-11-22 23:20
支持一波
作者: zaozi    时间: 2023-11-23 07:11
谢谢分享!
作者: 查过    时间: 2023-11-23 07:48
感谢楼主分享！
作者: 豆豆灰常开心    时间: 2023-11-23 07:52
感谢发布原创作品，精易因你更精彩！6666666666666
作者: oushg79    时间: 2023-11-23 17:33
感谢分享，这个值得看看
作者: 396384183    时间: 2023-11-23 22:50

感谢分享，很给力！~
作者: 陈枫    时间: 2023-11-24 00:09
谢谢分享
作者: zaozi    时间: 2023-11-24 06:58
支持开源~！感谢分享
作者: year1970    时间: 2023-11-25 07:35

支持开源~！感谢分享
作者: pipicool    时间: 2023-11-25 15:21
学习一下
作者: 煞老尸    时间: 2023-11-25 19:03
111111111111111111111111111
作者: year1970    时间: 2023-12-3 14:56

支持开源~！感谢分享
作者: fengyyun    时间: 2024-3-12 10:23
感谢大神分享~！
作者: qwe111qwe    时间: 2024-10-18 21:39
感谢分享！！！！！



欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4