【文件属性】:
文件名称:[易语言模块源码]彗星虚表操作类.zip
文件大小:87KB
文件格式:ZIP
更新时间:2023-02-23 15:57:14
易语言模块源码 彗星虚表操作类
易语言模块源码彗星虚表操作类
下面是个使用示例:
经测试,只要两秒左右,超级列表框不卡。
操作提示:画一个按钮即可。粘贴以下代码:
.版本 2
.支持库 commobj
.程序集 窗口程序集_启动窗口
.程序集变量 速文, 快速文本对象
.程序集变量 虚表, 彗星虚表操作类
.程序集变量 数组, 文本型, , "0"
.子程序 __启动窗口_创建完毕
虚表.创建 (_启动窗口.取窗口句柄 (), 8, 8, 256, 368)
虚表.插入列 (-1, “序号”, 60)
虚表.插入列 (-1, “账号”, 190)
虚表.显示表格线 (真)
.子程序 _按钮1_被单击
速文.从文件读 (“D:\1995358.txt”) ' 1995358行文本
数组 = 速文.分割文本 (#换行符, )
虚表.置表项数 (取数组成员数 (数组))
虚表.事件_填充表项 (&子_填充)
.子程序 子_填充
.参数 项目指针, 整数型
.参数 标题指针, 整数型
.局部变量 项目, 超级列表框项目
项目 = 指针到列表框项目 (项目指针)
.如果 (项目.子项索引 = 0)
写到内存 (到文本 (项目.表项索引 + 1), 标题指针, )
.否则
写到内存 (数组 [项目.表项索引 + 1], 标题指针, )
.如果结束
【文件预览】:
[模块源码]彗星虚表操作类.e
应用示例.rar