vba - Visual Basic：具有多个“级别”的 CallByName

Question

我已经为此工作了很长时间，但我仍然无法让我的代码运行。

我有一个名为的类Contact，它有一个只读属性Address。该类具有和之Address类的属性。现在我想像这样分配联系人的街道：StreetCity

CallByName(contact, "Address.Street", CallType.Set, new_street)

但我收到一条错误消息，说“Address.Street”不是Contact.

我需要通过其名称设置属性，所以

contact.Adress.Street = new_street

不是一种选择。

我怎样才能使上面的第一个例子工作？

Answer 1

CallByName打一个电话。你想做两个。

首先调用 getter：

Dim contactAddress As Address
Set contactAddress = CallByName(contact, "Address", CallType.Get)

然后，..那么没有理由CallByName分配Street属性值：

contactAddress.Street = new_street