Добавить кнопку ссылки на каждое событие Click в VB

Question

У меня есть раскрывающийся список с кучей названий продуктов в нем с кнопкой добавления на стороне. Каждый раз, когда я нажимаю кнопку добавления, я хочу, чтобы Linkbutton появился с именем продукта. Я сделал pnl.Controls.Add (New LinkButton), но он добавляет только один, а затем уходит в следующий раз, когда я нажимаю. Вот код, который у меня есть сейчас, когда вы создаете LinkButton при щелчке, просто не можете понять, как изменить логику, чтобы каждый раз добавлять новую.

Private Sub btnAddLinkedProjects_Click(sender As Object, e As EventArgs) Handles btnAddLinkedProjects.Click 


    lbLinkedProject.Visible = True 

    lbLinkedProject.Text = ddlParentProject.SelectedItem.Text 


End Sub 

У меня есть linkbutton в моем дизайнере, который установлен на невидимый, пока его не нажмут. В конечном счете, когда кнопка ссылка проекта щелкнули, он заполняет все поля, как этот

Private Sub lbLinkedProject_Click(sender As Object, e As EventArgs) Handles lbLinkedProject.Click 

    Dim intParentRecID As Integer 
    Dim pid As Project = Nothing 
    Dim intCityState As Integer = 0 
    Dim strState As String = "" 
    Dim cs As nsCityState = Nothing 

    intParentRecID = Integer.Parse(ddlParentProject.SelectedValue) 

    pid = oDesignCon.getProjectByRecID(intParentRecID) 
    If pid Is Nothing Then 
    Else 
     intCityState = pid.CityState 
     cs = New nsCityState(intCityState) 
     If cs Is Nothing Then 
     Else 
      strState = cs.StateShort 
      Me.ddlAddState.SelectedValue = strState 
      Call HandleAddStateChanged() 
     End If 

     Call nsLinqFormBinder.LoadContainer(Me.pnlCreateNewPID, pid) 
     Me.ddlAddAssignTo.SelectedIndex = 0 

    End If 

End Sub 

Answer 1

Что плохого, если вы просто создать новый LinkButton как обычно:

Private Sub btnAddLinkedProjects_Click(sender As Object, e As EventArgs) Handles btnAddLinkedProjects.Click 
    'create & prepare new LinkButton' 
    Dim newLinkedProject As New LinkButton 
    newLinkedProject.Visible = True 
    newLinkedProject.Text = ddlParentProject.SelectedItem.Text 
    'register event handler' 
    AddHandler newLinkedProject.Click, AddressOf Me.lbLinkedProject_Click 
    'add the LinkButton to panel' 
    pnl.Controls.Add(newLinkedProject) 
End Sub