如果textbox.text =多于1个选项

Question

这应该是一整天最容易的问题！

我想看到的是如何压缩一些代码。

示例：

If textbox.text = "0000" then
'do something
End If

If textbox.text = "0001" then
    'do something
    End If

我想做的是，在1个陈述中有这个。

Answer 1

您可以使用数据数组中的.Contains。这是一个简单的例子。

Dim choices = {"0000","0001","0002"}  
If choices.Contains(textbox.text) Then
  'do something
End If

Answer 2

如果您希望每种情况都做不同的事情：

If testbox.text = "0000" Then Do.Something Else If testbox.text = "0001" Then Do.SomethingDifferent

如果您有多个条件要测试以执行相同的操作：

If testbox.text = "0000" OR testbox.text = "0001" OR testbox.text = "0002" Then Do.Something