如何在 F# 中定义自定义 routedeventargs？

Question

I have a need to define a custom routedeventarg in F# (to be used by both C# code and F# code).

In C#, I have defined the following

public class NewTranscriptEventArgs : RoutedEventArgs
        {
            private readonly string appendtext;
            public string AppendText
            {
                get { return appendtext; }
            }

            public NewTranscriptEventArgs(RoutedEvent routedEvent, string appendtext) : base(routedEvent)
            {
                this.appendtext = appendtext;
            }
        }

I have no good idea on how this would be translated into F#.

Ultimately, the custom NewTranscriptEventArgs will be sent to the F# back-end by:

 <i:EventTrigger EventName="NewTranscript">
            <i:InvokeCommandAction PassEventArgsToCommand="True" Command="{Binding NewTranscript}" />
        </i:EventTrigger>

Thanks for any help.

Answer 1

Ugh: How simple:

type NewTranscriptEventArgs(r:RoutedEvent, appendText: string ) = 
        inherit RoutedEventArgs(r)
        member this.AppendText = appendText

Answer 2

I haven't tried to run the code, but this is a literal translation to F#:

type NewTranscriptEventArgs(routedEvent, appendText : string) =
    inherit RoutedEventArgs(routedEvent)
    member _.AppendText = appendText