如果textbox.text = more，则为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