Question

How to use enum in VB.NET

Answer 1

Imports System

Public Class Program
    Enum Lang
		VBNET
        Java
        C
        Python
    End Enum

	Public Shared Sub Main()
        Dim value As Lang = Lang.VBNET

        If value = Lang.VBNET Then
            Console.WriteLine(True)
        End If
    End Sub
End Class



' run:
'
' True
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System
 
Public Class Program
    Enum Lang
        VBNET
        Java
        C
        Python
    End Enum
 
    Public Shared Sub Main()
        Dim s As String = "VBNET"
        Dim result As Lang = [Enum].Parse(GetType(Lang), s) 
             
        Console.WriteLine(result)
    End Sub
End Class
 
 
 
' run:
'
' 0
'

 

70+ SQL courses for beginners and professionals

Answer 3

Imports System

Enum Color
    Black = 0
    Red = 127
    Green = 201
    Blue = 255
End Enum

Public Class Program
	Public Shared Sub Main()
        Console.WriteLine("COLOR: {0} {1}", Color.Blue, CInt(Color.Blue))
    End Sub
End Class







' run:
'
' COLOR: Blue 255
'

 

70+ SQL courses for beginners and professionals

Answer 4

Imports System

Public Class Program
    Enum Lang
		VBNET
        Java
        C
        Python
    End Enum

	Public Shared Sub Main()
        Dim value As Lang = Lang.VBNET
		
        Console.WriteLine(value)
    End Sub
End Class







' run:
'
' 0
'

 

70+ SQL courses for beginners and professionals

Answer 5

Imports System

Public Class Program
    Enum Lang
        CSharp
        VBNET
        Java
        C
        Python
    End Enum

	Public Shared Sub Main()
        Dim value As Lang = Lang.Java

        Select Case value
            Case Lang.CSharp, Lang.VBNET
                Console.WriteLine("CSharp & VBNET")
                Exit Select
            Case Lang.Java
                Console.WriteLine("Java")
                Exit Select
            Case Else
                Console.WriteLine("default")
                Exit Select
        End Select
    End Sub
End Class








' run:
'
' Java
'

 

70+ SQL courses for beginners and professionals

Answer 6

Imports System

Enum Lang
    None
    CSharp
    VBNET
    Java
    C
    Python
End Enum

Public Class Program
    Shared value As Lang

    Public Shared Sub Main()
        Console.WriteLine("Default enum value: {0}", value)
		
        value = Lang.C
		
        Console.WriteLine(value)
    End Sub
End Class






' run:
'
' efault enum value: None
' 4
'

 

70+ SQL courses for beginners and professionals

Answer 7

Imports System
Imports System.Collections.Generic

Public Class Program
    Enum Lang
        None
        CSharp
        VBNET
        Java
        C
        Python
    End Enum

	Public Shared Sub Main()
        Dim stack = New Stack(Of Lang)()
		
        stack.Push(Lang.VBNET)
        stack.Push(Lang.C)
        stack.Push(Lang.Python)
        stack.Push(Lang.Java)

        For Each item As Object In stack
            Console.WriteLine(item)
        Next

        Console.WriteLine()
        Dim l As Lang = stack.Pop()
        Console.WriteLine("Pop: " & l)
	
        Dim p = stack.Peek()
        Console.WriteLine("Peek: " & p)
    
		Console.WriteLine()
        For Each item As Object In stack
            Console.WriteLine(item)
        Next
    End Sub
End Class







' run:
'
' Java
' Python
' C
' VBNET
' 
' Pop: 3
' Peek: 5
' 
' Python
' C
' VBNET
'

 

70+ SQL courses for beginners and professionals

Answer 8

Imports System

Public Class Program

	Enum Test
        VB = 0
        CSharp = 1
        CPP = 2
        Java = 3
    End Enum

    Public Shared Sub Main(ByVal args As String())
        Dim e As Test = Test.CSharp
 
        If e = Test.VB Then
            Console.WriteLine("VB")
        ElseIf e = Test.CSharp Then
            Console.WriteLine("CSharp")
        End If
    End Sub
End Class



' run:
'
' CSharp
'

 

70+ SQL courses for beginners and professionals

Answer 9

Imports System

Public Class Program

	Enum Test
        VB = 0
        CSharp = 1
        CPP = 2
        Java = 3
    End Enum

    Public Shared Sub Main(ByVal args As String())
        Dim e As Test = Test.VB
 
        Select Case e
            Case Test.VB
                Console.WriteLine(Test.VB)
                Console.WriteLine(Test.VB.ToString)
                Return
            Case Test.CSharp
                Console.WriteLine(Test.CSharp)
                Console.WriteLine(Test.CSharp.ToString)
                Return
            Case Test.CPP
                Console.WriteLine(Test.CPP)
                Console.WriteLine(Test.CPP.ToString)
                Exit Select
        End Select
    End Sub
End Class
	
	
' run:
'
' 0
' VB
'

 

70+ SQL courses for beginners and professionals

Answer 10

Imports System

Public Class Program

	Enum Test
        VB
        CSharp = 3
        CPP
        Java = 7
        Python
    End Enum

    Public Shared Sub Main(ByVal args As String())
        Dim e As Test = Test.CPP
 
        Select Case e
            Case Test.VB
                Console.WriteLine(Test.VB)
                Console.WriteLine(Test.VB.ToString)
                Return
            Case Test.CPP
                Console.WriteLine(Test.CPP)
                Console.WriteLine(Test.CPP.ToString)
                Return
            Case Test.Python
                Console.WriteLine(Test.Python)
                Console.WriteLine(Test.Python.ToString)
                Exit Select
        End Select
    End Sub
End Class
	

	
' run:
'
' 4
' CPP
'

 

70+ SQL courses for beginners and professionals