5.5    控件数组

1．控件数组的概念

　　控件数组是由一组相同类型的控件组成的，它们共用一个控件名，具有相同的数组。控件数组适用于若干个控件执行的操作相似的场合，控件组共享同样的事件过程。控件数组通过索引号（属性中的Index）来标识各控件，第一个下标是0 。如：Text1(0)、Text1(1)、Text1(2)、Text1(3)……

2．控件数组的建立

（1）在设计时建立
　　 步骤：1）在窗体上画出某控件，并进行属性设置。
　　　　　 2）选中该控件进行“复制”和“粘贴”操作，系统提示“是否建立控件数组”，选择是即可。多次粘贴就可以创建多个控件元素。
　　　　　 3）进行事件过程的编程。

（2）运行时添加控件数组

　　方法：1）在窗体上画出某控件，设置该控件的Index值为0，表示该控件为数组。
　　　　　 2）在编程时通过Load方法添加其余若干个元素，也可以通过Unload删除某个添加的元素。
　　　　　 3）每个添加的控件数组通过Left 和Top属性，确定其在窗体上的位置，并将Visible设置为True。

　　使用示例：建立一个类似国际象棋的棋盘，要求黑白交替，运行时单击某个棋格，会改变颜色并显示其序号。

5.6    自定义数据类型

1. 自定义数据类型的定义

　　　是指由若干标准数据类型组成的一种复合类型，也称为记录类型。

（1）定义方式：

　　Type 自定义类型名
　　　　 元素名[（下标）]  As 类型名
　　　　　 ……
　　　　 元素名[（下标）]  As 类型名
　 End Type

　　　元素名：表示自定义类型中的一个成员
　　 下标（可选）：表示是数组，
　　 类型名：为标准类型

　　例：定义一个学生信息的自定义类型：
　　　 Type studtype
　　　 　　No   As  Integer        ' 定义学号
　　　　　 Name  As  String*10    ' 定义姓名
　　　 　　Sex  As  String*2       ' 定义性别
　　　 　　Mark(1 TO 4) As Single   ' 定义4门课程的成绩
　　　　　 Total As Single           ' 定义总分
　　　 End Type

（2）注意事项

　　1）自定义类型一般在标准模块（.bas）中定义，默认是Public
　　2）自定义类型中的元素可以是字符串,但应是定长字符串
　　3)  不可把自定义类型名与该类型的变量名混淆
　4) 注意自定义类型变量与数组的差别：它们都由若干元素组成，前者的元素代表不同性质、不同类型的数据，以元素名表示不同的元素；后者存放的是同种性质、同种类型的数据，以下标表示不同元素。

2. 自定义型变量的声明和使用

　　　使用形式： Dim 变量名  As  自定义类型名
　　 例如： Dim  student As studtype,  mystud  As studtype
　 　自定义类型中元素的表示方法是：变量名 . 元素名  如：student.name  student.mark(4)
　　为了简单起见，可以用With …… End With 语句进行简化。 例：
　　　 With  student
　　　　 .no=99001
　　　　 .name=""
　　　　 .sex=""
　　　　 .total=0
　　　　　 for I=1 to 4
　　　　 .mark(I)=int(rnd*101)     '随机产生0 - 100之间的分数
　　　　 .total=.total+.may(I)
　　　 next I
　　　 End With
　　　 Mystud=student      ' 同种自定义类型变量可以直接赋值

3.自定义类型数组的使用

　　　自定义类型数组就是数组中的每个元素都是自定义类型。
　　 例如：自定义一个由学生姓名、成绩组成的学生记录类型，用来存放100个学生的记录。

上一页  [1] [2] [3] [4]