c# – VB6变体类型到.NET类型

2022-05-14 07:11:24

我有一些无法轻易修改的VB6代码,如下所示：

Dim cCount as Long
Dim rCount as Long
Dim result()

Set mx = CreateObject("Component.Class")
Dim rtn = mx.GetList(rCount,cCount,result)

它调用的方法目前是一个VB6组件,我们已经迁移到.NET,只有一个问题.我们不确定result()正在寻找什么类型,因为它是变体类型.我们已经尝试过object,object [],object [] [],string,string []等,其中没有一个有效.

这是一个例子：

public bool GetList(ref long rCount, ref long cCount, ref object result)
{
  ...
}

我甚至尝试将第三个参数设置为VariantWrapper,因为它会根据需要添加ByRef：

public bool GetList(ref long rCount, ref long cCount, VariantWrapper result)
{
  ...
}

我可以设置传入结果的任何想法,以便我没有未处理的异常？

我已经创建了一个测试接口(用于COM),测试类和测试VB6应用程序,以确保它是Variant的一个问题.所以,它的定义如下：

.NET接口：

[DispId(1)]
[ComVisible(true)]
string Test(ref object[] value);

VB 6方法：

Private Sub Command1_Click()
    Set mx = CreateObject("Component.Class")
    Dim result()
    MsgBox mx.Test(result)
End Sub

与上述相同的问题.在VB6中,它只是抛弃了我.如果我编译并运行它,我会得到一个通用的.NET异常,它会抛弃我.

解决方法:

您的C#声明是错误的.由于历史原因,VB6“Long”是32位.这是C#方面的一个int.如果堆栈帧错误,则无法正确传递“result”参数.

它应该是一个变量的SafeArray,C#中的object [].

码农公寓