如何在单击时简化一系列标签控件

Question

我有14个标签，分别命名为Label_1、Label_2……Label_14。。等我想检测哪一个是点击。

此代码可以运行：

Private Sub Label_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label_2.Click, Label_3.Click, Label_4.Click, Label_5.Click, Label_6.Click, Label_7.Click, Label_8.Click, Label_9.Click, Label_10.Click, Label_11.Click, Label_12.Click, Label_13.Click, Label_14.Click
    Dim enent_text As String = (Strings.Split(CType(sender, Label).Text, "_")(0))
    MessageBox.Show("clcik: " & enent_text)
End Sub

但是我如何才能卸下把手？如果我将来有更多的标签（例如：50），防止进入标签。我不想分配标签。

Private Sub Label_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label_2.Click, Label_3.Click, Label_4.Click, Label_5.Click, Label_6.Click, Label_7.Click, Label_8.Click, Label_9.Click, Label_10.Click, Label_11.Click, Label_12.Click, Label_13.Click, Label_14.Click, Label_15.Click, Label_16.Click, Label_17.Click, Label_18.Click...., Label_50.Click

我只是想这样，删除所有Handles的项目，我希望它能运行。

Private Sub Label_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Dim enent_text As String = (Strings.Split(CType(sender, Label).Text, "_")(0))
    MessageBox.Show("clcik: " & enent_text)
End Sub

我该怎么办？谢谢

Answer 1

听起来应该动态创建控件，类似于旧的VB6控件数组。您可以指定一个处理程序，并根据需要添加或删除控件。请参阅如何在VB.NET中创建控制数组