如何通过互操作公开 COM 库中定义的枚举作为 C# 函数的返回类型

希望问题很清楚，但为了清楚起见，请补充一下：

我有一个 VB6 dll，它定义了我在 C# dll 中引用的枚举。 C# dll 使用 idispatch 接口以正确的方式定义 CCW，该接口声明返回类型为枚举的函数。

运行 regasm 时，我收到一条警告，指出枚举在 COM 中不可见，因此该函数未导出。因为它是在我的 VB6 库中定义的，所以我认为它已经是 COM 可见的，因为它是在 COM dll 中定义的。

我意识到我可以停止乱搞并使用 int 来传递枚举，然后只对任一端进行转换，但这确实令人沮丧，我想知道是否存在一种方法。

根据要求，这里是一些示例代码：

VB6 dll 定义枚举

Public Enum myEnum
    first = 0
    second = 1
End Enum

这通过互操作导入到 C# 中，如果您查看元数据，它看起来像这样

[Guid("EnumGUID")]
public enum myEnum
{
    first = 0,
    second = 1        
}

然后定义CCW接口

[ComVisible(true)]
[Guid("InterfaceGuid")]
[InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
public interface IMyCCWInterface
{
    [DispId(1)]
    myEnum myFunction();
}

Regasm 抱怨 myEnum 不可见。我必须同意它，因为元数据视图没有 com 可见属性。奇怪的是，如果我使用 VB dll 中定义的其他类型作为函数的参数，我不会收到任何抱怨，它只是看起来是枚举，我猜这是因为我实际上公开了 VB6 枚举的互操作实现，而不是实际枚举。

所以我想我理解这个问题，我想知道是否有一种方法可以使用枚举来完成此工作，而不涉及破解任何中间或自动生成的代码。

看来解决方案是将 C# 项目中导入的 COM 程序集的“Embed Interop Types”属性设置为 False。

为了测试这一点，我创建了一个 VB COM dll 作为StackOverflow.ExampleCom里面有以下代码

Public Enum EThing
    eThingOne = 1
    eThingTwo = 2
End Enum
Private mThing As EThing
Private Sub Class_Initialize()
    mThing = eThingOne
End Sub
Public Property Let Thing(newVal As EThing)
    mThing = newVal
End Property
Public Property Get Thing() As EThing
    Thing = mThing
End Property

然后我创建了一个 C# 类项目并导入了这个 StackOverflow COM 库。然后，以下 C# 代码创建一个 COM 对象，该对象重新公开 VB 代码中定义的枚举类型，创建与 OP 描述的相同情况。

using System;
using System.Runtime.InteropServices;
using System.Runtime.InteropServices.ComTypes;
using StackOverflow;

namespace EnumDemo
{
    [ComVisible(true)]
    [Guid("c30d35fe-2c7f-448b-98be-bd9be567ce70")]
    [InterfaceType(ComInterfaceType.InterfaceIsDual)]
    public interface IEnumDemo
    {
        [DispId(1)]
        EThing Thing
        {
            get;set;
        }
    }

    [ComVisible(true)]
    [Guid("af328c82-08e3-403e-a248-8c46e27b48f3")]
    [ClassInterface(ClassInterfaceType.None)]
    [ProgId("StackOverflow.EnumDemo")]
    public class EnumDemo
    {
        private EThing mThing = EThing.eThingOne;
        public EThing Thing { get { return mThing; } set { mThing = value; } }
    }
}

如果我们构建这个，然后尝试使用此程序集创建一个类型库regasm /tlb:EnumDemo.tlb bin\Debug\EnumDemo.dll然后我收到有关使用非 COM 可见值类型的警告。然而，一旦对 VB COM dll 的引用将“嵌入互操作类型”设置为 false，警告就会消失，并且使用 OleView 检查生成的类型库会显示该类型正在被使用，并且importlib已添加以引用原始 dll。

library EnumDemo
{
    // TLib :     // TLib :  : {D482D5CB-EE6C-455A-A28A-D26A5AC579D5}
    importlib("StackOverflow.dll");
    // TLib : mscorlib.dll : {BED7F4EA-1A96-11D2-8F08-00A0C9A6186D}
    ...
    interface IEnumDemo : IDispatch {
        [id(0x00000001), propget]
        HRESULT Thing([out, retval] EThing* pRetVal);
        [id(0x00000001), propput]
        HRESULT Thing([in] EThing pRetVal);
    };
    ...