第八章 用户界面（四）

处理 WinForms 事件和事件模块

在第七章我们讨论过事件（Event）模块，它能够用于处理 WinForms 中的事件。当处理 WinForms 中的事件时，通常会遇到没有完全符合想要事件的情况。例如，当鼠标的左、右键单击时会触发MouseButton 事件，但是，我们可能只希望它响应鼠标左键的单击。这时，用 Event.filter 函数可能会很有用，用它创建一个新的事件，只响应鼠标左键的单击。看下面例子的演示：

openSystem.Windows.Forms

let form =

  // create a new form

  let temp = new Form()

  // subscribe the mouse click event filtering so it only

  // reacts to the left button

  temp.MouseClick

  |> Event.filter (fun e-> e.Button = MouseButtons.Left)

  |> Event.add (fun _-> MessageBox.Show("Leftbutton")|> ignore)

  // return the form

  temp

Application.Run(form)

这里，函数filter用函数参数检查鼠标左键是否按下，结果事件通过管道传递给 listen 函数，把事件处理程序加到事件中，[ 这一段应该是忘记改了，从程序来看，已经使用事件的 add 函数了] 就如同调用事件的Add 方法一样。可以在事件处理程序中使用 if 表达式来实现，但是，这个技术有它的优势，能够把控制事件触发的逻辑和事件本身发生的事情分离出来。如果愿意，几个事件处理程序能够重用这个新事件。

清单 8-3 演示了如何使用几个事件函数创建一个简单的画图程序（如图 8-5）。这里以另一种方式使用 MouseDown 事件：首先，用它来监视鼠标是否按下；然后，用分区函数（Event.partition）把事件划分到左、右按钮的按下，用它来控制画图的颜色，红和黑：

清单 8-3 用事件实现一个简单的画图程序

open System

open System.Drawing

openSystem.Windows.Forms

let form =

  // create the form

  let temp = new Form(Text = "Scribble !!")

  // some refrence cells to hold the applications state

  let pointsMasterList = ref []

  let pointsTempList = ref []

  let mouseDown = ref false

  let pen = ref (new Pen(Color.Black))

  // subscribe to the mouse down event

  temp.MouseDown.Add(fun _ -> mouseDown := true)

  // create a left mouse down and right mouse down events

  let leftMouse, rightMouse =

    temp.MouseDown

    |> Event.partition (fun e -> e.Button =MouseButtons.Left)

  // use the new left and right mouse events to choose thecolor

  leftMouse.Add(fun _ -> pen := new Pen(Color.Black))

  rightMouse.Add(fun _ -> pen := new Pen(Color.Red))

  // the mouse up event handler

  let mouseUp _ =

    mouseDown := false

    if List.length !pointsTempList > 1then

      let points = List.toArray !pointsTempList

      pointsMasterList :=

        (!pen, points) :: !pointsMasterList

    pointsTempList := []

    temp.Invalidate()

  // the mouse move event handler

  let mouseMove (e: MouseEventArgs) =

    pointsTempList := e.Location ::!pointsTempList

    temp.Invalidate()

  // the paint event handler

  let paint (e: PaintEventArgs) =

    if List.length !pointsTempList > 1then

      e.Graphics.DrawLines

        (!pen, List.toArray !pointsTempList)

    !pointsMasterList

    |> List.iter

      (fun (pen, points) ->

        e.Graphics.DrawLines(pen, points))

  // wire up the event handlers

  temp.MouseUp |> Event.add mouseUp

  temp.MouseMove

  |> Event.filter(fun _ -> !mouseDown)

  |> Event.add mouseMove

  temp.Paint |> Event.add paint

  // return the form object

  temp

[<STAThread>]

doApplication.Run(form)

图 8-5. 涂鸦：用事件实现的简单的画图程序

也可以用这种方法把创建的事件发布到窗体的界面上，这样，使用窗体的代码能够利用这些事件。

另外，程序员在处理 Windows 窗体事件时面临的一个很大的问题，就是可用的事件的数量，这是很难做出正确选择的。可能非常奇怪，大多数事件都定义在控件（control）类中，只有少数几个事件专门额外提供。这样使事情变得更容易，因为如果我们使用随控件的事件，那么，它也可以在其他控件上使用。表8-4 提供了Control 类中的常见事件的汇总：

表 8-4 Control 类的事件汇总