SUB房产

Question

我有一个名为cTask用下面的代码在它模块：

Private pMile As String 

Public Property Get Mile() As String 
Mile = pMile 
End Property 

Public Property Let Mile(Value As String) 
pMile = Value 
End Property 

所以在我的子可以说我发起

dim currtask as cTask 

我还想写

curtask.Mile=TIM 

也

curtask.Mile.stat=2 

就像

worksook("qqq").sheets("okko").cells(1,1)... 

我怎么做我班上嵌套的属性？

编辑： 名为cTask

Private pMile As cMile 
Public Property Get Mile() As String 
Mile = pMile 
End Property 

Public Property Let Mile(Value As String) 
pMile = Value 
End Property 

一个类，并在类cMile我

Private pstatus As String 

Public Property Get status() As String 
status = ppstatus 
End Property 

Public Property Let status(Value As String) 
pstatus = Value 
End Property 

然后在我的子我要做的就是等有申报

dim curtask as cTask 

它是否正确？它不工作，所以我一定是错过了一些东西

Answer 1

示例实现嵌套的对象

的

cTask：

Private pMile As cMile 

Public Property Get Mile() As cMile 
    Set Mile = pMile 
End Property 

Public Property Set Mile(Value As cMile) 
    Set pMile = Value 
End Property 

Private Sub Class_Initialize() 
    Set Me.Mile = New cMile 
End Sub 

---

cMile：

Private pStatus As String 
Private pNumber As Long 

Public Property Get Status() As String 
    Status = pStatus 
End Property 

Public Property Let Status(Value As String) 
    pStatus = Value 
End Property 

Public Property Get Number() As Long 
    Number = pNumber 
End Property 

Public Property Let Number(Value As Long) 
    pNumber = Value 
End Property 

---

常规模块：

Sub Tester() 

    Dim Task As New cTask 

    Task.Mile.Status = "Done" 
    Task.Mile.Number = 11 

    Debug.Print Task.Mile.Status, Task.Mile.Number 

End Sub 

---

什么是从你原来的问题缺少的是这样的：

curtask.Mile=TIM 

目前尚不清楚，你这个是什么意思：它看起来像在cMile类中的“默认属性”，但在VBA中并没有真正支持（或者至少不太容易）。