关于类的问题
Class A:
=============================
Option Explicit
Public x As ClassB
Class B:
=============================
Option Explicit
Public strName As String
Form1
==============================
Dim A As New ClassA
Dim B As New ClassB
Private Sub Command1_Click()
B.strName = "abc "
Set A.x = B
MsgBox A.x.strName
B.strName = "new data "
MsgBox A.x.strName
End Sub
为什么A.x.strName不是原来的 abc 而是随着b.strName的改变而改变阿？
[解决办法]
类对象只能引用
classA
-----------------
public x as classB
public property set X(t as classB)
set x=new classB
x.strName=t.strName
end property
