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

ivccav

tryone05 发表于 2023-4-22 13:04
我将楼主的VBA的API声明改为64位PTR，但不知道哪个位置存在问题导致listview内容和格式无法显示，有大佬给 ...

我没有安装64位的office，无法了解。只能提供一下可能的思路。

1、问题可能出在那段机器码。机器码是为了把窗口函数封装在类里面，避免在标准模块中使用AddressOf的尴尬。
如果那段机器码在64位无法使用，可以把窗口函数 zSubclass_Proc放在标准模块中，这样就避免使用机器码了。



2、如果一定要使用机器码，生成机器码的方法如下。机器码中包含了函数的相对地址，每个函数位置不同，机器码就不同。
附件中是我整理过的资料，可参考

一种VB也能生成汇编的方法.zip (18.77 KB, 下载次数: 36)

2023-4-26 10:22 上传

点击文件名下载附件

prome3

太强大了！
一看到下面这个枚举声明，我就知道是个高手：


关于32位和64位API兼容问题，有一种比较省心省力的做法：
#If Vba7 Then
    'Win64 API 声明
#Else
    Private Type LongPtr
        [_]
    End Type
    'Win32 API 声明
#End If
其中 Win32 API 声明和 Win64 API 声明完全等同，一个字母不差，可以直接复制粘贴。


这一技巧是我在学习国外一个叫 Jaafar Tribak 所写的代码时学到的。这一技巧有两大好处：一是可以在64位环境下写声明，然后如果需要向后兼容32位环境的话，直接把64位的声明复制粘贴下来即可，无需把LongPtr改为Long，整个代码模块涉及指针、句柄什么的一律用LongPtr即可。这一好处在API声明数量达到十几个甚至几十个时会很明显。第二个好处是，过程里面的局部变量，或者函数的声明，无需区分32位或64位，而一律用LongPtr，比如 Dim hwnd As LongPtr 一句即可，无需#If Vba7 Then Dim hwnd As LongPtr, #Else Dim hwnd As Long #End If，代码看起来简洁许多，可读性极大提高。


如果楼主已经知道这一技巧，那就当我多嘴，写给还不知道这一技巧的人看。32位环境固然兼容性更好，但是如果是32位下声明API，再到64位环境下修改调用，会比较困难（不只是Ctrl+H把LongPtr替换为Long这么简单）。所以我一直都是坚持在64位环境下编写需要API的代码。

jiangjiang211

tryone05 发表于 2023-4-22 13:04
我将楼主的VBA的API声明改为64位PTR，但不知道哪个位置存在问题导致listview内容和格式无法显示，有大佬给 ...

我也是遇到一样的问题，有没有大佬看一下，哪里出问题了。

363037416

找了好久 才发现这篇文章，感谢楼主的分享

opiona

很牛的帖子  希望楼主能早点出 兼容64位的版本
自己改,不成功

long521

楼主出个64位版本的让大家学习吧

刀彐犬句

能实现列表自动滚屏的效果吗？？