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

ivccav

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

不好意思，我的疏忽。最初导出数据的时候我是没有导出标题的。后来加了标题，但结果集数组是不包括标题的，所以行数超出，下标越界了。我更新附件了。我都差点忘记还有右键菜单导出数据的功能了，没有发现问题。

wowo000

ivccav 发表于 2023-5-17 17:52
能正常显示控件吗？只是导出数据有问题？

尊敬的ivccav老师：能正常显示Listview控件，就是右键导出时提示如图“下标越界”。有劳解惑，谢谢！

ivccav

wowo000 发表于 2023-5-17 19:12
尊敬的ivccav老师：能正常显示Listview控件，就是右键导出时提示如图“下标越界”。有劳解惑，谢谢！

wowo000

谢谢您，尊敬的ivccav老师！！！

ivccav

opiona 发表于 2023-5-17 18:04
这个是个技术活  赞一下
如果同时在listbox 实现  那就更好了

listbox也支持虚拟模式

ivccav

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

在数组中进行排序，论坛中有很多。使用时注意数组的上下标，这些贴可能不支持lbound(arr)=0。
很多都是简单的讨论算法，用整数类型举例，没有考虑复杂的应用，只能参考。

https://club.excelhome.net/thread-661033-1-1.html

https://club.excelhome.net/thread-1090007-1-1.html

https://club.excelhome.net/thread-1004590-1-1.html

https://club.excelhome.net/thread-1245495-1-1.html

ivccav

我实际场景中没有用到缓存，所有结果都保存在内存中的，所以没有研究。
缓存优化代码直接使用微软官方的，逻辑我没有改动，只是把c++变成vba。
在从数据库中查询巨量数据集时，或者结果需要非常耗时的运算时，可以使用缓存。


以下为缓存处理的微软原文：

优化缓存

当显示区域的内容发生更改时，虚拟列表视图控件会发送 [color=var(--theme-hyperlink)]LVN_ODCACHEHINT 通知消息。 该消息包含有关要缓存的项范围的信息。 收到通知消息后，应用程序必须准备好使用所请求范围的项信息加载缓存，以便发送 [color=var(--theme-hyperlink)]LVN_GETDISPINFO 通知消息时，该信息将随时可用。

在以下 C++ 代码示例中，应用程序定义的函数接受虚拟列表视图控件发送的缓存的项范围。 它执行验证以确定请求的项目范围尚未缓存，然后分配所需的全局内存，并在必要时填充缓存。

1. void PrepCache(int iFrom, int iTo)
   
