How to use Bitwise in Vb.Net

admin — Mon, 08 Aug 2011 07:11:31 +0000

    Enum eStatusNumber
        One = 1
        Two = 2
        Three = 4
        Four = 16
        Five = 32
    End Enum

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Test(eStatusNumber.Five Or eStatusNumber.Three)
    End Sub

    Private Sub Test(ByVal com As eStatusNumber)
        If (com And eStatusNumber.One) = eStatusNumber.One Then
            MsgBox("One")
        End If
        If (com And eStatusNumber.Two) = eStatusNumber.Two Then
            MsgBox("Two")
        End If

        If (com And eStatusNumber.Three) = eStatusNumber.Three Then
            MsgBox("Three")
        End If
        If (com And eStatusNumber.Four) = eStatusNumber.Four Then
            MsgBox("Four")
        End If

        If (com And eStatusNumber.Five) = eStatusNumber.Five Then
            MsgBox("Five")
        End If

    End Sub

VB.Net code can be downloaded here "EnumBitWise Sample".

Reference 1

Reference 2

Powertips » Enum

How to use Bitwise in Vb.Net