Imports System

Imports System.Collections.Generic

Imports System.Linq

​

Public Class Program

    Public Shared Sub Main()

        Console.WriteLine("By Text:")

        Console.WriteLine(BoolEnum.TrySelect("Is True", BoolEnum.[False]).ToString())

        Console.WriteLine(BoolEnum.TrySelect("Is Yo", BoolEnum.[False]).ToString())

        Console.WriteLine(BoolEnum.TrySelect("Is False", BoolEnum.[True]).ToString())

        Console.WriteLine([String].Empty)

​

        Console.WriteLine("By Integer:")

        Console.WriteLine(BoolEnum.TrySelect(1, BoolEnum.[False]).ToString())

        Console.WriteLine(BoolEnum.TrySelect(0, BoolEnum.[True]).ToString())

        Console.WriteLine(BoolEnum.TrySelect(11, BoolEnum.[False]).ToString())

        Console.WriteLine([String].Empty)

​

        Console.WriteLine("By Boolean:")

        Console.WriteLine(BoolEnum.TrySelect(True, BoolEnum.[False]).ToString())

        Console.WriteLine(BoolEnum.TrySelect(False, BoolEnum.[True]).ToString())

        Console.WriteLine([String].Empty)

​

​

    End Sub

End Class

​

Public Class BoolEnum

    Private Shared allValuesByNaturalValue As New Dictionary(Of Boolean, BoolEnum)()

    Private Shared allValuesByTextValue As New Dictionary(Of String, BoolEnum)()

    Private Shared allValuesByInteger As New Dictionary(Of Integer, BoolEnum)()

​

    Private m_boolText As String

    Private m_integerValue As Integer

    Private m_naturalValue As Boolean

​

    Public Shared ReadOnly [True] As New BoolEnum(True, "Is True", 1)

    Public Shared ReadOnly [False] As New BoolEnum(False, "Is False", 0)

​

    Private Sub New(naturalValue As Boolean, boolText As String, integerValue As Integer)

        Me.m_naturalValue = naturalValue

        Me.m_boolText = boolText

        Me.m_integerValue = integerValue

        allValuesByNaturalValue.Add(naturalValue, Me)

        allValuesByTextValue.Add(boolText, Me)

        allValuesByInteger.Add(integerValue, Me)

    End Sub

​

    Public Shared Function TrySelect(naturalValue As Boolean, defaultValue As BoolEnum) As BoolEnum

        Dim returnValue As BoolEnum

        If allValuesByNaturalValue.TryGetValue(naturalValue, returnValue) Then

            Return returnValue

        End If

        Return defaultValue

    End Function

​

    Public Shared Function TrySelect(boolText As String, defaultValue As BoolEnum) As BoolEnum

        Dim returnValue As BoolEnum

        If allValuesByTextValue.TryGetValue(boolText, returnValue) Then

            Return returnValue

        End If

        Return defaultValue

    End Function

​

    Public Shared Function TrySelect(integerValue As Integer, defaultValue As BoolEnum) As BoolEnum

        Dim returnValue As BoolEnum

        If allValuesByInteger.TryGetValue(integerValue, returnValue) Then

            Return returnValue

        End If

        Return defaultValue

    End Function

​

    Public Shared Widening Operator CType(boolEnum As BoolEnum) As Boolean

        Return If(boolEnum IsNot Nothing, boolEnum.naturalValue, False)

    End Operator

​

    Public Shared Widening Operator CType(boolEnum As BoolEnum) As String

        Return If(boolEnum IsNot Nothing, boolEnum.boolText, "Is False")

    End Operator

​

    Public Shared Widening Operator CType(boolEnum As BoolEnum) As Integer

        Return If(boolEnum IsNot Nothing, boolEnum.integerValue, 0)

    End Operator

​

    Public ReadOnly Property NaturalValue() As Boolean

        Get

            Return Me.m_naturalValue

        End Get

    End Property

    Public ReadOnly Property BoolText() As String

        Get

            Return Me.m_boolText

        End Get

    End Property

    Public ReadOnly Property IntegerValue() As Integer

        Get

            Return Me.m_integerValue

        End Get

    End Property

​

    Public Shared ReadOnly Property AllValues() As IReadOnlyCollection(Of BoolEnum)

        Get

            Return allValuesByNaturalValue.Values.ToList().AsReadOnly()

        End Get

    End Property

    Public Shared ReadOnly Property AllBooleanValues() As IReadOnlyCollection(Of Boolean)

        Get

            Return allValuesByNaturalValue.Keys.ToList().AsReadOnly()

        End Get

    End Property

    Public Shared ReadOnly Property AllTextValues() As IReadOnlyCollection(Of String)

        Get

            Return allValuesByTextValue.Keys.ToList().AsReadOnly()

        End Get

    End Property

    Public Shared ReadOnly Property AllIntegerValues() As IReadOnlyCollection(Of Integer)

        Get

            Return allValuesByInteger.Keys.ToList().AsReadOnly()

        End Get

    End Property

​

    Public Overrides Function ToString() As String

        Return "[" + Me.m_naturalValue.ToString() + ", """ + Me.m_boolText.ToString() + """, " + Me.m_integerValue.ToString() + "]"

    End Function

​

End Class

​