VB6中如何定义POWERBROADCAST_SETTING结构体？

VB6 对应转换写法 #

你可以直接按照如下代码定义完整的POWERBROADCAST_SETTING结构体：

Private Type POWERBROADCAST_SETTING
    PowerSetting As GUID
    DataLength As Long ' 对应C++的 DWORD DataLength
    Data(0 To 0) As Byte ' 对应C++的 UCHAR Data[1]
End Type

转换说明

1. DWORD DataLength 转换为 DataLength As Long
   DWORD是32位无符号整数，VB6没有原生的32位无符号整数类型，用32位有符号的Long类型兼容即可，二者内存占用都是4字节，值读取、传递都不会出现异常。
2. UCHAR Data[1] 转换为 Data(0 To 0) As Byte
   C++里这里是柔性数组的占位写法，这个数组实际长度由前面的DataLength字段决定，并不是真的只有1个字节。VB6里先定义长度为1的Byte数组占住结构体末尾的位置，拿到结构体实例后，先读取DataLength的值，再从Data(0)的内存地址开始，复制对应长度的字节内容，就能拿到完整的Data数据。

额外使用提示

如果你是用来检测显示器状态，当PowerSetting匹配显示器状态通知的GUID时，Data的前4个字节直接转成Long就是显示器电源状态：

• 0 = 显示器已关闭
• 1 = 显示器已开启
• 2 = 显示器处于省电模式

内容的提问来源于stack exchange，提问作者tmighty