根据其他值将属性声明为不同的类

Question

我有：ClassUser、ClassClient、ClassPerson。

ClassUsser

• 公共属性名称为 String

ClassClient

• 公共属性名称为 String

ClassPerson

• 公共属性 KindPerson 作为整数
• 公共属性人为（ClassClient 或 ClassPerson）

我希望 delare Property Person 作为基于值的不同类型的类KindPerson。

Enum KindsPerson { 用户=1, Client=2}

首先，我会设置 KindPerson 的值，然后通过 set/get 方法获取 Person

我不知道在 VB 中是否可行。网。有什么办法可以做到这一点吗？

谢谢

Answer 1

您可以使用工厂模式：

Module Module1

  Sub Main()
    Dim p1 = Person.GetPerson(Person.PersonKind_ENUM.Client, "Adam")
    Dim p2 = Person.GetPerson(Person.PersonKind_ENUM.User, "Barbara")
    Dim personList As New List(Of Person)
    personList.Add(p1)
    personList.Add(p2)

    For Each p In personList
      Console.WriteLine($"{p.GetType.Name}: {p.name}")
    Next
    Console.ReadKey()

  End Sub

  Public Class User
    Inherits Person

  End Class

  Public Class Client
    Inherits Person

  End Class

  Public MustInherit Class Person
    Property Name As String
    Public Enum PersonKind_ENUM
      User
      Client
    End Enum
    Public Shared Function GetPerson(personKind As PersonKind_ENUM, name As String) As Person
      Select Case personKind
        Case PersonKind_ENUM.Client
          Return New Client() With {.Name = name}
        Case PersonKind_ENUM.User
          Return New User() With {.Name = name}
        Case Else
          Throw New InvalidOperationException
      End Select
    End Function
  End Class
End Module