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();

DLL通过Interop是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布尔运算符都是按位的;即（非1）导致-2不为零。

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

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

1 个答案: