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