vba - 从一个对象访问另一个对象的属性

Question

我是面向对象编程的新手。我在类模块中有两个类:

A类

Public Time As Double

B类

Public Sub Progress()
    ClassAObject.Time = 5
End Sub

这是子例程中运行的代码

Public Sub Progressing()
    Dim ClassAObject As New ClassA
    Dim ClassBObject As New ClassB
    Call ClassBObject.Progress
End Sub

子例程ClassBObject.Progress似乎无法访问ObjectA。我认为我引用该对象的方式可能是错误的。我该如何解决这个问题？

Answer 1

B 类不知道 A 类。有很多方法可以做到这一点，但一种方法是让 .Progress() 子程序接受输入。

A类代码:

Public Time As Double

B类代码:

Public Sub Progress(ClassAObject As ClassA)
    'Assuming that you have a .Time property in ClassAObject
    ClassAObject.Time = 5
End Sub

主要代码:

Sub Main()
    Dim ClassAObject As New ClassA
    Dim ClassBObject As New ClassB
    ClassBObject.Progress ClassAObject
End Sub