Vb.net 以编程方式添加链接标签，并在单击事件时显示Messagebox

我在运行时动态添加了几个链接标签。我将所有链接标签的ID添加到表单中。单击特定链接标签时，如何显示错误消息

给埃克斯梅普。考虑以下5个链接标签：

• 报告1
• 报告2
• 报告3
• 报告4
• 报告5

单击可链接标签“报告1”时。我必须显示一个消息框，上面写着“报告1”

注意：我不知道在运行时会生成多少个链接标签。

试试这个

Private Sub frm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

  Dim lnk As LinkLabel
  Dim i As Integer

  For i = 1 To 5
     lnk = New LinkLabel
     lnk.Text = "Report " & i.ToString
     lnk.Location = New Drawing.Point(10, 25 * i)
     lnk.Parent = Me
     AddHandler lnk.LinkClicked, AddressOf lnk_LinkClicked
  Next

End Sub

Private Sub lnk_LinkClicked(ByVal sender As System.Object, ByVal e As LinkLabelLinkClickedEventArgs)

  Dim lnk As LinkLabel = CType(sender, LinkLabel)

  MessageBox.Show(lnk.Text)

End Sub