Come collegare gli eventi di un oggetto originale ad un profondo copiata Clone

Question

Facendo seguito a mia domanda ieri per deepcopy un oggetto con eventi in C# e allegare gli eventi dell'oggetto originale alla copia clonata è abbastanza facile, è sufficiente impostare la dichiarazione di evento nella copia = il valore nell'originale. Deep Clone when events are attached

Come fa a fare questo in VB.Net? (Utilizzando Net 2)

speravo forse c'era qualcosa con la riflessione in cui è possibile esaminare quali eventi sono legati e in qualche modo trasferire quelli per il nuovo oggetto.

Answer 1

sì è possibile, e non è poi così difficile, ma sembra che ci isint un sacco di informazioni, così grande domanda.

 

Dim sourceObject As New FooBar 
Dim destObject As New FooBar 

AddHandler sourceObject.SomeEvent, AddressOf myFunc 


Dim miHandler As FieldInfo = GetType(FooBar).GetField("SomeEvent", BindingFlags.Static Or BindingFlags.NonPublic Or BindingFlags.Instance) 
Dim sourceDelegate As [Delegate] = miHandler.GetValue(sourceObject) 

Dim addDelegate As [Delegate] = sourceDelegate.GetInvocationList().First() ' if its multicast, then you'll need to copy the lot 

AddHandler destObject.SomeEvent, addDelegate