实现TableLayoutPanel控件的行列拆分的Sub过程

''' <summary>


''' 拆分TableLayoutPanel


''' </summary>


''' <param name="tlp"></param>


''' <param name="cellCount">拆分后的单元格数,只支持行列数相等的拆分</param>


''' <remarks>Author:朱二</remarks>




Private Sub DrawCell()Sub DrawCell(ByRef tlp As TableLayoutPanel, ByVal cellCount As Integer)


Dim columnCount, rowCount As Integer


columnCount = Math.Sqrt(cellCount)


rowCount = Math.Sqrt(cellCount)


'清空子控件，清空行列风格


tlp.Controls.Clear()


tlp1.ColumnStyles.Clear()


tlp1.RowStyles.Clear()




'设置行列数


tlp.ColumnCount = rowCount


tlp.RowCount = columnCount




'设置行高列宽


Dim i As Integer


For i = 1 To columnCount


tlp.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, tlp.Width / columnCount))


Next


For i = 1 To rowCount


tlp.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, tlp.Height / rowCount))


Next


End Sub