列挙型(Enum)をループ処理する

カテゴリ: VB.NET
投稿日時:2008/12/15 13:20:08
列挙型をループ処理するには、以下のようにします。


Enum enmTest
    a
    b
    c
End Enum

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    '列挙型のループ処理
    For Each s As String In [Enum].GetNames(GetType(enmTest))
        Dim obj As enmTest = DirectCast([Enum].Parse(GetType(enmTest), s), enmTest)
        MessageBox.Show(String.Format("{0}:{1}", CInt(obj), s))
    Next
End Sub
このエントリーをはてなブックマークに追加


スポンサード リンク