将LinkLabel1.Enabled属性设置为false（vb.net）

Question

我有一个LinkLabel，我在表单中动态添加了这个属性。只有当CheckBox被选中时，我的LinkLabel才会显示。我用这个LinkLabel到在我的表格中添加一个TextBox和用户只能添加5最大TextBox。达到它的最大值后，LinkLabel将为已禁用（但尚未添加到我的编码中）。

这是我目前使用的编码。

'This is my CheckBox 
Private Sub CheckBoxOthers_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBoxOthers.CheckedChanged 
    If CheckBoxOthers.Checked = True Then 
     PanelOthers.Visible = True 'My TextBox and LinkLabel are inside a Panel 

     Dim count As Integer = PanelOthers.Controls.OfType(Of Label)().ToList().Count 
     Dim textbox As New TextBox() 
     Dim linklabel1 As New LinkLabel() 

     count = PanelOthers.Controls.OfType(Of TextBox)().ToList().Count 
     textbox.Location = New System.Drawing.Point(15, 40 * count) 
     textbox.Size = New System.Drawing.Size(172, 20) 
     textbox.Name = "textbox_" & (count + 1) 
     AddHandler textbox.TextChanged, AddressOf TextBox_Changed 
     PanelOthers.Controls.Add(textbox) 

     'Adding LinkLabel dynamically 
     linklabel1.Name = "lnkAddSubj" 
     linklabel1.Text = "Add Subject" 
     linklabel1.Location = New Point(300, 3) 
     AddHandler linklabel1.Click, AddressOf linklabel1_Click 
     PanelOthers.Controls.Add(linklabel1) 
    Else 
     PanelOthers.Visible = False 
     PanelOthers.Controls.Clear() 
    End If 
End Sub 

这里是我的LinkLabel事件点击时添加文本框，5次最大，但我还没有添加代码来设置的限制尚未

Private Sub linklabel1_Click(sender As Object, e As EventArgs) 
    Dim count As Integer = PanelOthers.Controls.OfType(Of Label)().ToList().Count 
    Dim textbox As New TextBox() 

    count = PanelOthers.Controls.OfType(Of TextBox)().ToList().Count 
    textbox.Location = New System.Drawing.Point(15, 40 * count) 
    textbox.Size = New System.Drawing.Size(172, 20) 
    textbox.Name = "textbox_" & (count + 1) 
    AddHandler textbox.TextChanged, AddressOf TextBox_Changed 
    PanelOthers.Controls.Add(textbox) 

    'So here after LinkLabel clicked 5 times then my LinkLabel will be disabled and I'm trying to do like this but it said LinkLabel1 is not declared 
    LinkLabel1.Enabled = False 
End Sub 

如何使LinkLabel特性能够要设置？我能写它的Click事件，因为我在CheckBox事件中为它添加了一个处理程序。

Answer 1

此行

'So here after LinkLabel clicked 5 times then my LinkLabel will be disabled and I'm trying to do like this but it said LinkLabel1 is not declared 
LinkLabel1.Enabled = False 

说是LinkLabel1是根本不存在，因为你动态

'Adding LinkLabel dynamically 
linklabel1.Name = "lnkAddSubj" 
linklabel1.Text = "Add Subject" 
linklabel1.Location = New Point(300, 3) 
AddHandler linklabel1.Click, AddressOf linklabel1_Click 
PanelOthers.Controls.Add(linklabel1) 

声明您linkLabel1在linklabel1_Click，你应该用你的sender代替。它转换为LinkLabel

Private Sub linklabel1_Click(sender As Object, e As EventArgs) 
    Dim linkLbl As LinkLabel = sender 'do this 
    Dim count As Integer = PanelOthers.Controls.OfType(Of Label)().ToList().Count 
    Dim textbox As New TextBox() 

    count = PanelOthers.Controls.OfType(Of TextBox)().ToList().Count 
    textbox.Location = New System.Drawing.Point(15, 40 * count) 
    textbox.Size = New System.Drawing.Size(172, 20) 
    textbox.Name = "textbox_" & (count + 1) 
    AddHandler textbox.TextChanged, AddressOf TextBox_Changed 
    PanelOthers.Controls.Add(textbox) 

    'So here after LinkLabel clicked 5 times then my LinkLabel will be disabled and I'm trying to do like this but it said LinkLabel1 is not declared 
    'put if condition here to check if the textBox number already >= 5 
    linkLbl.Enabled = False 'change this using the actual sender 
End Sub  

此外，作为一个侧面的问题：你需要动态地添加你的链接标签多次，每次CheckedChanged事件发生？这对我来说似乎不是一个很好的做法。