×
[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
区分データ等のソース上の既読性をアップする場合や、間違いを無くする場合に列挙体(Enum)を用います。
列挙体(Enum)の宣言は以下の様になります。 Enum 宣言の中のメンバーは値を指定しなくても、０からの値が割り振られます。 また、メンバーの値を"="イコールで定義すればその値となりますが、それ以降の値の定義されていないものは1加算された値が定義されます。
以下のソースでは、メンバー値を明示的に定義しない場合と、定義した場合の例を示します。
列挙体(Enum)の宣言
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | 'メンバ（定数）の値を定義しない場合のEnumEnum TestEnum1 Japan USA China Korea OtherEnd Enum'メンバ（定数）の値を定義する場合のEnumEnum TestEnum2 Japan = 100 USA China Korea = 1000 OtherEnd Enum |
TestEnum1 では「Japan」が「0」の値で、以下「USA」「China」「Korea」「Other」は順に「1」「2」「3」「4」の値となります。 また、TestEnum2 では「Japan」が「100」の値で、順に「101」「102」「1000」「1001」の値となります。
実際にプログラムで列挙体(Enum)のメンバー名とその値を列挙する方法を以下に示します。
以下のソースでは、 Enum.GetValues メソッドを用いることで、指定した列挙体に含まれている定数の値の配列が 返されます。 Enum.GetValues メソッドでは指定した値を持つ指定した列挙体にある定数の名前を取得します。
Enumのメンバ名と値を表示
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | 'Enumのメンバ名と値を表示するテストPrivate Sub EnumTest_Click(sender As Object, e As EventArgs) Handles EnumTest.Click 'TestEnum1のメンバの値を列挙 Dim Enum1Val As TestEnum1 Dim strMsg As String = "" For Each Enum1Val In [Enum].GetValues(GetType(TestEnum1)) 'メンバ名を取得する Dim strName As String = [Enum].GetName(GetType(TestEnum1), Enum1Val) 'メンバの値と名前を表示する strMsg &= String.Format("{0} = {1}", strName, CInt(Enum1Val)) & vbCrLf Next MsgBox("TestEnum1:" & vbCrLf & strMsg) 'TestEnum2のメンバの値を列挙 Dim Enum2Val As TestEnum1 strMsg = "" For Each Enum2Val In [Enum].GetValues(GetType(TestEnum2)) 'メンバ名を取得する Dim strName As String = [Enum].GetName(GetType(TestEnum2), Enum2Val) 'メンバの値と名前を表示する strMsg &= String.Format("{0} = {1}", strName, CInt(Enum2Val)) & vbCrLf Next MsgBox("TestEnum2:" & vbCrLf & strMsg) Enum2Val = TestEnum2.OtherEnd Sub |
尚、Enumには同じ値のものを別のメンバー名で定義することが可能ですが、 同じ値のメンバーがある場合は、注意が必要だと思います。 （プログラム上、必要になることもありますので、制限は必要無いとは思います）
列挙体(Enum)の宣言その２
1 2 3 4 5 6 7 8 | 'メンバ（定数）の値を定義する場合のEnum：２Enum TestEnum2 Japan = 100 USA China Korea = 1000 Other = 1000 '同じ値で「Other」を宣言するEnd Enum |
おすすめ本
コメント