Event.split<'T,'U1,'U2,'Del> 函式 (F#)
傳回新事件，這個事件會接聽原始事件，並在事件引數套用函式的結果傳回 Choice1Of2 時觸發第一個產生的事件，或在傳回 Choice2Of2 時觸發第二個事件。
**命名空間/模組路徑：**Microsoft.FSharp.Control.Event
組件：FSharp.Core (在 FSharp.Core.dll 中)
// Signature:
Event.split : ('T -> Choice<'U1,'U2>) -> IEvent<'Del,'T> -> IEvent<'U1> * IEvent<'U2> (requires delegate)
// Usage:
Event.split splitter sourceEvent
參數
splitter
型別：'T -> Choice<'U1,'U2>函式 (通常是現用模式辨識器)，可將事件值轉換為兩種型別之一。
sourceEvent
型別：IEvent<'Del,'T>輸入事件。
傳回值
事件的 Tuple。 每當 splitter 評估為 Choice1of1 時會觸發第一個事件，splitter 評估為 Choice2of2 時則會觸發第二個事件。
備註
這個函式在已編譯的組件中名為 Split。 如果您是透過 F# 以外的語言，或是透過反映來存取函式，請使用這個名稱。
範例
下列程式碼示範如何使用 Event.split 函式實作在表單上移動控制項的功能。 splitter 函式是現用模式辨識器 (|Down|Up|)，這表示滑鼠按鍵的狀態。 滑鼠在按鈕上方時，如果使用者在移動滑鼠時按下滑鼠按鈕，按鈕會移動。 還有程式碼，有時會根據使用的滑鼠按鍵，在滑鼠移動時變更按鈕的色彩。 這個測試會對每個滑鼠按鍵使用不同的色彩。 滑鼠按鍵未按下時所使用的其他事件路徑會在釋放按鈕後恢復按鈕的原始色彩。
open System.Windows.Forms
open System.Drawing
open Microsoft.FSharp.Core
let form = new Form(Text = "F# Windows Form",
Visible = true,
TopMost = true)
let button = new Button(Text = "Button",
Visible = true,
Left = 100,
Width = 50,
Top = 100,
Height = 20)
form.Controls.Add(button)
let originalColor = button.BackColor
let mutable xOff, yOff = (0, 0)
let (|Down|Up|) (evArgs:MouseEventArgs) =
match evArgs.Button with
| MouseButtons.Left
| MouseButtons.Right
| MouseButtons.Middle -> Down(evArgs)
| _ -> Up
button.MouseDown
|> Event.add(fun evArgs ->
xOff <- evArgs.X
yOff <- evArgs.Y)
form.MouseMove
|> Event.map (fun evArgs -> (evArgs.X, evArgs.Y))
|> Event.add (fun (x, y) -> form.Text <- sprintf "(%d, %d)" x y)
let (dragButton, noDragButton) = Event.split (|Down|Up|) button.MouseMove
// Move the button, and change its color if the user uses the
// right or middle mouse button.
dragButton |> Event.add ( fun evArgs ->
match evArgs.Button with
| MouseButtons.Left ->
button.BackColor <- originalColor
| MouseButtons.Right ->
button.BackColor <- Color.Red
| MouseButtons.Middle ->
button.BackColor <- Color.Blue
| _ -> ()
button.Left <- button.Left + evArgs.X - xOff
button.Top <- button.Top + evArgs.Y - yOff
button.Refresh())
// Restore the button's original color when the mouse is moved after
// the release of the button.
noDragButton |> Event.add ( fun () ->
button.BackColor <- originalColor)
平台
Windows 8 中， Windows 7， Windows Server 2012 上， Windows Server 2008 R2
版本資訊
F# 核心程式庫版本
支援版本:2.0， 4.0，可攜式執行檔 (PE)。