Mega Code Archive

 

Categories / VB.Net / Data Types

 

Check flag Enum combination

<Flags> Public Enum Dinner As Integer    None = 0    Entree = 1    Appetizer = 2    Side = 4    Dessert = 8    Beverage = 16     BarBeverage = 32 End Enum Module Example    Public Sub Main()       Dim myOrder As Dinner = Dinner.Appetizer Or Dinner.Entree Or                                    Dinner.Beverage Or Dinner.Dessert       Dim flagValue As Dinner = Dinner.Entree Or Dinner.Beverage       Console.WriteLine("{0} includes {1}: {2}",                          myOrder, flagValue, myOrder.HasFlag(flagValue))    End Sub End Module