属性集重载数组与非数组

Question

我正在尝试创建一个属性，允许根据各种输入设置姓氏。调用此函数的代码正在解析名称字段。在某些情况下，它有一个姓氏，而在其他情况下，它有一个需要连接的姓氏数组。我想将串联代码保存在一个位置以便于维护。

这是我的代码，当然不起作用：

        Public Property LastName() As String
        Get
            Return _LastName
        End Get
        Set(ByVal value As String)
            _LastName = value
        End Set
    End Property

    Public WriteOnly Property LastName() As String()
        Set(ByVal value As String())
            For Each word As String In value
                _LastName &= word & " "
            Next

            _LastName = _LastName.Trim
        End Set
    End Property

我已经尝试了多种变体，甚至将多个 Set 放在同一个属性中，但似乎没有任何效果。必须有某种方法来获取数组和单个实例值。编译器清楚地知道传入的对象是否是数组。

我尝试仅使用 String() 类型的属性，但无法返回字符串。我能想到的唯一解决方案是使用不同名称的属性，这使得使用类变得更加困难，或者一大堆 Subs 和 Functions 相互重载。

建议？

克里斯

Answer 1

您不能重载属性，因此属性可以是 string 或 string()，但不能同时使用两者。

考虑为 string() 属性使用不同的名称：

Public WriteOnly Property LastNameArray() As String()
    Set(ByVal value As String())
        For Each word As String In value
            _LastName &= word & " "
        Next

        _LastName = _LastName.Trim
    End Set
End Property

Answer 2

如果您的输出与输入的类型不同，则不能为其使用属性。使用函数并没有什么问题，好的做法是你有函数名称 (LastName)，并在其前面添加一个动词 (Get)，所以你最终会得到一个类似 GetLastName 的函数。

Public  Function GetLastName(ByVal names As String()) As String

（如果有什么明显的错误，请原谅我生锈的 VB）

Answer 3

像这样的事情怎么样：

        Public Property LastName() As Object
        Get
            Return _LastName
        End Get
        Set(ByVal value As Object)
            If TypeOf (value) Is Array Then
                For Each word As String In value
                    _LastName &= word & " "
                Next

                _LastName = _LastName.Trim

            End If
            If TypeOf (value) Is String Then
                _LastName = value
            End If
        End Set
    End Property

有人认为这有问题吗？