比如想实现调用function.abc.string功能
如何弄?
我只会弄一个点的,如
set obj=new function()
obj.abc
但obj.abc.string更多个带点的,我不会弄,请求高手指导。

解决方案 »

  1.   

    类的聚合。
    新建两个类模块,代码分别如下:'Class1
    Public Abc As New Class2'Class2
    Public Value As String'Main Program
    Dim a As New Class1
    a.Abc.Value = "a"
      

  2.   

    class1:
      public a as longclass2:
      public TheCls1 as new class1
      public ....class3:
    publcic TheCls2 as new class2
    public....
    然后你就可以使用form_load
    dim x as class3
    set x=new x.class3
    dim a as long
    a=x.TheCls2.TheCls1.a
    debug.print a
    end sub
      

  3.   

    类中类,简单来说就是A类的某个属性的类型也是一个对象,例如B类,或者不确定的Object类型.