String和enum的互相转换
Module Module1
Public Enum BookType
Ticket
Trip
Hotel
End Enum
Sub Main()
'String to Enum
Dim type As BookType = DirectCast([Enum].Parse(GetType(BookType), "Ticket"), BookType)
'Enum to String
Dim typeName As String
typeName = type.ToString
Console.WriteLine(typeName)
If type.Equals(BookType.Ticket) Then
typeName = [Enum].GetName(GetType(BookType), BookType.Ticket)
Console.WriteLine(typeName)
End If
Console.ReadLine()
End Sub
End Module
Public Enum BookType
Ticket
Trip
Hotel
End Enum
Sub Main()
'String to Enum
Dim type As BookType = DirectCast([Enum].Parse(GetType(BookType), "Ticket"), BookType)
'Enum to String
Dim typeName As String
typeName = type.ToString
Console.WriteLine(typeName)
If type.Equals(BookType.Ticket) Then
typeName = [Enum].GetName(GetType(BookType), BookType.Ticket)
Console.WriteLine(typeName)
End If
Console.ReadLine()
End Sub
End Module
本作品采用 知识共享署名-非商业性使用 2.5 中国大陆许可协议进行许可。 |