Mega Code Archive

 

Categories / VB.Net / Data Types

 

Or 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.HasFlag(Pets.Dog) Then            Console.WriteLine("The family has a dog.")         End If     End Sub  End Module