VB6 事件传递始终为“true”的布尔参数在 C# 中

Question

我的问题很简单，我在 VB6 库中声明了一个事件，该事件传递了一个布尔参数：

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

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

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

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

任何想法都会很棒！

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

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

Answer 1

抱歉，这个问题并不像 VB6 世界中的按位布尔运算那么简单。

如果问题出在编组上，.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布尔运算符都是按位的；即 (Not 1) 导致 -2 非零。

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