第八章 用户界面（四）

处理 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 > 1
then

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 > 1
then

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 类的事件汇总

第八章 用户界面（四）,布布扣,bubuko.com