彗星虚表操作瞬间加入十亿条数据源码

.子程序 _列表框_填充表项
.参数 项目指针, 整数型, , 用“列表框项目 ＝ 指针到列表框项目 (项目指针)”取出内容
.参数 标题指针, 整数型, , 用“写到内存 (新标题, 标题指针, )”这样写入内容
.局部变量 列表框项目, 超级列表框项目
.局部变量 新标题, 文本型

列表框项目 ＝ 指针到列表框项目 (项目指针)
新标题 ＝ “第” ＋ 到文本 (列表框项目.表项索引) ＋ “行,第” ＋ 到文本 (列表框项目.子项索引) ＋ “列”
列表框项目.表项数值 ＝ 999
写到内存 (新标题, 标题指针, )
写到内存 (列表框项目, 项目指针, ) ' 如果没改变，可以不写入

.子程序 置列图片, , 公开, 设置报表型列表框中指定列的标志图片。
.参数 列索引, 整数型, , 用作指定报表型列表框中项目所处的列，索引值从 0 开始。
.参数 图片索引, 整数型, 可空, 可以被省略。图片索引用于指定“表头图片组”属性中的某张图片。索引值从 0 开始，-1 表示无图片。如果本参数被省略，默认值为 -1 。
.局部变量 lvColumn, LVCOLUMN

' 调用格式： 〈无返回值〉 对象．置列图片 （整数型 列索引，［整数型 图片索引］） - 扩展界面支持库一->超级列表框
' 英文名称：SetColPic
' 设置报表型列表框中指定列的标志图片。本命令为初级对象成员命令。
' 参数<1>的名称为“列索引”，类型为“整数型（int）”。用作指定报表型列表框中项目所处的列，索引值从 0 开始。
' 参数<2>的名称为“图片索引”，类型为“整数型（int）”，可以被省略。图片索引用于指定“表头图片组”属性中的某张图片。索引值从 0 开始，-1 表示无图片。如果本参数被省略，默认值为 -1 。
lvColumn.mask ＝ #LVCF_IMAGE
lvColumn.iImage ＝ 图片索引
SendMessage_LVCOLUMN (m_Hwnd, #LVM_SETCOLUMNA, 列索引, lvColumn)