VB.NET：TableLayoutPanel内PictureBox点击事件未触发及删除项问题

你遇到的核心问题有两个：一是删除按钮（PictureBox）的点击事件没绑定上，二是不知道如何定位并删除对应的待办项行，咱们一步步来解决：

一、为什么点击事件没触发？ #

你当前的代码只遍历了窗体的直接控件（Me.Controls），但你的PictureBox是放在TableLayoutPanel里面的，属于TableLayoutPanel的子控件，不在Me.Controls的遍历范围内，所以根本没加上点击事件处理器！

修复事件绑定的方法 #

推荐两种可行的方案，优先选第一种更高效的：

方法1：创建PictureBox时直接绑定事件（推荐）

当你往TableLayoutPanel里添加待办项和删除按钮的时候，直接给PictureBox绑定点击事件，避免后续遍历遗漏：

' 假设你是这样创建删除按钮的
Dim deletePic As New PictureBox()
deletePic.Image = My.Resources.DeleteIcon ' 替换成你的删除图标资源
deletePic.SizeMode = PictureBoxSizeMode.Zoom
deletePic.Cursor = Cursors.Hand
' 直接在这里绑定删除事件
AddHandler deletePic.Click, AddressOf core.DeleteHandler

' 将按钮添加到TableLayoutPanel的指定单元格（示例：第2列，当前行rowIndex）
tableLayoutPanel1.Controls.Add(deletePic, 1, rowIndex)

方法2：递归遍历所有控件绑定事件

如果已经提前创建好所有控件，可以用递归方法遍历所有层级的控件，找到PictureBox并绑定事件：

' 窗体加载事件中调用这个方法
AddPictureBoxClickHandlers(Me)

' 递归处理所有子控件的函数
Private Sub AddPictureBoxClickHandlers(parentControl As Control)
    For Each c As Control In parentControl.Controls
        If TypeOf c Is PictureBox Then
            AddHandler c.Click, AddressOf core.DeleteHandler
        End If
        ' 递归处理子控件的子控件
        If c.HasChildren Then
            AddPictureBoxClickHandlers(c)
        End If
    Next
End Sub

二、如何删除对应的TableLayoutPanel项？ #

在DeleteHandler方法里，你可以通过sender定位到点击的PictureBox，再找到它所在的行，最后移除该行的所有控件并删除行：

Public Sub DeleteHandler(ByVal sender As Object, ByVal e As EventArgs)
    ' 将sender转换为PictureBox实例
    Dim deletePic As PictureBox = DirectCast(sender, PictureBox)
    ' 获取该按钮所在的TableLayoutPanel
    Dim tablePanel As TableLayoutPanel = DirectCast(deletePic.Parent, TableLayoutPanel)
    ' 获取按钮所在的行号
    Dim rowIndex As Integer = tablePanel.GetRow(deletePic)
    
    ' 移除该行的所有控件并释放资源
    For i As Integer = tablePanel.Controls.Count - 1 To 0 Step -1
        Dim ctrl As Control = tablePanel.Controls(i)
        If tablePanel.GetRow(ctrl) = rowIndex Then
            tablePanel.Controls.Remove(ctrl)
            ctrl.Dispose() ' 释放控件资源，避免内存泄漏
        End If
    Next
    
    ' 删除对应的行样式并减少行计数
    tablePanel.RowStyles.RemoveAt(rowIndex)
    tablePanel.RowCount -= 1
End Sub

注意事项 #

• 移除控件时要倒序遍历，避免因控件集合长度变化导致遍历遗漏。
• 确保RowCount和RowStyles同步更新，否则会出现布局错乱的问题。

内容的提问来源于stack exchange，提问作者Developer K