更好的 oop 实践：类函数的参数

Question

假设我有一个这样的类：它有一个name 和surname 作为属性和一个msgboxes 数据的函数。我应该使用这个函数的第一个变体还是第二个？

Private name As String
Private surname As String

Function do_something_1() As String
     MsgBox("Hello, " & name & " " & surname)
     do_something_1 = name & " " & surname
End Function

Function do_something_2(name As String, surname As String) As String
     MsgBox("Hello, " & name & " " & surname)
     do_something_2 = name & " " & surname
End Function

如果是第二个函数，name 和 surname 参数是否会重载类属性？假设类属性是John 和Green，而函数是用Jack 和Black 调用的，哪个会被msgboxed？

编辑：我知道在第一个版本中，属性也可以通过 getter 访问，但我不想在这里使用它。

Answer 1

这是代码与属性的外观（如 cmets 中所述）。该类名为clsHuman。

Option Explicit

Private m_sName As String
Private m_sSurname As String

Public Property Get Name() As String

    Name = m_sName

End Property

Public Property Get Surname() As String

    Surname = m_sSurname

End Property

Public Property Let Surname(ByVal sNewValue As String)

    m_sSurname = sNewValue

End Property

Public Property Let Name(ByVal sNewValue As String)

    m_sName = sNewValue

End Property

Function do_something_1() As String

    MsgBox ("Hello, " & Name & " " & Surname)
    do_something_1 = Name & " " & Surname

End Function

Function do_something_2(myName As String, mySurname As String) As String

    MsgBox ("Hello, " & myName & " " & mySurname)
    do_something_2 = myName & " " & mySurname

End Function

一旦你有了这个类，你就可以从这样的模块中调用它：

Option Explicit

Public Sub TestMe()

    Dim objHuman As New clsHuman

    objHuman.Name = "Vit"
    objHuman.Surname = "yata"

    Debug.Print objHuman.do_something_1
    Debug.Print objHuman.do_something_2("V", "D")

End Sub

如您所见，do_something_1 显示带有类中对象名称的 msgbox，do_something_2 显示带有参数的 msgbox。

编辑： 关于这个问题： 假设类属性是 John 和 Green，而函数是用 Jack 和 Black 调用的，哪个会被 msgboxed？ 答案是 Jack 和 Black。但属性将保留 John 和 Green。