Comment créer des événements compatibles .NET en F #?

Question

J'essaye de publier un événement d'un type F #, mais je veux qu'il soit vu comme un événement de C# ou de VB. Il semble que la façon correcte de le faire était IEvent.create_HandlerEvent, mais cette fonction n'existe pas dans la nouvelle version de F #. Alors, quelle est la bonne façon de le faire maintenant?

Answer 1

événements ne sont pas mon fort, mais cet exemple semble fonctionner sur 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 

Voir aussi

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