¿Cómo crear eventos compatibles con .NET en F #?

Question

Estoy intentando publicar un evento de un tipo F #, pero quiero que se vea como un evento desde C# o VB. Parece que la forma correcta de hacerlo solía ser IEvent.create_HandlerEvent, pero esta función no existe en la versión más reciente de F #. Entonces, ¿cuál es la forma correcta de hacerlo ahora?

Answer 1

Los eventos no son mi fuerte, pero este ejemplo parece funcionar en F # 1.9.6.16:

namespace EventExample 
open System 
type MyEventArgs(msg:string) = 
    inherit EventArgs() 
    member this.Message = msg 

type MyEventDelegate = delegate of obj * MyEventArgs -> unit 

type Foo() = 
    let ev = new Event<MyEventDelegate, MyEventArgs>() 

    member this.Ping(msg) = 
     ev.Trigger(this, new MyEventArgs(msg)) 

    [<CLIEvent>] 
    member this.GotPinged = ev.Publish 

Véase también

http://cs.hubfs.net/forums/thread/10555.aspx