Mega Code Archive

 

Categories / VB.Net / Data Types

 

Equals comparison for 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 = Pets.None Then            Console.WriteLine("The family has no pets.")         Else            Console.WriteLine("The family has pets.")            End If     End Sub  End Module