在VB.Net中定义字符串ENUM

我正在为我的项目使用Window应用程序。有情况我需要定义字符串枚举并在我的项目中使用它。

即

Dim PersonalInfo As String = "Personal Info"
Dim Contanct As String = "Personal Contanct"

    Public Enum Test
        PersonalInfo
        Contanct
    End Enum

现在我想要将该变量PersonalInfo和Contract作为“个人信息”和“个人连接”的价值。

如何使用ENUM获取此值？或任何其他方式来做到这一点。

提前致谢…

你可以创建一个新的类型

''' <completionlist cref="Test"/>
Class Test

    Private Key As String

    Public Shared ReadOnly Contact  As Test = New Test("Personal Contanct")
    Public Shared ReadOnly PersonalInfo As Test = New Test("Personal Info")

    Private Sub New(key as String)
        Me.Key = key
    End Sub

    Public Overrides Function ToString() As String
        Return Me.Key
    End Function
End Class

当你使用它，它看起来像一个枚举：

Sub Main

    DoSomething(Test.Contact)
    DoSomething(Test.PersonalInfo)

End Sub

Sub DoSomething(test As Test)
    Console.WriteLine(test.ToString())
End Sub

输出：

Personal Contanct Personal Info