把一个对象名赋值给一个字符型变量,如何通过该变量使用它所对应的对象。主要是考虑在对象不确定情况下的通用性,这个功能可能类似于VF的宏,有没有办法实现。
请知道的朋友帮助解答。

解决方案 »

  1.   

    将所有可能被用到的对象加入集合就可以了。
    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
      

  2.   

    如果最后需要 oObjects("cParent").Name
    那么在定义时,你即可以 oObjects.Add cParent, "cParent" 指定 "cParent" 与 cParent 对应,
    也可以 oObjects.Add cChild, "cParent" 指定 "cParent" 与 cChild 对应。所谓的变量就在于灵活性,只要符合一定规则,调用时是不用关心来源的。