与对象引用

Question

我有一个类模块，命名Normal，在VBA用下面的代码VBA类的设置属性：

Private mLine As LineElement 

Public Property Get Line() As LineElement 
    Line = mLine 
End Property 

Public Property Set Line(ByRef vLine As LineElement) 
    mLine = vLine 
End Property 

此类用于通过下面的代码：

Sub Run 
    Dim Line As LineElement 
    Set Line = New LineElement 

    Dim Norm As Normal 
    Set Norm = New Normal 
    Set Norm.Line = Line 'FAILS here with "Object Variable or With Block Variable not set"' 
End Sub 

另外，如果我将Normal班级模块中的代码更改为：

Private mLine As LineElement 

Public Property Get Line() As LineElement 
    Line = mLine 
End Property 

Public Sub SetLine(ByRef vLine As LineElement) 'changed from property to sub' 
    mLine = vLine 
End Property 

and failin g行到

Norm.SetLine(Line) 

我得到一个“对象不支持此属性或方法”错误。我在这两种情况下究竟做错了什么？

Answer 1

试试这个：

Answer 2

这两个属性必须有“设置”关键字

Private mLine As LineElement 

Public Property Get Line() As LineElement 
    Set Line = mLine 'Set keyword must be present 
End Property 

Public Property Set Line(vLine As LineElement) ' ByRef is the default in VBA 
    Set mLine = vLine 'Set keyword must be present 
End Property 

Answer 3

SET语句来创建对象的一个​​对象变量的引用。如果您正在处理原始和本机内置类型（如整数，双精度，字符串等），则不必使用Set关键字。这里你正在处理一个LineElement类型的对象。

Answer 4

试试这个

Private mLine As new LineElement 

Public Property Get Line() As LineElement 
    Set Line = mLine 
End Property 

Public Property Set Line(ByRef vLine As LineElement) 
    Set mLine = vLine 
End Property