我如何在vb.net中raiseevent

Question

我的解决方案中有2个项目。
假设Proj A和Proj B.

Proj A正在有我的自定义活动。同样的proj正在提出使用vb.net和proj b的raiseevent函数的事件。
Proj B正在为Proj A的自定义事件添加处理程序。

但是我的自定义活动无法提高。有人可以解释我该怎么做。

编辑：

proj a

Public Shared Event cardReadComplete(ByVal data As String)
 Public Sub kbHook_KeyDown(ByVal Key As Windows.Forms.Keys) 
  IO.File.AppendAllText("E:\log.log", Key.ToString() & vbCrLf)
 RaiseEvent cardReadComplete(encryptedData)
End Sub

proj b

 Private Sub handleSwipeCardRequest(ByVal msgText As String)
        AddHandler CardReader.Main.cardReadComplete, AddressOf sendSwipeCardDetails
        CardReader.Main.cardReadComplete()
End Sub

我首先调用handleswipecardrequest函数，然后提高活动。

Answer 1

您的活动将在 kbHook_KeyDown 被调用，假设它在 AddHandler 行执行。您确定调用键盘功能吗？正如Hans Passant所说，您可能会缺少一个关键字：

Public Sub kbHook_KeyDown(ByVal Key As Windows.Forms.Keys) Handles kbHook.KeyDown
    ...
End Sub

Answer 2

另一种方式 ：

AddHandler kbHook.KeyDown , AddressOf Me.kbHook_KeyDown