HOW TO：引發由 COM 接收所處理的事件
如果您不熟悉 .NET Framework 所提供的委派架構事件模型，請參閱處理和引發事件。 如需適用於這個主題的特定詳細資訊，請參閱同一節中的引發事件。
.NET Framework 提供了委派架構事件系統，來將事件傳送者 (來源) 連接到事件接收者 (接收)。 如果接收是 COM 用戶端，那麼來源必須包括額外的項目以模擬連接點。 經過這些修改，COM 用戶端可以呼叫 IConnectionPoint::Advise 方法，以傳統方式註冊其事件接收 (Event Sink) 介面 (Visual Basic 會隱藏連接點詳細資料，所以您不需要直接呼叫這些方法)。
若要與 COM 事件互通
定義 Managed 程式碼中的事件接收介面。 這個介面可能含有來自 Managed 類別的事件子集。 介面方法名稱必須和事件名稱相同。
套用 ComSourceInterfacesAttribute，將事件接收 (Event Sink) 介面連接到 Managed 類別。
將含有該類別之組件匯出至型別程式庫。 使用Tlbexp.exe (型別程式庫匯出工具) 或相等的 API 匯出組件。
在 COM 中實作事件接收介面。
對於接收事件的 COM 用戶端，請實作事件來源在其型別程式庫中所定義的事件接收介面。 然後使用連接點機制，將接收介面連接至事件的來源。
範例
下列範例會示範做為事件來源的 Managed 伺服器，以及做為事件接收 (Event Sink) 的 COM 用戶端。 Managed 伺服器宣告了 ButtonEvents 做為事件接收介面，並且將這個介面連接到 Button 類別。 Unmanaged 用戶端會建立一個 Button 類別的執行個體，並且實作這個事件接收介面。
' Managed server (event source)
Option Explicit
Option Strict
Imports System
Imports System.Runtime.InteropServices
Namespace EventSource
Public Delegate Sub ClickDelegate(x As Integer, y As Integer)
Public Delegate Sub ResizeDelegate()
Public Delegate Sub PulseDelegate()
' Step 1: Defines an event sink interface (ButtonEvents) to be
' implemented by the COM sink.
<GuidAttribute("1A585C4D-3371-48dc-AF8A-AFFECC1B0967"), _
InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIDispatch)> _
Public Interface ButtonEvents
Sub Click(x As Integer, y As Integer)
Sub Resize()
Sub Pulse()
End Interface
' Step 2: Connects the event sink interface to a class
' by passing the namespace and event sink interface
' ("EventSource.ButtonEvents, EventSrc").
<ComSourceInterfaces(GetType(ButtonEvents))> _
Public Class Button
Public Event Click As ClickDelegate
Public Event Resize As ResizeDelegate
Public Event Pulse As PulseDelegate
Public Sub CauseClickEvent(x As Integer, y As Integer)
RaiseEvent Click(x, y)
End Sub
Public Sub CauseResizeEvent()
RaiseEvent Resize()
End Sub
Public Sub CausePulse()
RaiseEvent Pulse()
End Sub
End Class
End Namespace
using System;
using System.Runtime.InteropServices;
namespace EventSource
{
public delegate void ClickDelegate(int x, int y);
public delegate void ResizeDelegate();
public delegate void PulseDelegate();
// Step 1: Defines an event sink interface (ButtonEvents) to be
// implemented by the COM sink.
[GuidAttribute("1A585C4D-3371-48dc-AF8A-AFFECC1B0967") ]
[InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIDispatch)]
public interface ButtonEvents
{
void Click(int x, int y);
void Resize();
void Pulse();
}
// Step 2: Connects the event sink interface to a class
// by passing the namespace and event sink interface
// ("EventSource.ButtonEvents, EventSrc").
[ComSourceInterfaces(typeof(ButtonEvents))]
public class Button
{
public event ClickDelegate Click;
public event ResizeDelegate Resize;
public event PulseDelegate Pulse;
public Button()
{
}
public void CauseClickEvent(int x, int y)
{
Click(x, y);
}
public void CauseResizeEvent()
{
Resize();
}
public void CausePulse()
{
Pulse();
}
}
}
' COM client (event sink)
' This Visual Basic 6.0 client creates an instance of the Button class and
' implements the event sink interface. The WithEvents directive
' registers the sink interface pointer with the source.
Public WithEvents myButton As Button
Private Sub Class_Initialize()
Dim o As Object
Set o = New Button
Set myButton = o
End Sub
' Events and methods are matched by name and signature.
Private Sub myButton_Click(ByVal x As Long, ByVal y As Long)
MsgBox "Click event"
End Sub
Private Sub myButton_Resize()
MsgBox "Resize event"
End Sub
Private Sub myButton_Pulse()
End Sub