定位对象模型

一旦理解了如何使用部件提供的对象，就可以使用部件显露的任何对象了。部件可用的范围涵盖了从简单代码部件、ActiveX 控件到大型部件，例如，Microsoft Excel 和 Microsoft Data Access Object (DAO) 编程界面就显露了许多对象。

每一个对象都存在于部件的对象层次中的某处，可以用两种方法访问这些对象：

• 如果对象是外部可创建的，可以直接访问。
  
  
• 如果对象是从属对象，则间接访问。可以从部件的层次中较高层的另一对象中得到对它的引用。

定位对象层次的最佳方法是使用“对象浏览器”（如果部件提供一个对象库）。

定位对象层次

如所见到的那样，通过外部可创建对象设置对从属对象的引用，可以向下定位一个对象层次。还可以对集合对象使用一种方法来返回单独的对象。关于详细信息，请参阅“使用外部可创建对象和从属对象”。

图 10.3 显示在 Microsoft Excel 应用程序中对象定位路径。

图 10.3 使用集合向下定位 Microsoft Excel 对象层次

要向上定位，大多数应用程序使用 Parent 和 Application，如图 10.4 所示。

图10.4 使用 Parent 和 Application 属性向上定位 Microsoft Excel 对象层次

集合对象

集合对象是其它对象组的容器。这些对象提供了一个简易的方法来跟踪相同类型的一组对象。例如，可使用 Menus 集合对象来访问一个应用程序中全部 Menu 对象的集合。可以使用下列代码来引用当前装入 Microsoft Excel 中的全部工作簿：

Application.Workbooks

注意 Workbooks 是复数。因为集合对象的标准命名约定是：组成集合的对象类型的复数。使用 For Each 语句可以定位集合中的所有对象，如下所示：

Dim xlBook As Excel.Workbook
.
.
.
For Each xlBook In Application.Workbooks
   '显示每个工作簿名。
   MsgBox xlBook.FullName
Next xlBook

还可以通过名称或者通过它们在集合中的索引顺序引用在许多集合中的单独对象。下面的例子说明如何引用名为 "Normal"、"Example" 和 "Heading" 的 Style 对象：

xlBook.Styles("Normal")
xlBook.Styles("Example")
xlBook.Styles("Heading")

假设这些对象是 Styles 中的前三个对象，并且集合是基于零的，那么，就可以用下面的方法引用它们：

xlBook.Styles(1)      ' 引用 Normal Style 对象。
xlBook.Styles(2)      ' 引用 Example Style 对象。
xlBook.Styles(3)      ' 引用 Heading Style 对象。

详细信息 关于操作集合对象的更详细的信息，请参阅“用对象编程”。