Mega Code Archive

 

Categories / VB.Net / Data Types

 

Output the enum underline values

Enum BoilingPoints         Celsius = 100         Fahrenheit = 212     End Enum  Public Module Example    Public Sub Main()         Dim boiling As Type = GetType(BoilingPoints)         For Each s In  [Enum].GetNames(boiling)             Console.WriteLine("{0,-11} = {1}", s, [Enum].Format(boiling, [Enum].Parse(boiling, s), "d"))         Next s     End Sub  End Module