在F＃中同时等待多个事件的任何事件 [英] Wait for any event of multiple events simultaneously in F#

问题描述

在F＃中，我知道如何使用 Async.AwaitEvent ：

In F# I know how to wait asynchronously for one event using Async.AwaitEvent:

let test = async {
  let! move = Async.AwaitEvent(form.MouseMove)
  ...handle move... }

假设我想等待 MouseMove 或 KeyDown 事件。我想要这样做：

Suppose I want to wait for either the MouseMove or the KeyDown event. I'd like to have something like this:

let! moveOrKeyDown = Async.AwaitEvent(form.MouseMove, form.KeyDown)

此函数不存在，但有另外一种方法吗？

This function doesn't exist but is there another way to do this?

推荐答案

let ignoreEvent e = Event.map ignore e

let merged = Event.merge (ignoreEvent f.KeyDown) (ignoreEvent f.MouseMove)
Async.AwaitEvent merged

编辑：保留原始类型的另一个版本

another version that preserves original types

let merged = Event.merge (f.KeyDown |> Event.map Choice1Of2) (f.MouseMove |> Event.map Choice2Of2)
Async.AwaitEvent merged

编辑2 ：根据 Tomas Petricek

let e1 = f.KeyDown |> Observable.map Choice1Of2
let e2 = f.MouseMove |> Observable.map Choice2Of2
let! evt = Observable.merge e1 e2 |> Async.AwaitObservable

AwaitObservable 可以从这里（Tomas Petricek的Silverlight中的反应演示）。

AwaitObservable primitive can be taken from here ('Reactive demos in Silverlight' by Tomas Petricek).

这篇关于在F＃中同时等待多个事件的任何事件的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！