Vb.net VisualBasic2012：我想要布尔值，但有三种可能的答案？

VisualBasic2012：我想要布尔值，但有三种可能的答案？已经有这样的东西了吗？或者你能做这样的东西吗

使用

枚举

Public Enum Choices
  One
  Two
  Three
End Enum

---

使用

枚举

Public Enum Choices
  One
  Two
  Three
End Enum

---

像DonA的答案一样，我建议使用Enum，但是。。。我强烈建议使用

-1

、

0

和

1

Public Enum State
    FirstState = -1
    SecondState = 0
    ThirdState = 1
End Enum

---

现在你不仅仅使用了三个值，更重要的是，你基本上使用了三个符号。正、零和负。

就像多纳的回答一样，我建议使用

枚举

，但是。。。我强烈建议使用

-1

、

0

和

1

Public Enum State
    FirstState = -1
    SecondState = 0
    ThirdState = 1
End Enum

---

现在你不仅仅使用了三个值，更重要的是，你基本上使用了三个符号。正、零和负。

生成新枚举时确实不需要。。。你可以用

例如：

Private Shadows Sub Load() Handles MyBase.Load
    MsgBox(func(100)) ' Result = -2
End Sub

Public Function func(ByVal number As Integer) As TriState

    Select Case number

        Case Is < 100
            Return TriState.False

        Case Is > 100
            Return TriState.True

        Case Else ' Equals to 100
            Return TriState.UseDefault

    End Select

End Function

Private Shadows Sub Load（）处理MyBase.Load
MsgBox（func（100））'结果=-2
端接头
公共函数func（ByVal数为整数）为三态
选择案例编号
病例<100例
返回三态。错误
病例>100例
返回三态，对
“其他情况”等于100
返回TriState.UseDefault
结束选择
端函数

生成新枚举确实不是必需的。。。你可以用

例如：

Private Shadows Sub Load() Handles MyBase.Load
    MsgBox(func(100)) ' Result = -2
End Sub

Public Function func(ByVal number As Integer) As TriState

    Select Case number

        Case Is < 100
            Return TriState.False

        Case Is > 100
            Return TriState.True

        Case Else ' Equals to 100
            Return TriState.UseDefault

    End Select

End Function

Private Shadows Sub Load（）处理MyBase.Load
MsgBox（func（100））'结果=-2
端接头
公共函数func（ByVal数为整数）为三态
选择案例编号
病例<100例
返回三态。错误
病例>100例
返回三态，对
“其他情况”等于100
返回TriState.UseDefault
结束选择
端函数

True，False，FileNotFound:）True，False，FileNotFound:）你检查了吗