以编程方式添加LinkLables并在单击事件上显示Messagebox

Question

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

例如。考虑5个链接标签，如下所示

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

单击LinkLable“Report 1”时。我必须显示一个消息框，上面写着“报告1”

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

Answer 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