Ajouter LinkLables programatcially et montrer Messagebox sur l'événement de clic

Question

J'ajoute dynamiquement quelques LinkLabels pendant l'exécution. J'ai les identifiants de toutes les étiquettes de lien ajoutées au formulaire. Comment est-ce que je peux montrer un message d'erreur quand un linklabel particulier est cliqué?

Par exmaple. Tenez compte 5 étiquettes de lien comme indiqué ci-dessous

• Rapport 1
• Rapport 2
• Rapport 3
• Rapport 4
• Rapport 5

Lorsque LinkLable "Report 1" est cliqué. Je dois montrer une boîte de message qui indique "rapport 1"

Note: Je ne sais pas combien d'étiquettes de lien seront générées pendant l'exécution.

Answer 1

Try this ...

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