Question

VB 2008。

我在表单上有几个文本框，我希望每个文本框都使用相同的事件处理程序。我知道如何手动将每一个连接到处理程序，但我正在寻找一种更通用的方式，所以如果我添加更多文本框，它们将自动连接到事件处理程序。

想法？

编辑：使用MusiGenesis的C＃样本（以及在nick留下的评论的帮助下），我写了这个VB代码：

Private Sub AssociateTextboxEventHandler()
  For Each c As Control In Me.Controls
    If TypeOf c Is TextBox Then
      AddHandler c.TextChanged, AddressOf tb_TextChanged
    End If
  Next
End Sub

非常感谢！太棒了。

Answer 1

在表单的加载事件中执行类似的操作（C＃，抱歉，但很容易翻译）：

private void Form1_Load(object sender, EventArgs e)
{
    foreach (Control ctrl in this.Controls)
    {
        if (ctrl is TextBox)
        {
            TextBox tb = (TextBox)ctrl;
            tb.TextChanged += new EventHandler(tb_TextChanged);
        }
    }

}

void tb_TextChanged(object sender, EventArgs e)
{
    TextBox tb = (TextBox)sender;
    tb.Tag = "CHANGED"; // or whatever
}

它没有正确递归（例如，它不会在面板上找到文本框），但你明白了。

Answer 2

“c As Control”没有“TextChanged”事件，因此会抛出错误。您可以将其优化为Linq并使用以下方法消除该错误：

For Each c As TextBox In Controls.OfType(Of TextBox)()
    AddHandler c.TextChanged, AddressOf tb_TextChanged
Next

但这样可以避免比第一级更深入。

Answer 3

您可以递归迭代表单的OnLoad中的Controls集合，并将事件处理程序分配给您找到的任何文本框。

Answer 4

有可能使用宏，但除此之外，我不知道任何会自动将控件连接到通用处理程序的东西。

我所知道的唯一简单方法是选择所有可应用的文本框，并且只是同时为click事件设置eventhandler，但这不是自动的。

Answer 5

我认为这会更新所有文字控件：

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    UpdateControls(Me)
End Sub

Private Sub UpdateControls(ByVal myControlIN As Control)
    Dim myControl

    For Each myControl In myControlIN.Controls
        UpdateControls(myControl)
        Dim myTextbox As TextBox

        If TypeOf myControl Is TextBox Then
            myTextbox = myControl
            AddHandler myTextbox.TextChanged, AddressOf TextBox_TextChanged
        End If
    Next

End Sub

Private Sub TextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
    MsgBox("text changed in " & CType(sender, TextBox).Name)
End Sub

Answer 6

我在TabPage-Control中的许多GroupBox中有很多文本框。

要添加/定义/删除那些文本框的处理程序，我必须先通过Tabpages迭代，然后通过每个Tabpage中的Groupbox，然后我可以访问这些Groupbox中的Textbox。

' cycle through TabPages ...
For Each page As TabPage In Me.TabControl1.Controls.OfType(Of TabPage)()
    ' in every TabPage cycle through Groupboxes ...
    For Each gbox As GroupBox In page.Controls.OfType(Of GroupBox)()
        ' and in every TextBox inside the actual GroupBox
        For Each tbox As TextBox In gbox.Controls.OfType(Of TextBox)()
            AddHandler tbox.TextChanged, AddressOf _TextChanged
        Next
    Next
Next

Private Sub _TextChanged(sender As System.Object, e As System.EventArgs)
    somethingWasChanged = True
End Sub

如何将窗体上的所有文本框控件与相同的事件处理程序关联

6 个答案: