Procedura: generare eventi gestiti da un sink COM
Aggiornamento: novembre 2007
Se non si ha familiarità con il modello eventi basato sui delegati fornito da .NET Framework, vedere Gestione e generazione di eventi. Per informazioni dettagliate sugli argomenti riportati di seguito, vedere Generazione di un evento più avanti in questa sezione.
.NET Framework fornisce un sistema di gestione degli eventi che utilizza i delegati per connettere il mittente dell'evento (origine) al ricevente (sink). Quando il sink è un client COM, l'origine deve includere elementi aggiuntivi che simulino i punti di connessione. Grazie a questo accorgimento, un client COM può registrare l'interfaccia del proprio sink di evento nel modo tradizionale chiamando il metodo IConnectionPoint::Advise. Poiché Visual Basic nasconde i dettagli dei punti di connessione, non occorre chiamare tali metodi direttamente.
Per interoperare con un sink di evento COM
Definire l'interfaccia del sink di evento nel codice gestito. Tale interfaccia può contenere un sottoinsieme degli eventi originati da una classe gestita. I nomi dei metodi dell'interfaccia devono corrispondere ai nomi degli eventi.
Utilizzare ComSourceInterfacesAttribute per connettere l'interfaccia del sink di evento alla classe gestita.
Esportare l'assembly contenente la classe in una libreria dei tipi. Eseguire l'esportazione utilizzando Utilità di esportazione della libreria dei tipi (Tlbexp.exe) o un'API equivalente.
Implementare l'interfaccia del sink di evento in COM.
Per i client COM che effettuano il sink di eventi, implementare l'interfaccia del sink di evento definita dall'origine evento nella relativa libreria dei tipi. Utilizzare quindi il meccanismo dei punti di connessione per connettere l'interfaccia del sink all'origine evento.
Esempio
Nell'esempio riportato di seguito viene illustrato un server gestito come origine eventi e un client COM come sink di evento. Il server gestito dichiara ButtonEvents come interfaccia del sink di evento e connette l'interfaccia alla classe Button. Il client non gestito crea un'istanza della classe Button e implementa l'interfaccia del sink di evento.
' 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
Vedere anche
Attività
Procedura: gestire gli eventi generati da un'origine COM
Concetti
Esposizione di componenti .NET Framework a COM