Me in a Property

[tiredofit]

According to this article:

https://renenyffenegger.ch/notes/development/languages/VBA/language/classes/index

it states:

  ' Apparently, the »me« keyword cannot be used  ' in member subs and member functions …

So I experimented by adding Me in a Property.

This is in Class1:

Option Explicit

Private pName As String

Public Property Get Name() As String

    Name = pName

End Property

Public Property Let Name(ByVal vNewValue As String)

    pName = vNewValue

End Property

Private Sub Class_Initialize()

    Name = "Some name"

End Sub

This is in a standard module:

Option Explicit

Sub Start()

    Dim j As Class1
    Set j = New Class1

    MsgBox j.Name

End Sub

The above displays a message box with the string "Some name", as expected.

However, if the Let Property was changed to:

Public Property Get Name() As String

    Me.Name = pName

End Property

the message box displays an empty string.

Stepping into the code, I noticed when I get to this line (in the original):

MsgBox j.Name

it jumps to here:

Public Property Get Name() As String

    Name = pName

End Property

then the message box shows the correct string.

However, stepping through the second scenario, the code again hits the Get Property but immediately after, it goes to the Let Property before displaying the message box (and an empty string).

Why is that?

Thanks

 

[GWteB]

The value of your custom made "Name" property can be read due to the GET procedure (by retreiving the value from a private variable within the class module) and can be assigned with another value due to the LET procedure (by storing the new value in the private variable within the class module). "Me" always refers to the class module, so with the "Me" as a prefix, telling VBA to assign a value to Me.Name, you're enforcing to assign a new value to your own custom made property (within the same class), therefore launching the LET procedure.

 

[tiredofit]

The value of your custom made "Name" property can be read due to the GET procedure (by retreiving the value from a private variable within the class module) and can be assigned with another value due to the LET procedure (by storing the new value in the private variable within the class module). "Me" always refers to the class module, so with the "Me" as a prefix, telling VBA to assign a value to Me.Name, you're enforcing to assign a new value to your own custom made property (within the same class), therefore launching the LET procedure.

Thanks for your explanation.

 

[GWteB]

You're welcome