「VB.NET」Select Case文でEnum型の値を判定

2021年9月9日

書式
1.列挙型の定義
Public Enum 列挙名
定数1 値1
定数2 値2
xxx
End Enum
2.Select Case 表現式の値
Case 値1
処理コード

使用例

'列挙型enumOpの定義
Public Enum enumOP
    ADD
    MOV
    MODIFY
End Enum

Module ModuleTest
    Sub Main()
        '列挙型変数名ecの宣言
        Dim ec As enumOP
        ec = enumOP.MOV

        'Select Case文
        Select Case ec
            'enumOP.ADDの場合
            Case enumOP.ADD
                Console.WriteLine("ユーザを登録 111")
                'enumOP.MOVの場合
            Case enumOP.MOV
                Console.WriteLine("ユーザを移動 222")
                'enumOP.MODIFYの場合
            Case enumOP.MODIFY
                Console.WriteLine("ユーザを修正 333")
        End Select
        Console.ReadKey()

    End Sub

End Module

結果
ユーザを移動　222