Mega Code Archive

 

Categories / VB.Net / Data Types

 

Flag Enum values

<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     Console.WriteLine("Pets: {0:G} ({0:D})", familyPets)     End Sub  End Module