摘　要：集合对象（Collection）是VB重要的特征，利用它可以对具有共同属性的对象进行操作访问。本文介绍了VB中的内部集合和自定义集合的应用，以及它与数组的异同。

　　关键词：Visual Basic 6.0 集合对象 应用　

　　Visual Basic提供一种很有用的数据集合对象(Collection)，它是由相关数据所构成的有序集，它可以使编程者对一组对象进行操作。Visual Basic本身含有一些内部集合，如Forms、Controls和Printers等，它们给出了工程中所有窗体、具体窗体中的所有控件以及Windows环境中的所有打印机的信息。如果要建立自己的集合，则需要使用Collection类。

　　1 对象变量的集合

　　对于对象变量可以理解为属于某种类型对象的集合，这个集合可以有很多对象，也可以只有一个，甚至可以是空集。在VB中可以用Set语句使一个对象变量指向一个具体的控件。

　　对于集合对象，其Count属性是一个非常重要的属性，利用这个属性可以对同一类对象的某一共同的属性进行访问和操作。如可以用以下的代码实现将项目中所有窗体上控件的字体的大小都设置成统一的格式，所有载入的窗体中的控件的字体都被指定为宋体，字号为16。

　　（1） 在项目中定义一标准模块

　　　　'定义两个全局变量
Global CtrFont As Control, Aform As Form
'定义一FontAllSame子过程
Sub FontAllSame()
　Dim i, j As Integer
　For i = 0 To Forms.Count - 1　　'Count属性是从0开始的整数
　　Set Aform = Forms(i)
　　For j = 0 To Aform.Controls.Count - 1　
　　　Set Font1 = Aform.Controls(j)
　　　CtrFont.FontName = "宋体"
　　　CtrFont.FontSize = 16
　　Next j
　Next i
End Sub