虚拟列表ListView的32向64位转换问题

晚间有风弄枝叶

原帖附件为32位见“Listview虚拟列表的实现”，像转换为64位使用，但是窗体运行过程中虚拟列表正常绘制可以显示标题内容，显示网格线，但不可选中不可操作虚拟列表，也没有每一行的内容，代码转化过程中可以八成发现问题出在WindowProc中，不清楚里面如何实现加载行数据的，求助大神能让64位系统正常使用虚拟列表，指正错误协助修改，解决有偿 联系1055520116


原帖https://club.excelhome.net/threa ... tml?_dsign=9aa9c5fb

tdpzby

同求，蹲一个

morpheus126

既然如此，可否通过分页来解决原始需求呢？

大灰狼1976

Public Function WindowProc(ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
    Dim hdr As NMHDR
        If UserForm1.TextBox1 <> "" Then Debug.Print UserForm1.TextBox1'测试有没有绑定成功
你在textbox里随便输入一些内容，实际测试下就知道窗体绑定是成功的，不能用就是其他问题，虽然我也不知道这个文件的功能应该是什么样子的。

晚间有风弄枝叶

morpheus126 发表于 2025-4-11 10:43
既然如此，可否通过分页来解决原始需求呢？

下一步再详细找些分页的例子学习。只是感觉无卡顿的列表显示大量数据（不管分不分页），都是要解决的问题吧

晚间有风弄枝叶

大灰狼1976 发表于 2025-4-11 10:50
Public Function WindowProc(ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, ByVal ...

Textbox内容输入之后查询的数量结果是有变化的，但是代码仅限于Userform中的代码正常运行，结果输出在变量arrResult中，然后调用WindowProc显示虚拟列表行内容时候加载不出来

晚间有风弄枝叶

大灰狼1976 发表于 2025-4-11 10:50
Public Function WindowProc(ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, ByVal ...

立即窗口倒是有显示debug内容。WindowProc正常调用了，那我感觉就有可能使CopyMemory的问题？或者过程中其他改动有错误嘛？好难理解这个过程里面的代码，好多定义