69、PInvoke与COM Interop：管理与非管理世界的桥梁

PInvoke与COM Interop：管理与非管理世界的桥梁

1. 事件处理与COM组件注册

在处理事件时，我们可以通过以下代码定义一个 Person 类，使其支持事件处理：

<ClassInterface(ClassInterfaceType.AutoDual), _
ComSourceInterfaces(GetType(Person_Events))> _
Public Class Person
    Public Event GotEmail(ByVal msg As String)
    Public Event TodayIsMyBirthday(ByVal age As Integer)
    …
End Class

经过这样的修改，Visual Basic 6客户端可以将 Employee 类的实例分配给 WithEvents 变量，并正确拦截事件。

当.NET类以COM组件形式注册时，有时需要执行自定义操作。可以通过添加带有 ComRegisterFunction 属性的共享过程来实现：

Const COMPANYKEY As String = "Software\CodeArchitects\MyApp"
<ComRegisterFunction()> _
Private Shared Sub Register(ByVal ty As