c# - VB6 事件传递 bool 参数，在 C# 中始终为 'true'

Question

我的问题很简单，我在 VB6 库中声明了一个传递 bool 参数的事件:

Public Event WriteComplete(ByVal aCommsOk As Boolean, ByVal aBadPIN As Boolean)

我已经多次将我的 c# 代码与此事件 Hook ，但奇怪的是，我的测试部门和其他几个人已经注意到，尽管 VB6 在 aBadPIN 设置为 false 的情况下引发此事件，但 c# 事件处理程序将其接收为 true。它不一致，所以它是“那些”问题之一，但我在互联网上找不到任何帮助。

我发现，如果我定义一个将 bool 转换为字节并发送的新事件，然后它会在 c# 中转换回，这就解决了那些有问题的机器上的问题。但是，我真的不想这样做，因为我必须对在我的 COM 和 .Net 库(而且有很多)之间编码的每个 bool 值都这样做。

我还在某处读到有一个已知错误(至少在 C++ 中)，您必须强制 EAX 寄存器为 255 才能正确表示 false 但我以前从未遇到过这个问题，坦率地说不知道从哪里开始无论如何都在 VB6 中这样做。

任何想法都会很棒!

更新:日志记录显示，当发生此问题时，引发事件的调用会在 c# 事件处理程序触发之前将控制权返回给 VB6 代码。这是怎么回事？

更新:在引发代码退出后仍然看到事件处理程序接收事件，但尝试编码(marshal)更改无济于事。时间限制将迫使我遗憾地添加包装器。

Answer 1

很抱歉，这个问题不像 VB6 世界中的按位 bool 值那么简单。

如果问题出在编码上，是否有可能是 .NET 制作的互操作 DLL 与其各自的 VB6 DLL 不同步？ (顺便说一句，您熟悉 VB6 中的二进制兼容性设置吗？)

对于傻笑，我做了以下操作 - 如果这组简单的项目是您正在跟踪的编码或编码问题的代表性模型，请告诉我。如果此问题是编码问题，通过简化版本的 c# 和 vb6 项目来解决它可能有助于跟踪它。

使用 VB6，我创建了一个简单的 ActiveX DLL(名为 LibBoolBuster 的项目)，其中包含一个名为 BoolBuster 的类:

Public Event WriteComplete(ByVal aCommsOk As Boolean, ByVal aBadPIN As Boolean)

Public Sub DoIt(ByVal Mode As Integer)
    RaiseEvent WriteComplete(CBool(Mode And 1), CBool(Mode And 2))   
End Sub

使用 VS2003(旧的 .NET，但应该仍然适用)，我创建了一个简单的 C# Windows 应用程序，它有一个带有四个按钮的窗体，并引用了上面的 VB6 ActiveX DLL。我以访问VB6 DLL的形式创建了一个成员:

public LibBoolBuster.BoolBuster vb6Obj = new LibBoolBuster.BoolBuster();

通过 Interop 的 DLL 是 LibBoolBuster； BoolBuster 类具有事件和 DoIt 成员。在表单初始化中，事件连接是这样完成的:

vb6Obj.WriteComplete += new LibBoolBuster.__BoolBuster_WriteCompleteEventHandler(vb6Obj_WriteComplete);

WriteComplete 事件处理程序是以下形式的成员:

private void vb6Obj_WriteComplete ( System.Boolean aCommsOk  , System.Boolean aBadPIN )
{
    MessageBox.Show(aCommsOk.ToString() + ", " + aBadPIN.ToString());           
}

每个按钮单击事件处理程序都对 DoIt 进行简单调用:

vb6Obj.DoIt(0);

(和 vb6Obj.DoIt(1)、vb6Obj.DoIt(2) 等)

非常简单的项目:单击一个按钮，调用 DoIt，触发事件 WriteComplete。我试了一下，一切都按预期进行。

---

仔细观察 VB6 端。您表示事件是通过以下方式引发的:

RaiseEvent WriteComplete(aCommsReceived, Not (aIsAcknowledged))

确保 aIsAcknowledged 仅为 0 或 -1；否则你不会得到你期望的结果。

VB6 bool 运算符都是按位的；即(非 1)导致 -2 不为零。

此外，在 VB6 中，当从整数转换为 bool 值时，任何非零整数都将映射为真 - 只有零变为假。