是否可以在不使用循环的情况下找到控件？

Question

我在FlowLayoutPanel 中有许多带有不同文本的按钮，我想找到带有特定字符串的按钮。

我目前正在这样做：

Dim str as String = 'some text
For each btn as Button in FlowLayoutPanel.Controls
    If btn.Text = str then
         'do something with btn
    End If
Next

有可能做这样的事情吗？

Dim str as String = 'some text
Dim btn as Button = FlowLayoutPanel.Controls.Button.Text with that string
'do something with btn

Answer 1

你可以使用 LINQ，例如

Dim btn = myFlowLayoutPanel.Controls.
                            OfType(Of Button)().
                            FirstOrDefault(Function(b) b.Text = myText)

请注意，无论所有子控件是否为Buttons，该代码都将起作用，因为OfType 确保除了Button 之外的任何内容都会被忽略。如果您知道每个子控件都是Button，那么这样做会更有效率：

Dim btn = myFlowLayoutPanel.Controls.
                            Cast(Of Button)().
                            FirstOrDefault(Function(b) b.Text = myText)

这样做效率更高：

Dim btn = DirectCast(myFlowLayoutPanel.Controls.
                                       FirstOrDefault(Function(b) b.Text = myText),
                     Button)

不过，差异可以忽略不计，如果您主要关心的是效率，那么您可能根本不应该使用 LINQ。

另请注意，FirstOrDefault 仅适用于可能存在零个、一个或多个匹配项的情况。在其他情况下其他方法更合适：

First: 总会有至少一场比赛，但也可能不止一场。

FirstOrDefault: 可能没有任何匹配，也可能不止一个。

Single: 总会有一个匹配。

SingleOrDefault: 可能没有匹配项，但永远不会超过一个。

如果您使用OrDefault 方法之一，则结果可能是Nothing，您应该在使用之前始终测试Nothing 的结果。