在VB中的每個Click事件上添加一個鏈接按鈕

Question

我有一個下拉列表，其中有一堆產品名稱，旁邊有一個添加按鈕。每次按下添加按鈕，我都想要一個Linkbutton與產品名稱一起出現。我做了pnl.Controls.Add（New LinkBut​​ton），但它只添加一個，然後下一次去點擊。這裏是我現在正在使一個LinkBut​​ton出現在點擊的代碼，只是無法弄清楚如何改變邏輯來添加一個新的每一次。

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