VB6调用返回元组的C#包装器时出现参数错误问题

你的错误根源在于VB6不支持C#的ValueTuple元组返回类型，且调用时错误地给无参方法传递了参数，导致"参数数量错误或属性赋值无效"的提示。以下是三种适配VB6的多值返回方案：

方案1：使用Out参数（推荐，适配VB6的ByRef机制） #

利用COM互操作中out参数对应VB6的ByRef特性，通过参数传递第二个返回值。

C# DLL代码 #

using System.Runtime.InteropServices;

// 标记接口为COM可见，采用双接口模式适配VB6
[ComVisible(true)]
[InterfaceType(ComInterfaceType.InterfaceIsDual)]
public interface IWinbioWrap
{
    [DispId(1)]
    // 返回状态字符串，通过out参数传递UnitID
    string OpenDevice(out int unitId);
}

[ComVisible(true)]
[ClassInterface(ClassInterfaceType.None)]
public class WinbioWrap : IWinbioWrap
{
    private int _unitId = 123; // 示例设备ID

    public string OpenDevice(out int unitId)
    {
        // 此处添加设备打开逻辑
        unitId = _unitId;
        return BioxScan_Status.Connected.ToString();
    }
}

public enum BioxScan_Status
{
    Connected,
    Disconnected,
    Idle,
    Busy,
    Completed,
    Error,
    CaptureComplete
}

VB6应用代码 #

Dim statusStr As String
Dim unitId As Integer

' 用ByRef方式接收out参数
statusStr = ObjWinBio.OpenDevice(unitId)

' 使用返回的两个值
MsgBox "状态：" & statusStr & vbCrLf & "UnitID：" & unitId

方案2：返回COM可见结构体 #

定义一个COM可见的结构体，将两个返回值打包后返回。

C# DLL代码 #

using System.Runtime.InteropServices;

// 标记结构体为COM可见，采用顺序布局
[ComVisible(true)]
[StructLayout(LayoutKind.Sequential)]
public struct DeviceResult
{
    public string Status;
    public int UnitId;
}

[ComVisible(true)]
[InterfaceType(ComInterfaceType.InterfaceIsDual)]
public interface IWinbioWrap
{
    [DispId(1)]
    DeviceResult OpenDevice();
}

[ComVisible(true)]
[ClassInterface(ClassInterfaceType.None)]
public class WinbioWrap : IWinbioWrap
{
    private int _unitId = 123;

    public DeviceResult OpenDevice()
    {
        // 此处添加设备打开逻辑
        return new DeviceResult
        {
            Status = BioxScan_Status.Connected.ToString(),
            UnitId = _unitId
        };
    }
}

public enum BioxScan_Status
{
    Connected,
    Disconnected,
    Idle,
    Busy,
    Completed,
    Error,
    CaptureComplete
}

VB6应用代码 #

Dim result As DeviceResult

' 直接接收结构体
result = ObjWinBio.OpenDevice()

MsgBox "状态：" & result.Status & vbCrLf & "UnitID：" & result.UnitId

方案3：返回值+类属性 #

保留原方法的返回值，新增一个属性存储UnitID，调用方法后读取该属性。

C# DLL代码 #

using System.Runtime.InteropServices;

[ComVisible(true)]
[InterfaceType(ComInterfaceType.InterfaceIsDual)]
public interface IWinbioWrap
{
    [DispId(1)]
    BioxScan_Status OpenDevice();
    
    [DispId(2)]
    int UnitId { get; } // 新增属性存储UnitID
}

[ComVisible(true)]
[ClassInterface(ClassInterfaceType.None)]
public class WinbioWrap : IWinbioWrap
{
    private int _unitId = 123;
    public int UnitId => _unitId;

    public BioxScan_Status OpenDevice()
    {
        // 此处添加设备打开逻辑，可更新_unitId的值
        _unitId = 456;
        return BioxScan_Status.Connected;
    }
}

public enum BioxScan_Status
{
    Connected,
    Disconnected,
    Idle,
    Busy,
    Completed,
    Error,
    CaptureComplete
}

VB6应用代码 #

Dim resultStatus As BioxScan_Status
Dim unitId As Integer

resultStatus = ObjWinBio.OpenDevice()
unitId = ObjWinBio.UnitId

MsgBox "状态：" & resultStatus & vbCrLf & "UnitID：" & unitId

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