为什么C#null在VB6中被翻译为空，而不是空
我有一个引用VB6 dll的C#应用程序。当我将null从C#传递到VB6 dll函数时，null在VB6中被转换为空值（value），而不是空值（object）。例如：为什么C#null在VB6中被翻译为空，而不是空,c#,com,vb6,com-interop,C#,Com,Vb6,Com Interop,我有一个引用VB6 dll的C#应用程序。当我将null从C#传递到VB6 dll函数时，null在VB6中被转换为空值（value），而不是空值（object）。例如： // function in vb6 dll that referenced by c# app Public Sub TestFunc(ByVal oValue As Variant) { ... if oValue is Nothing then set oValue = someObject
// function in vb6 dll that referenced by c# app
Public Sub TestFunc(ByVal oValue As Variant)
{
...
if oValue is Nothing then
set oValue = someObject
end if
...
}
// main c# code
private void Form1_Load(object sender, EventArgs e)
{
object testObject = new object();
testObject = null;
TestFunc(testObject);
}
Public Sub TestFunc(ByVal oValue As Variant)
{
...
If oValue Is Nothing Then
Set oValue = someObject
ElseIf IsEmpty(oValue) Then
Set oValue = someObject
End If
...
}
编辑-我同意Sander Rijken关于为什么返回
EmptynullByValnullByValPrivate Sub Form_Load()
Call TestSub(Nothing)
End Sub
Private Sub TestSub(ByVal vnt As Variant)
Debug.Print VarType(Nothing)
Debug.Print VarType(vnt)
If vnt Is Nothing Then Debug.Print "vnt Is Nothing"
If IsEmpty(vnt) Then Debug.Print "vnt Is Empty"
End Sub
9
9
vnt Is Nothing
我还没有测试过将TestStub移动到另一个组件中，但我认为这仍然有效。因此，我认为将.NET编组到COM可以做得更好 既然不应该修改VB dll中的函数，那么添加一个怎么样
Public Sub TestFuncEx(ByVal oValue As Variant)
{
If IsEmpty(oValue) Then
TestFunc(Nothing)
Else
TestFunc(oValue)
End If
}
这可能是因为1）它是一个子函数，不是函数，因此没有返回值；2）您通过值传递，因此它不会修改对象本身。由于VB6方法的参数是一个变量，您应该测试它是否为空，是否缺失，因为它们可能是“非值或对象”在没有实际值或对象可用时可以传递的 在回答您的问题时，我认为这是因为VB6中的一个变量默认为空，如果您的参数类型为Object，则在您的情况下不会传入任何内容
您可能想尝试从VB.Net中不传递任何内容，看看会发生什么，如果不传递内容持续存在于VB6 DLL中，那么您知道可以传递它，并且可以通过查看IL代码找到答案。我根据另一个网站的建议，在COM方法调用中使用System.DBNull.Value。这对我来说是有效的，而传递C#null则不行。我尝试了这一点，效果很好。但我不想更改VB6 dll中的任何代码，因为它可以被其他应用程序使用。我想知道有没有办法强制将空对象作为无对象编组到VB6中？当我引用VB6 Dll时，公共子TestFunc（变量为ByVal oValue）在c#中被转换为Void TestFunc（对象oValue）。它还将初始化对象正确封送为VB6中的对象。它只是错误地将空对象作为值类型封送到vb6.+1中。务实的解决办法。将此新测试置于块
下，如果oValue为空，则。。。如果EmptyNothingByVal无无Nothingnull