「VB.NET」Select Caseで列挙型(enum)の値を判定する

書式
Select Case 条件式
Case Enum名.定数名

使用例

Module Module1
    '列挙型の定義
    Public Enum OPTYPE
        CREATE = 0 '作成
        UPDATE = 1 '更新
        DELETE = 2 '削除
        SEARCH = 3 '検索
    End Enum

    Sub Main()
        Dim res As String = "message"
        Dim tt As Integer
        tt = 3

        'Select Case処理
        Select Case tt
            '列挙型の項目の判定
            Case OPTYPE.CREATE
                res = "ユーザの作成 create操作"
            Case OPTYPE.UPDATE
                res = "ユーザの更新 update操作"
            Case OPTYPE.DELETE
                res = "ユーザの削除 delete操作"
            Case OPTYPE.SEARCH
                res = "ユーザーの検索 search操作"
        End Select

        Console.WriteLine(res)

        Console.ReadKey()
    End Sub
End Module

結果
ユーザーの検索 search操作

VB.net

Posted by arkgame