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

okxyz26

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

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

xdychina1

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

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

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

xdychina1

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

shenjianrong163

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

xdychina1

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

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

xushanxian

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