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

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

ツイート