VBA窗体Listview虚拟模式极速显示100000000行大数据的实现

ivccav · 发表于 2023-5-17 16:53

本帖最后由 ivccav 于 2023-5-17 19:46 编辑

Listview控件是款优秀的控件，功能很多。但显示行数超过5000行时，会非常卡顿，要加载比较长的时间才能显示完成，造成用户体验不够好。加载大数据时，官方建议使用虚拟模式。VB6中有人实现了简陋的虚拟模式，但我尝试用在Excel VBA中却无法运行：

白嫖的希望还是破灭了，只能自己研究。我使用虚拟模式，并不是为了真的显示1亿行数据，我也没有这么多数据可以显示，只是为了改善用户体验，在显示大量数据时，能给出丝滑版的流畅感。

花费了不少时间研究，我写的VBA Listview虚拟模式基本达到了实用，主要功能如下：

1.字体设置实现
2.模糊查询实现
3.行复选框实现
4.标头复选框实现
5.标头排序箭头实现
6.数据缓存的实现
7.右键导出勾选数据的实现

虚表示例VB6.zip (5.37 KB, 下载次数: 353)

Listview虚拟列表的实现.rar (371.45 KB, 下载次数: 554)

尽情体验这丝滑的感觉吧！
（数组排序在论坛中很多人写过，留给大家做个作业了）

ivccav · 发表于 2023-5-20 16:54

加了排序程序进去：

Listview虚拟列表的实现. 排序.zip (378.41 KB, 下载次数: 484)

ivccav · 发表于 2023-5-17 17:02

本帖最后由 ivccav 于 2023-5-18 08:09 编辑

记得有人提问怎么修改复选框大小。只能自绘实现：

既然要自绘，那么可以更加放飞自我点：

Listview标头三态复选框实现(自绘方式）.zip (35.99 KB, 下载次数: 183)

笑着...两年过去 · 发表于 2023-5-17 17:12

这个控件，最大的问题就是兼容问题，要不然还是很不错的

复制代码

wowo000 · 发表于 2023-5-17 17:12

尊敬的ivccav老师：用win10专业版+office2021专业增强版测试，出现如图“下标越界错误”，劳烦解惑，谢谢！

ivccav · 发表于 2023-5-17 17:51

笑着...两年过去发表于 2023-5-17 17:12

这回没有在窗体上画listview控件，控件是程序生成的，不清楚是否还存在版本兼容问题。

版本问题对小白是有些问题，但稍微会vba应该不成问题，就是重新自己画一个listview或者把丢失的引用去掉勾选而已

ivccav · 发表于 2023-5-17 17:52

wowo000 发表于 2023-5-17 17:12
尊敬的ivccav老师：用win10专业版+office2021专业增强版测试，出现如图“下标越界错误”，劳烦解惑，谢谢！

能正常显示控件吗？只是导出数据有问题？

ivccav · 发表于 2023-5-17 17:59

本帖最后由 ivccav 于 2023-5-17 18:02 编辑

忘记说了，虚拟模式是任何功能都要自己实现，控件不管理和保存任何数据，也不支持排序，甚至连复选框都需要自己写代码来实现。为了能实现排序，我把所有数据保存在数组中，方便大家用排序程序排序，注意不要使用快排，因为多点一下，数据已经是有序的，再用快排会导致堆栈溢出！

opiona · 发表于 2023-5-17 18:04

这个是个技术活赞一下
如果同时在listbox 实现那就更好了

kings12333 · 发表于 2023-5-17 18:31

ivccav 发表于 2023-5-17 17:02
记得有人提问怎么修改复选框大小。只能自绘实现：

大佬,这个控件如何实现正负号数字排序?给个例子

ivccav · 发表于 2023-5-17 18:47

kings12333 发表于 2023-5-17 18:31
大佬,这个控件如何实现正负号数字排序?给个例子

虚拟模式是不能排序的，因为控件什么都不管，没有数据当然就不支持排序了。结果集我放在 arrresult数组中，要排序就自己写代码实现，然后再显示数据吧。排序程序我没有写，只写了显示数据的代码。

		自动登录	找回密码
密码			免费注册

[原创] VBA窗体Listview虚拟模式极速显示100000000行大数据的实现

评分

评分

评分