Добавить метод к свойству класса

Question

Я запутался. Я новичок в классах VBA. Я хочу добавить несколько методов к свойству класса или добавить свойства к другому свойству. Возможно, у меня нет правильной терминологии?

Я могу добавить одно свойство, но хочу углубиться в детали.

Например, если я делаю классного человека:

PersonClass.Features.Hair.Texture.Color
PersonClass.Features.Hair.Texture.Style
PersonClass.Features.Hair.Length

Я не знаю, как go об этом.

например,

MyClass.MyProperty.MyMethod1
MyClass.MyProperty.MyMethod2
MyClass.MyProperty.MyMethod3

или

MyClass.MyProperty.MyMethod1.MyMethod2

Answer 1

Вот пример, иллюстрирующий концепции, упомянутые в комментариях:

Основная форма

Option Explicit

Private Sub Form_Load()
   Dim p As Person
   Set p = New Person
   p.Features.Hair = "Red"
   MsgBox p.Features.Hair
End Sub

Класс человека

Option Explicit

Private m_Features As Features

Private Sub Class_Initialize()
   Set m_Features = New Features
End Sub

Public Property Get Features() As Features
   Set Features = m_Features
End Property

Класс функций

Option Explicit

Private m_Hair As String  'this would actually be another class
                          'in your example

Public Property Get Hair() As String
   Hair = m_Hair
End Property

Public Property Let Hair(ByVal Value As String)
   m_Hair = Value
End Property