Partilhar via


Event.Split < T','U1,' U2,'Del > Função (F#)

Retorna um novo evento que ouve o evento original e dispara o evento resultante primeiro se o aplicativo da função para os argumentos do evento retornado um Choice1Of2e o segundo evento se ela retorna um Choice2Of2.

Caminho do namespace/módulo: Microsoft.FSharp.Control.Event

Assembly: FSharp.Core (em FSharp.Core.dll)

// Signature:
Event.split : ('T -> Choice<'U1,'U2>) -> IEvent<'Del,'T> -> IEvent<'U1> * IEvent<'U2> (requires delegate)

// Usage:
Event.split splitter sourceEvent

Parâmetros

  • splitter
    Tipo: 'T -> Escolha<'U1,'U2>

    Uma função, normalmente um reconhecedor padrão ativo, que transforma os valores de evento em um dos dois tipos.

  • sourceEvent
    Tipo: IEvent<'Del,'T>

    O evento de entrada.

Valor de retorno

Uma tupla de eventos. A primeira é acionado sempre que splitter for avaliada como Choice1of1 e o segundo é acionado sempre que splitter for avaliada como Choice2of2.

Comentários

Esta função é chamada de Split em módulos (assemblies) compilados. Se você estiver acessando a função de um idioma diferente, por exemplo, F# ou através de reflexão, use esse nome.

Exemplo

O código a seguir mostra como usar o Event.split a função de implementar a capacidade de mover um controle em um formulário. O splitter função é o reconhecedor padrão ativo (|Down|Up|), que representa o estado dos botões do mouse. Se um usuário pressiona o botão do mouse enquanto move o mouse quando ele está sobre o botão, o botão move. Também é o código que às vezes, altera a cor do botão, enquanto estiver se movendo, dependendo de qual mouse botão é usado. Esse teste usa uma cor diferente para cada botão do mouse. Outro evento caminho, que é usado quando o botão do mouse não estiver inoperante, restaura a cor original do botão após o lançamento do botão.

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)

Plataformas

O Windows 7, SP2 do Windows Vista, Windows XP SP3, Windows XP Professional x64 SP2, Windows Server 2008 R2, Windows Server 2008 SP2, Windows Server 2003 SP2

Informações sobre versão

O tempo de execução F#

Compatível com: 2.0, 4.0

Silverlight

Compatível com: 3

Consulte também

Referência

Módulo de Control.Event (F#)

Microsoft.FSharp.Control Namespace (F#)

Histórico de alterações

Date

History

Motivo

Setembro de 2010

Exemplo de código adicionado.

Aprimoramento de informações.