如何制作查找按钮的搜索栏

How to make a Search Bar that looks for buttons

我想制作一个 Flow Layout Panel 并用一堆按钮填充它。我想在表单顶部有一个文本框来搜索特定按钮。不知道如何。当用户搜索时,所有其他按钮将不可见,只有其 .text 属性 匹配的按钮可见。

假设搜索框正在寻找按钮的 .Text 属性,文本框名为 txtSearch,面板名为 pnlButtons:

Private Sub txtSearch_TextChanged(sender As Object, e As EventArgs) Handles txtSearch.TextChanged
    pnlButtons.SuspendLayout()

    For Each c As Control In pnlButtons.Controls
       c.Visible = False
    Next

    Dim matchingButtons = pnlButtons.Controls.OfType(Of Button).Where(Function(b) b.Text.StartsWith(txtSearch.Text))
    For Each b As Button In matchingButtons
         b.Visible = True
     Next 

     pnlButtons.ResumeLayout()
End Sub