Как создать .NET-совместимые события в F #?

Question

Я пытаюсь опубликовать событие из типа F #, но я хочу, чтобы оно рассматривалось как событие из C # или VB. Кажется, что правильным способом сделать это был IEvent.create_HandlerEvent, но эта функция не существует в последней версии F #. Так как правильно сделать это сейчас?

Answer 1

События не являются моей сильной стороной, но этот пример работает на 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

Смотри также

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