将所有可能被用到的对象加入集合就可以了。 dim oObjects as collection dim cParent as parent, cChild as child ... set oObjects = new collection oObjects.Add cParent, "cParent" oObjects.Add cChild, "cChild" ... '按名称调用 debug.print oObjects("cParent").Name debug.print oObjects("cChild").Name
dim oObjects as collection
dim cParent as parent, cChild as child
...
set oObjects = new collection
oObjects.Add cParent, "cParent"
oObjects.Add cChild, "cChild"
...
'按名称调用
debug.print oObjects("cParent").Name
debug.print oObjects("cChild").Name
那么在定义时,你即可以 oObjects.Add cParent, "cParent" 指定 "cParent" 与 cParent 对应,
也可以 oObjects.Add cChild, "cParent" 指定 "cParent" 与 cChild 对应。所谓的变量就在于灵活性,只要符合一定规则,调用时是不用关心来源的。