VBA窗体Listview控件完全教程

ivccav

补充内容 (2023-3-25 13:43):
如何声明64位API的详细内容，可参考如下：

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

ivccav

对于不熟悉API函数参数的朋友，还是蛮好的，省却查询各参数如何定义的麻烦。
32和64位都可以用 Windows API Viewer For MS Excel

ivccav

纯代码实现窗体Listview控件网格线颜色、行高和选中行高亮颜色的设置


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





纯代码实现窗体Listview控件网格线颜色、行高和选中行颜色的设置.zip (117.06 KB, 下载次数: 204)

2023-3-25 13:33 上传

点击文件名下载附件

tryone05

楼主你好，我将你的listview实列搬到我64位环境里，无法正常修改处理过程：即 SubClass函数下lpfnOld = SetWindowLongPtr(hwnd, GWL_WNDPROC, lpfnNew)方法是失败的，用GetLastError查看失败代码1413，我的GWL_WNDPROC并没有修改，还是（-4）。而Addressof WndProc的值特别大不知道是不是这个地方的问题，你程序的SetWindowLong我已转换成SetWindowLongPtr，SubClass函数的lpfnNew参数也改为longptr类型，程序别的地方都没报错，就这个地方失败导致无法正常。
另外我也用SPY查看了hwnd的数据，在调用SetWindowLongPtr时都是正常的，我测试的时frame的列子，该hwnd的数据确实是frame的句柄

Addressof WndProc的值2197544594500，数据这么大，是不是不正常。
ListView1_DblClick下的Call SubClass(m_hwndTB, AddressOf WndProc)我并没有修改
晕了

tryone05

楼主你好，我将你的listview实列搬到我64位环境里，无法正常修改处理过程：即 SubClass函数下lpfnOld = SetWindowLongPtr(hwnd, GWL_WNDPROC, lpfnNew)方法是失败的，用GetLastError查看失败代码1413，我的GWL_WNDPROC并没有修改，还是（-4）。而Addressof WndProc的值特别大不知道是不是这个地方的问题，你程序的SetWindowLong我已转换成SetWindowLongPtr，SubClass函数的lpfnNew参数也改为longptr类型，程序别的地方都没报错，就这个地方失败导致无法正常。 另外我也用SPY查看了hwnd的数据，在调用SetWindowLongPtr时都是正常的，我测试的时frame的列子，该hwnd的数据确实是frame的句柄  Addressof WndProc的值2197544594500，数据这么大，是不是不正常。 ListView1_DblClick下的Call SubClass(m_hwndTB, AddressOf WndProc)我并没有修改 晕了

tryone05

ivccav 发表于 2023-2-2 15:18
补充内容 (2023-3-25 13:43):
如何声明64位API的详细内容，可参考如下：

工具挺好用的，谢谢

忘得快

ivccav 发表于 2023-3-25 13:34
纯代码实现窗体Listview控件网格线颜色、行高和选中行高亮颜色的设置

请教老师：能否设置Listview表头颜色？谢谢！

ivccav

忘得快 发表于 2023-4-15 10:48
请教老师：能否设置Listview表头颜色？谢谢！

有个示例：

https://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=1428537&pid=9609312

忘得快

ivccav 发表于 2023-4-15 15:54
有个示例：

https://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=1428537&p ...

谢谢老师！

wj821123

大佬，按这个方法，我的怎么出来的是这样的啊：