LinkLablesをプログラム的に追加し、Clickイベント時にメッセージボックスを表示

Question

実行時に動的にLinkLabelをいくつか追加しています。私はフォームに追加されたすべてのリンクラベルのIDを持っています。特定のリンクラベルがクリックされたときにエラーメッセージを表示するにはどうすればよいですか？

例として。 LinkLable "レポート1" をクリックするとレポート1

レポート2

レポート3

レポート4

レポート5

• 下記のショーとして5つのリンクラベルを考えてみましょう。私は "レポート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 

...これを試してみてください