Mega Code Archive

 

Categories / VB.Net / Data Types

 

And Operation on Flag enum value

<Flags> Public Enum Pets As Integer    None = 0    Dog = 1    Cat = 2    Bird = 4    Rodent = 8    Reptile = 16    Other = 32 End Enum Public Module Example    Public Sub Main()         Dim familyPets As Pets = Pets.Dog Or Pets.Cat         If familyPets And Pets.Dog = Pets.Dog Then            Console.WriteLine("The family has a dog.")         End If        End Sub  End Module