2. {
   
3.     /*  Global Variables
   
4. 
   
5.      *  g_priCache[ ]: the main cache.
   
6.      *  g_iCache:      the index of the first item in the main cache.
   
7.      *  g_cCache:      the count of items in the main cache.
   
8.      *
   
9.      *  g_priEndCache[ ]: the cache of items at the end of the list.
   
10.      *  g_iEndCache:      the index of the first item in the end cache.
    
11.      *  g_cEndCache:      the count of items in the end cache.
    
12.      */
    
13.      
    
14.     // Local Variables
    
15.     int i;
    
16.     BOOL fOLFrom = FALSE;
    
17.     BOOL   fOLTo = FALSE;
    
18. 
    
19.     // Check to see if this is the end cache.
    
20.     if ((iTo == g_cCache - 1) && ((iTo - iFrom) < 30))  // 30 entries wide.
    
21.     {
    
22.         // Check to see if this is a portion of the current end cache.
    
23.         if ((g_cCache) && (iFrom >= g_iEndCache) && (iFrom < g_iEndCache+g_cEndCache))
    
24.             return;
    
25.             // If it is a part of current end cache, no loading is necessary.
    
26. 
    
27.         // This is a new end cache. Free the old memory.
    
28.         if ( g_priEndCache )
    
29.             GlobalFree( g_priEndCache );
    
30.             
    
31.         // Set the index and count values for the new end cache,
    
32.         // and then retrieve the memory.
    
33.         g_iEndCache   = iFrom;
    
34.         g_cEndCache   = (iTo - iFrom + 1);
    
35.         g_priEndCache = (RndItem *)GlobalAlloc(GPTR, sizeof(RndItem) * g_cEndCache);
    
36. 
    
37.         if (! g_priEndCache)
    
38.         {
    
39.             // TODO: Out of memory. Perform error handling.
    
40.         }
    
41. 
    
42.         // Loop to fill the cache with the recommended items.
    
43.         for (i=0; i<g_cEndCache; i++)
    
44.         {
    
45.             // TODO: Call a function that accesses item information and
    
46.             // fills a cache element.
    
47.         }
    
48.     }
    
49. 
    
50.     else
    
51.     {   
    
52.         // It is not a member of the current end cache.
    
53.         // Try the primary cache instead.
    
54. 
    
55.         // Check to see if iFrom is within the primary cache.
    
56.         if ((g_cCache) && (iFrom >= g_iCache) && (iFrom < g_iCache+g_cCache))
    
57.             fOLFrom = TRUE;
    
58. 
    
59.         // Check to see if iTo is within the primary cache.
    
60.         if ((g_cCache) && (iTo >= g_iCache) && (iTo <= g_iCache+g_cCache))
    
61.             fOLTo = TRUE;
    
62. 
    
63.         // do nothing if both iFrom and iTo are within the current cache.
    
64. 
    
65.         if (fOLFrom && fOLTo)
    
66.             return;
    
67. 
    
68.         // Enlarge the cache size rather than make it specific to this hint.
    
69.         if (fOLFrom)
    
70.             iFrom = g_iCache;
    
71. 
    
72.         else if (fOLTo)
    
73.             iTo = g_iCache + g_cCache;
    
74. 
    
75.         // A new primary cache is needed. Free the old primary cache.
    
76.         if ( g_priCache )
    
77.             GlobalFree( g_priCache );
    
78. 
    
79.         // Set the index and count values for the new primary cache,
    
80.         // and then retrieve the memory.
    
81.         g_iCache   = iFrom;
    
82.         g_cCache   = (iTo - iFrom + 1);
    
83.         g_priCache = (RndItem *)GlobalAlloc( GPTR, sizeof( RndItem ) * g_cCache );
    
84. 
    
85.         if (!g_priCache)
    
86.         {
    
87.             // TODO: Out of memory. Do error handling.
    
88.         }
    
89. 
    
90.         // Loop to fill the cache with the recommended items.
    
91.         for (i=0; i<g_cCache; i++)
    
92.         {
    
93.             // TODO: Call a function that accesses item information
    
94.             // and fills a cache element.
    
95.         }
    
96.     }
    
97. }

复制代码

从缓存中检索项

此示例函数接受两个参数、应用程序定义的结构的地址和一个表示列表中项索引的整数值。 它会检查索引值，以发现是否缓存了所需的项。 如果是，则传递给函数的指针将设置为缓存中的某个位置。 如果该项不在主缓存或结束缓存中，则必须手动定位项信息。

1. void RetrieveItem( RndItem * prndItem, int index )
   
2. {
   
3.     // Global Variables
   
4. 
   
5.     // g_priCache[ ]: the main cache.
   
6.     // g_iCache:      the index of the first item in the main cache.
   
7.     // c_cCache:      the count of items in the main cache.
   
8.     //
   
9.     // g_priEndCache[ ]:  the cache of items at the end of the list.
   
10.     // g_iEndCache:       the index of the first item in the end cache.
    
11.     // g_cEndCache:       the count of items in the end cache.
    
12.     //
    
13. 
    
14.     // Check to see if the item is in the main cache.
    
15.     if ((index >= g_iCache) && (index < g_iCache + g_cCache))
    
16.         *prndItem = g_priCache[index-g_iCache];
    
17. 
    
18.     // If it is not in the main cache, then check to see if
    
19.     // the item is in the end area cache.
    
20.     else if ((index >= g_iEndCache) && (index < g_iEndCache + g_cEndCache))
    
21.         *prndItem = g_priEndCache[index-g_iEndCache];
    
22. 
    
23.     else
    
24.     {
    
25.         // The item is not in either cache.
    
26.         // Therefore, retrieve the item information manually.
    
27.     }
    
28. }

复制代码

ivccav

opiona 发表于 2023-5-17 18:04
这个是个技术活  赞一下
如果同时在listbox 实现  那就更好了

这个不知道有没有帮助：

vbAccelerator - Virtual ListBox.zip (26.91 KB, 下载次数: 142)

2023-5-18 15:39 上传

点击文件名下载附件

opiona

看着好像不错
可惜不会英文  本人学俄语的

ivccav

opiona 发表于 2023-5-18 19:48
看着好像不错
可惜不会英文  本人学俄语的

俄语也算大语种，我是学小语种的，津巴布韦语，更加看不懂英文