vb6 - 为什么要在 VB6 中同时声明 Let 和 Set 属性访问器

Question

在一个较旧的项目中，我发现类模块中的属性声明如下所示...

Public Property Get DrawObject() As Object
    Set DrawObject = m_obj
End Property
Public Property Let DrawObject(obj As Object)
    Set m_obj = obj
    Draw
End Property
Public Property Set DrawObject(obj As Object)
    Set m_obj = obj
    Draw
End Property

我想知道为什么 DrawObject 属性同时定义了 Let 和 Set 访问器；这种声明的目的是什么？

Answer 1

唯一的原因是允许/支持两种赋值语法:

set instance.DrawObject = obj

和

instance.DrawObject = obj