如何在VB.NET中无需手动拖拽即可为tableLayoutPanel填充PictureBox控件

错误点修正 #

你之前尝试获取OfType(Of TableLayoutPanel)的逻辑不成立：TableLayoutPanel的空单元格没有对应的数据类型/控件实体，无需遍历空单元格集合，直接根据设定的行列数循环生成控件添加到对应位置即可。

完整实现代码 #

以下代码包含性能优化逻辑，可解决大量控件添加卡顿的问题，同时支持后续动态调整网格尺寸：

' 操作前挂起布局，避免多次渲染导致卡顿
tableLayoutPanel1.SuspendLayout()
' 清空原有配置，方便重复调用调整网格大小
tableLayoutPanel1.Controls.Clear()
tableLayoutPanel1.RowStyles.Clear()
tableLayoutPanel1.ColumnStyles.Clear()

' 定义网格尺寸，后续调整大小直接修改这两个值即可
Dim rowCount As Integer = 50
Dim columnCount As Integer = 50
tableLayoutPanel1.RowCount = rowCount
tableLayoutPanel1.ColumnCount = columnCount

' 设置行列尺寸规则，此处为均匀填充，可根据需求改为固定尺寸
For i = 0 To rowCount - 1
    tableLayoutPanel1.RowStyles.Add(New RowStyle(SizeType.Percent, 100 / rowCount))
Next
For j = 0 To columnCount - 1
    tableLayoutPanel1.ColumnStyles.Add(New ColumnStyle(SizeType.Percent, 100 / columnCount))
Next

' 遍历所有单元格添加PictureBox
For row = 0 To rowCount - 1
    For col = 0 To columnCount - 1
        Dim picBox As New PictureBox()
        ' 基础属性配置，可根据需求调整
        picBox.Dock = DockStyle.Fill
        picBox.SizeMode = PictureBoxSizeMode.Zoom
        picBox.BorderStyle = BorderStyle.FixedSingle ' 可选，添加边框方便区分单元格
        
        ' 在此处添加自定义逻辑，比如绑定图片、注册点击事件等
        ' picBox.Image = 你的图片资源

        ' 添加到对应行列的单元格
        tableLayoutPanel1.Controls.Add(picBox, col, row)
    Next
Next

' 恢复布局，一次性完成渲染
tableLayoutPanel1.ResumeLayout()

附加说明 #

1. 动态调整网格：后续需要修改网格尺寸时，仅需修改rowCount和columnCount的取值，重新执行上述代码即可。
2. 访问指定位置控件：可通过以下代码获取指定行列的PictureBox进行操作：

' 下标从0开始，示例为获取第3行第4列的PictureBox
Dim targetPic = CType(tableLayoutPanel1.GetControlFromPosition(3, 2), PictureBox)
targetPic.Image = 你需要赋值的图片

3. 进一步优化闪烁：可在窗体加载事件中添加以下代码为TableLayoutPanel开启双缓冲，减少滚动、调整尺寸时的闪烁问题：

Dim propInfo As Reflection.PropertyInfo = tableLayoutPanel1.GetType().GetProperty("DoubleBuffered", Reflection.BindingFlags.Instance Or Reflection.BindingFlags.NonPublic)
propInfo.SetValue(tableLayoutPanel1, True, Nothing)

内容的提问来源于stack exchange，提问作者Joe Moore