「VB.NET」For文で列挙型(enum)の名称と値を取得する

構文
1.列挙型の名称を取得します
[Enum].GetNames(GetType(列挙名))
GetNamesメソッドは、定数の名前を取得します。
2.列挙型の値を取得します。
[Enum].GetValues(GetType(列挙名)
GetValuesメソッドは、定数の値を取得します。
使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Public Enum City
TOKYO
OOSAKA
FUKUOKA
YOKOHAMA
End Enum
Module Module1
Public Sub Main()
Console.WriteLine("GetNamesメソッドで定数の名前を取得する結果")
For Each st In [Enum].GetNames(GetType(City)) 'GetNamesメソッド
Console.WriteLine(st)
Next
Dim i As Integer
Console.WriteLine("GetValuesメソッドで定数の値を取得する結果")
For Each i In [Enum].GetValues(GetType(City)) 'GetValuesメソッド
Console.WriteLine(i)
Next
Console.ReadKey()
End Sub
End Module
Public Enum City TOKYO OOSAKA FUKUOKA YOKOHAMA End Enum Module Module1 Public Sub Main() Console.WriteLine("GetNamesメソッドで定数の名前を取得する結果") For Each st In [Enum].GetNames(GetType(City)) 'GetNamesメソッド Console.WriteLine(st) Next Dim i As Integer Console.WriteLine("GetValuesメソッドで定数の値を取得する結果") For Each i In [Enum].GetValues(GetType(City)) 'GetValuesメソッド Console.WriteLine(i) Next Console.ReadKey() End Sub End Module
Public Enum City
    TOKYO
    OOSAKA
    FUKUOKA
    YOKOHAMA
End Enum

Module Module1
    Public Sub Main()

        Console.WriteLine("GetNamesメソッドで定数の名前を取得する結果")
        For Each st In [Enum].GetNames(GetType(City)) 'GetNamesメソッド
            Console.WriteLine(st)
        Next

        Dim i As Integer
        Console.WriteLine("GetValuesメソッドで定数の値を取得する結果")
        For Each i In [Enum].GetValues(GetType(City)) 'GetValuesメソッド
            Console.WriteLine(i)
        Next

        Console.ReadKey()

    End Sub

End Module

実行結果

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
GetNamesメソッドで定数の名前を取得する結果
TOKYO
OOSAKA
FUKUOKA
YOKOHAMA
GetValuesメソッドで定数の値を取得する結果
0
1
2
3
GetNamesメソッドで定数の名前を取得する結果 TOKYO OOSAKA FUKUOKA YOKOHAMA GetValuesメソッドで定数の値を取得する結果 0 1 2 3
GetNamesメソッドで定数の名前を取得する結果
TOKYO
OOSAKA
FUKUOKA
YOKOHAMA
GetValuesメソッドで定数の値を取得する結果
0
1
2
3

 

VB.net

Posted by arkgame