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