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

okxyz26 · 发表于 2024-6-12 22:16

xdychina1 发表于 2024-6-12 20:14
hFont = CreateFont(12, 0, 0, 0, 0, 0, 0, 0, DEFAULT_CHARSET, OUT_TT_ONLY_PRECIS, CLIP_DEFAUL ...

感谢，这个是创建窗口的列宽，我指的是已经创建好了窗口，可以随意设置第几列的列宽

okxyz26 · 发表于 2024-6-12 22:33

还有一个问题是，运行窗口后会有点卡，特别是调整列宽时，2019版wps卡得很严重，2016的wps不卡。而且2019版虽然卡，进行代码后台，先点暂停按钮，再点运行按钮，后面就不卡了，很神奇。

xdychina1 · 发表于 2024-6-12 22:36

okxyz26 发表于 2024-6-12 22:16
感谢，这个是创建窗口的列宽，我指的是已经创建好了窗口，可以随意设置第几列的列宽

With LVC
         .iMask = LVCF_WIDTH Or LVCF_TEXT
         For i = 1 To 22 '设置3列
            Select Case i
                  Case 1
                     .lx = 60
                  Case 2
                     .lx = 80
                  Case 3
                     .lx = 240
                  Case 4
                     .lx = 60
                  Case 6
                     .lx = 80
                  Case 7
                     .lx = 60
                  Case 10
                     .lx = 280
                  Case Else
                     .lx = 120 '设置列宽
            End Select

okxyz26 · 发表于 2024-6-13 09:09

xdychina1 发表于 2024-6-12 22:36
With LVC
.iMask = LVCF_WIDTH Or LVCF_TEXT
For i = 1 To 22 '设置3列

这个还是不行哈，意思是单独加个按钮，点击按钮就可以把列宽调整为0。

xdychina1 · 发表于 2024-6-13 21:44

不是，遇到 I是第几列，就设置单独设置宽度

shenjianrong163 · 发表于 2024-6-14 15:30

谢谢!怪不行我使用ListView显示一万多行数据时，加载变慢了，原来是这个原因！

xdychina1 · 发表于 2024-6-20 22:44

ivccav 发表于 2023-5-20 16:54
加了排序程序进去：

如何在虚拟列表中删除一行

xushanxian · 发表于 2024-6-22 14:22

非常好的例子，就是在64位excel中没办法运行，简单增加ptrsafe解决不了问题，改完只能不报错。
用Windows API Viewer for MS Excel x64查找api再改longptr，发现很多数据定义都需要改，改来改去还是改不好。

okxyz26 · 发表于 2024-7-30 04:41

ivccav 发表于 2023-5-20 16:54
加了排序程序进去：

大师，如果窗体设置为无模式时，会变得卡，有办法解决吗

huashengtang · 发表于 2024-9-29 06:24

感谢楼主无私分享

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

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