class - 类 2 的 VBA Excel 属性作为类 1 的对象

Question

我正在努力使用 VBA 类模块使它工作

第一类模块是 tDate

'--- Class1 tDate
Public d as Integer
Public m as Integer
Public y as Integer
'--- some get/let properties for d,m,y

第二类模块是 tRate

'--- Class2 tRate
Public pDate1 as New tDate
Public dValue as Double
'--- Now i'm trying to code properties 

Public Property Get FirstDate() As tDate
    FirstDate = pDate1
End Property

Public Property Set FirstDate(vDate As tDate)
    pDate1 = vDate  ' <----  ???
End Property

在简单模块中，我有以下子类来测试类

Sub test()
    Dim myDate As New tDate 
    Dim r1 As New tRate

    myDate.SetDate "20/10/1996"

    r1.FirstDate = myDate ' <-----  "Compile error : Invalid use of property"
End Sub

将小型 class1 对象链接为较大 class2 的属性的最佳解决方案是什么？

谢谢!!尼古拉斯

---

使用 Set 解决的问题:

Public Property Get FirstDate() As tDate
    Set FirstDate = pDate1
End Property

Public Property Set FirstDate(vDate As tDate)
    Set pDate1 = vDate 
End Property

还有这里:

 Set r1.FirstDate = myDate

Answer 1

使用 Set 将对象分配给变量。

Set r1.FirstDate = myDate