|
Module MyModule
' ********************************************************
' * 列挙体の定数名と値を全て取得
' ********************************************************
Sub Main()
' Enum 構造体の GetNames メソッドで文字列名称を配列にセット
Dim colorNames As String() = ConsoleColor.GetNames(GetType(ConsoleColor))
Dim x As Integer
For x = 0 To colorNames.Length - 1
' 列挙体に定義されている文字列名称を実際の列挙定数に変換して、
' さらに、本来の整数にキャストして名前と値を並べて表示する
Console.WriteLine("{0} : {1}", _
colorNames(x), _
CType(System.Enum.Parse(GetType(ConsoleColor),colorNames(x)), Integer) _
)
Next
End Sub
End Module
| |