如何制作查找按钮的搜索栏
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
我想制作一个 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