VB教程(江苏省)第六章修改(控件数组).ppt

6.4 控件数组 本节介绍控件数组，控件数组为我们处理功能相近的控件提供了极大的方便。 6.4.1 控件数组的概念 在实际应用中，我们有时会用到一些类型相同且功能类似的控件。如果对每一个控件都单独处理，就会多做一些麻烦而重复的工作。这时，我们可以用控件数组来简化程序。 控件数组由一组相同类型的控件组成，这些控件共用一个控件名字，具有相似的属性设置，共享同样的事件过程。控件数组中各个控件相当于普通数组中的各个元素，同一控件数组中各个控件的Index属性相当于普通数组中的下标。 比如，假设有一个包含3个按钮的控件数组Command1，它的3个元素就是Command1（0），Command1（1），Command1（2）。 6.4.2 控件数组的建立 控件数组中每一个元素都是控件，它的定义方式与普通数组不同。可以通过以下两种方法建立控件数组。 方法一：复制已有的控件并将其粘贴到窗体上。 方法二：将窗体上已有的类型相同的多个控件的Name属性设置为同一值。 6.4.3 控件数组的应用举例 建立了控件数组之后，控件数组中所有控件共享同一事件过程。例如，假定某个控件数组含有10个标签，则不管单击哪个标签，系统都会调用同一个Click过程。由于每个标签在程序中的作用不同，系统会将被单击的标签的Index属性值传递给过程，由事件过程根据不同的Index值执行不同的操作。 【例6.12】设计一个简易计算器，能进行整数的加、减、乘、除运算。其运行界面如图7-8所示。 界面设计： 一个标签用于计算器输出； 数字按钮控件数组Number； 操作符控件数组Operator； 一个“=”按钮用于计算结果； 一个“Cls”按钮用于清屏。 程序如下： 窗体级变量声明 Dim op1 As Byte 用来记录前面输入的操作符 Dim ops1，ops2 两个操作数 Dim res As Boolean 用来表示是否已算出结果 Private Sub clear_Click（） dataout.Caption = End Sub Private Sub Form_Load（） res = False End Sub 按下数字键0～9的事件过程 Private Sub number_Click（i1 As Integer） If Not res Then dataout.Caption = dataout.Caption i1 Else dataout.Caption = i1 res = False End If End Sub 按下操作键+、－、×、/的事件过程 Private Sub operator_Click（i2 As Integer） ops1 = dataout.Caption op1 = i2 记下对应的操作符 dataout.Caption = End Sub 按下=键的事件过程 Private Sub result_Click（） ops2 =dataout.Caption Select Case op1 Case 0 dataout.Caption = ops1 + ops2 Case 1 dataout.Caption = ops1 - ops2 Case 2 dataout.Caption = ops1 * ops2 Case 3 dataout.Caption = ops1 / ops2 End Select res = True 已算出结果 End Sub 6.5 鼠标事件和键盘事件 鼠标对于Windows应用程序设计来说几乎是必需的，尤其是在图形图像处理的程序设计中，显得更为重要。而鼠标应用的基础是鼠标事件。下面我们就来简单介绍一下窗体鼠标事件及其应用。 6.5.1 鼠标事件 除了单击（Click）和双击（DblClick）外，基本的鼠标事件还有3个：MouseDown、 MouseUp和MouseMove。工具箱中的大多数控件都能响应这3个事件。 MouseDown：鼠标的任一键被按下时触发该事件。 MouseUp：鼠标的任一键被释放时触发