propiedad Conjunto de clase de VBA con referencia a un objeto

Question

Tengo un módulo de clase, llamada Normal, en VBA con el siguiente código:

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 

Esta clase se utiliza el siguiente código:

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 

además, si se cambia el código en el módulo de clase a 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 

y la failin g línea a

Norm.SetLine(Line) 

Aparece el error "El objeto no admite esta propiedad o método". ¿Qué estoy haciendo exactamente mal en ambos casos?

Answer 1

Prueba esto:

Answer 2

Ambas propiedades deben tener "Ajuste" palabra clave

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

la instrucción SET se utiliza para hacer referencia de un objeto a una variable de objeto. No tiene que usar la palabra clave Set, si está tratando con tipos primitivos y nativos integrados como entero, doble, cadena, etc. Aquí se trata de un objeto de tipo LineElement.

Answer 4

probar este

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