将UnmanagedType枚举的值转换为其托管类型等效值

Case UnmanagedType.Error
    Return GetType(IntPtr)

否。IntPtr表示一个虚拟地址,在32位平台上为32位,在64位平台上是64位。但是 UnmanagedType.Error 是固定大小的。它是一个32位有符号整数,主要用于表示运算的编码结果。这是一个错误的名称,因为它确实如此 not always indicate an error .

Case UnmanagedType.IDispatch
    Return GetType(IntPtr)

Case UnmanagedType.Interface
    Return GetType(IntPtr)

Case UnmanagedType.IUnknown
    Return GetType(IntPtr)

你可能应该使用 System.Object 。这也是 UnmanagedType.Struct .

Case UnmanagedType.LPStr
    Return GetType(StringBuilder)

你可以使用StringBuilder或String,这取决于被调用的函数。如果您正在进行常规转换,可能应该使用String。

Case UnmanagedType.R4

Case UnmanagedType.R8

这些对应于 System.Single 和 System.Double 分别地

Case UnmanagedType.VariantBool
    Return GetType(Boolean)

VariantBool 是2字节布尔类型,但VB布尔类型是4字节。您需要使用有符号或无符号的2字节整数类型。

Case UnmanagedType.VBByRefStr
    Return GetType(String)

不 VBByRefStr 表示通过引用传递字符串。 That is, the address of the reference of the string. 因此,您应该返回 Object 或 IntPtr 。该网页还说明 UnmanagedType.ByValTStr 是一个 String .

UnmanagedType.ByValArray , UnmanagedType.LPArray 和 UnmanagedType.SafeArray 全部对应于 System.Array .我强烈建议阅读 this 文章以更好地理解这些类型。此外,如果可能,您应该使用 this 技巧

最后,我想你还是忘记了还是忽略了 UnmanagedType.HString 和 UnmanagedType.IInspectable ,对应于 一串 和 对象 分别地

我建议按如下方式对开关类型进行分组:数组类型、字符串类型、基元类型、其他指针类型和其他整数类型。

对于此类直接 功能类似 翻译/映射(即每个都是唯一的 X 正好有一个值 Y ),我建议使用 Dictionary 而不是 switch 案例

VB.Net/C语言#

Dim unToManagedDict As New Dictionary(Of UnmanagedType, Type) 'VB.Net

Dictionary<UnmanagedType, Type> unToManagedDict = new Dictionary<UnmanagedType, Type>(); //C#

然后列出您的 UnmanagedType enum 在应用程序的第一次加载中,如下所示:

VB.Net/C语言#

unToManagedDict.Add(UnmanagedType.AnsiBStr, GetType(String)) 'VB.Net
unToManagedDict.Add(UnmanagedType.AsAny, GetType(Object)) 'VB.Net
'and so on... or,

unToManagedDict.Add(UnmanagedType.AnsiBStr,typeof(字符串))//C# unToManagedDict.Add(UnmanagedType.AsAny,typeof(object))//C# //等等。。。

因此,要检查它的托管对等体是否存在,您可以简单地使用字典:

VB.Net/C语言#

Dim type As Type = unToManagedDict(UnmanagedType.AnsiBStr) 'VB.Net

Type type = unToManagedDict[UnmanagedType.AnsiBStr]; //C#

如果未找到非托管输入类型,这将引发异常错误,类似于

Case Else
        Throw New InvalidEnumArgumentException(argumentName:="type", invalidValue:=[type],
                                               enumClass:=GetType(UnmanagedType))

这样,您不需要使用新函数来处理映射。此外,您不需要将新的 Case 每一次。

现在,除了风格之外,你“填补空白”的要求有些困难,因为不是所有的 unmanaged 在 managed .(对比词的使用 非受管的 与 管理 他们自己暗示了什么!)

然而,考虑到这些空箱,我可能会这样做:

Case UnmanagedType.ByValArray -> Array (no best equivalent, but Array is the closest)
Case UnmanagedType.ByValTStr -> String (no best equivalent, but String could be used)
Case UnmanagedType.R4 -> Single
Case UnmanagedType.R8 -> Double
Case UnmanagedType.SafeArray -> Array (no best equivalent, but Array is the closest)
Case UnmanagedType.Struct -> some Structure (no equivalent, each struct is unique, best is to use Structure to wrap Struct)

你的可选问题是问,反过来做是否安全。要做到完全对等,必须有 一对一 关系

也就是说,借用数学,如果x和f(x)之间的关系为 bijection 。由于当前映射来自 非托管类型 到 Managed 是非双射,其中 非托管类型 比 管理 ->结论: 反之则不那么安全 .