如何使用 Rx 和 F# 将 WPF Button.Click 事件转换为 Observable

Question

我正在尝试复制一些从 Button.Click 事件创建 IObservable 的 C# 代码。 我想将此代码移植到 F#。

这是编译时没有错误的原始 C# 代码：

Observable.FromEvent<RoutedEventHandler, RoutedEventArgs>(
                                    h => new RoutedEventHandler(h),
                                    h => btn.Click += h,
                                    h => btn.Click -= h))

这是我在 F# 中执行相同操作的失败尝试：

Observable.FromEvent<RoutedEventHandler, RoutedEventArgs>(
            Func<EventHandler<RoutedEventArgs>, RoutedEventHandler>(fun h -> RoutedEventHandler(h)),
            Action<RoutedEventHandler>(fun h -> btn.Click.AddHandler h),
            Action<RoutedEventHandler>(fun h -> btn.Click.RemoveHandler h))

除了语句的第二行之外，一切都很顺利。

F# 编译器抱怨 fun h ->; RoutedEventHandler(h) 因为 它不想将 h 作为 RoatedEventHandler 构造函数的参数。

另一方面，C# 编译器似乎没有问题接受 h =>; new RoutedEventHandler(h)

有趣的是，在两个代码示例（C# 和 F#）中，h 的类型都是 EventHandler。

我从 F# 编译器收到的错误消息是：

错误 2 该表达式的类型应为 obj -> RoutedEventArgs -> 路由事件参数单位但这里有类型 EventHandler

我在PresentationCore 中找到的 RoutedEventHandler 的签名是：

public delegate void RoutedEventHandler(object sender, RoutedEventArgs e);

正如你所看到的，它确实需要object 和 RoulatedEventArgs 作为参数，因此 F# 编译器实际上是正确的。

C# 编译器是否在幕后执行了一些 F# 编译器无法执行的操作，或者我只是在这里遗漏了一些东西？

不管怎样，我怎样才能在 F# 中实现这个功能呢？

Answer 1

据我所知，从 WPF Button.Click 事件中创建 IObservable<_> 的最简单方法是对其进行强制转换：

open System
open System.Windows.Controls

let btn = new Button()
let obsClick = btn.Click :> IObservable<_>

检查 obsClick...

val obsClick : IObservable<Windows.RoutedEventArgs>

这是可能的，因为标准 .NET 事件的 F# 表示形式是类型（在本例中）IEvent。从文档中可以看出，IEvent 实现了 IObservable。换句话说，在 F# 中，每个事件都已经是一个 IObservable。

Answer 2

Joel Mueller 说得很对，所以仅供记录：C# 代码的直接翻译将是

Observable.FromEvent(
    (fun h -> RoutedEventHandler(fun sender e -> h.Invoke(sender, e))),
    (fun h -> b.Click.AddHandler h),
    (fun h -> b.Click.RemoveHandler h)
)