如何在VB中编写“一个子多个子”代码。网

Question

我在表格上有n个标签，例如：Label1，Label2，。。。，拉伯恩。通常，当我为所有标签编写Click事件时：

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        Msgbox "1"
    End Sub
当n很大时，写操作非常复杂！
现在，我想简单地编写代码，点击标签并生成“I”（一个过程到多个过程）。怎么处理？提前谢谢。
                

Answer 1

我不会使用处理程序，而是制作一个从框架继承的自定义控件；它将此消息框作为控件的标准功能。

创建一个新类，如下所示：

Public Class MyLabel : Inherits Label
    Protected Overrides Sub OnClick(e As EventArgs)
        MyBase.OnClick(e)

        MsgBox(Me.Name)
    End Sub
End Class

编译后，它将显示在您的工具箱中。在屏幕上绘制它并查看它的工作。

Answer 2

使用AddHandler创建标签时，您可以动态分配事件处理程序：

Sub test()
    Dim label1 As New Label()
    AddHandler label1.Click, AddressOf HandleLabelClick
    Me.Controls.Add(label1)
End Sub

下面是事件处理程序：

Sub HandleLabelClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
    MsgBox(DirectCast(sender, Label).Name)
End Sub

Answer 3

Private Sub Labeln_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
       Handles Label1.Click, Label2.Click, Label3.Click '...
    Dim l As Label = DirectCast(sender, Label)
    Msgbox l.Name
End Sub

如果n非常大，请跳过方法的句柄部分，并在表单加载中执行此操作：

For Each l As Label in Me.Controls.OfType(Of Label)()
    AddHandler l.Click, AddressOf Labeln_Click
Next