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