Question

How to enumeration (enum) and select case in VB.NET

Answer 1

Module Module1
 
    Enum Color
        RED
        GREEN
        BLUE
    End Enum
 
    Sub Main()
 
        Dim c As Color = Color.GREEN
 
        Select Case c
            Case Color.RED
                Console.WriteLine("RED")
                Return
            Case Color.GREEN
                Console.WriteLine("GREEN")
                Return
            Case Color.BLUE
                Console.WriteLine("BLUE")
                Exit Select
             Case Else
                Console.WriteLine("Else")
                Exit Select
        End Select
 
    End Sub
 
End Module

 
' run:
' 
' GREEN

 

70+ SQL courses for beginners and professionals