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

Artigo
02/25/2013

Retorna um novo evento que escuta para o evento original e dispare o evento primeiro se o aplicativo resultante de função para os argumentos de evento retornado Choice1Of2, e o segundo evento se retorna Choice2Of2.

Namespace/Module Path: 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 identificador ativa do que torna padrão, valores de evento em um de dois tipos.
sourceEvent
Tipo: IEvent<'Del,'T>

O evento de entrada.

Valor de retorno

Um tuple de eventos.O primeiro é acionado sempre que splitter avalia a Choice1of1 e a segunda é acionado sempre que splitter avalia a Choice2of2.

Comentários

Essa função é chamada Split em assemblies compilados.Se você está acessando a função de um idioma diferente F#, ou com a reflexão, use este nome.

Exemplo

O código a seguir mostra como usar a função de Event.split para implementar a capacidade para mover um controle em um formulário.A função de splitter é o identificador do ativo (|Down|Up|)padrão, que representa o estado dos botões do mouse.Se um usuário pressiona o botão do mouse para mover o mouse quando está sobre o botão, o botão move.Há também o código que altera às vezes a cor do botão quando se mover, dependendo do botão do mouse é usado.Este teste usa uma cor diferente para cada botão do mouse.O caminho de outro evento, que é usado quando o botão do mouse não estiver pressionada, restaura a cor original do botão após o botão é liberado.

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 8, Windows 7, Windows Server 2012, Windows Server 2008 R2

Informações de Versão

Versões da biblioteca principal de F#

Suportado em: 2,0, 4,0, portáteis

Consulte também

Referência

Módulo de Control.Event (F#)

Microsoft.FSharp.Control Namespace (F#)

Compartilhar via