喜欢看C#的童鞋，这里有个工具，你们可以自己转换：http://converter.telerik.com/
想达到这个效果，首先新建一个新的项目。在项目名字上面右击，新增一个类，类名为：TableLayoutPanelEx.vb。 然后只要复制下面的代码到类中即可。
Public Class TableLayoutPanelEx
Inherits TableLayoutPanel
Private Const WM_NCHITTEST As Integer = &H84
Private Const WM_MOUSEMOVE As Integer = &H200
Private Const WM_LBUTTONDOWN As Integer = &H201
Private Const WM_LBUTTONUP As Integer = &H202
Private Const MK_LBUTTON As Integer = &H1
Private VBorders As New List(Of Integer)
Private HBorders As New List(Of Integer)
Private selColumn As Integer = -1
Private selRow As Integer = -1
Public Sub New()
Me.DoubleBuffered = True
Me.CellBorderStyle = TableLayoutPanelCellBorderStyle.Single
End Sub
Protected Overrides Sub OnHandleCreated(ByVal e As System.EventArgs)
MyBase.OnHandleCreated(e)
If Not Me.DesignMode Then ResetSizeAndSizeTypes()
End Sub
Public Shadows Property ColumnCount() As Integer
Get
Return MyBase.ColumnCount
End Get
Set(ByVal value As Integer)
MyBase.ColumnCount = value
If Me.Created And Not Me.DesignMode Then ResetSizeAndSizeTypes()
End Set
End Property
Public Shadows Property RowCount() As Integer
Get
Return MyBase.RowCount
End Get
Set(ByVal value As Integer)
MyBase.RowCount = value
If Me.Created And Not Me.DesignMode Then ResetSizeAndSizeTypes()
End Set
End Property
Public Sub ResetSizeAndSizeTypes()
Dim cW As Single = CSng((Me.ClientSize.Width \ Me.GetColumnWidths.Length) - 1)
For c As Integer = 0 To Me.GetColumnWidths.Length - 1
Me.ColumnStyles(c).SizeType = SizeType.Absolute
Me.ColumnStyles(c).Width = cW
Next
Dim cH As Single = CSng((Me.ClientSize.Height \ Me.GetRowHeights.Length) - 1)
For r As Integer = 0 To Me.GetRowHeights.Length - 1
Me.RowStyles(r).SizeType = SizeType.Absolute
Me.RowStyles(r).Height = cH
Next
End Sub
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
MyBase.WndProc(m)
If Me.Created And Not Me.Disposing Then
If m.Msg = WM_NCHITTEST Then
Dim loc As Point = Me.PointToClient(MousePosition)
VBorders.Clear()
HBorders.Clear()
If Me.ColumnCount > 1 Then
For w As Integer = 0 To Me.GetColumnWidths.Length - 2
If w = 0 Then
VBorders.Add(Me.GetColumnWidths(w))
Else
VBorders.Add(VBorders(VBorders.Count - 1) + Me.GetColumnWidths(w))
End If
Next
End If
If Me.RowCount > 1 Then
For h As Integer = 0 To Me.GetRowHeights.Length - 2
If h = 0 Then
HBorders.Add(Me.GetRowHeights(h))
Else
HBorders.Add(HBorders(HBorders.Count - 1) + Me.GetRowHeights(h))
End If
Next
End If
Dim onV As Boolean = (VBorders.Contains(loc.X) Or VBorders.Contains(loc.X - 1) Or VBorders.Contains(loc.X + 1))
Dim onH As Boolean = (HBorders.Contains(loc.Y) Or HBorders.Contains(loc.Y - 1) Or HBorders.Contains(loc.Y + 1))
If onV And onH Then
Me.Cursor = Cursors.SizeAll
ElseIf onV Then
Me.Cursor = Cursors.VSplit
ElseIf onH Then
Me.Cursor = Cursors.HSplit
Else
Me.Cursor = Cursors.Default
End If
ElseIf m.Msg = WM_LBUTTONDOWN And Me.Cursor <> Cursors.Default Then
Dim loc As Point = Me.PointToClient(MousePosition)
selColumn = -1
selRow = -1
For c As Integer = 0 To VBorders.Count - 1
If VBorders(c) >= loc.X - 1 And VBorders(c) <= loc.X + 1 Then
selColumn = c
Exit For
End If
Next
For r As Integer = 0 To HBorders.Count - 1
If HBorders(r) >= loc.Y - 1 And HBorders(r) <= loc.Y + 1 Then
selRow = r
Exit For
End If
Next
ElseIf m.Msg = WM_MOUSEMOVE And m.WParam.ToInt32 = MK_LBUTTON Then
Dim loc As Point = Me.PointToClient(MousePosition)
If Me.Cursor <> Cursors.Default Then
If selRow > -1 And loc.Y >= 1 And loc.Y <= Me.ClientSize.Height - 2 Then
Me.RowStyles(selRow).SizeType = SizeType.Absolute
Dim ref As Single = loc.Y - Me.RowStyles(selRow).Height
If selRow > 0 Then ref -= HBorders(selRow - 1)
If Me.RowStyles(selRow).Height + ref > 0 Then
If Me.RowCount > selRow + 1 Then
If Me.RowStyles(selRow + 1).Height - ref < 1 Then Exit Sub
Me.RowStyles(selRow + 1).Height -= ref
End If
Me.RowStyles(selRow).Height += ref
End If
End If
If selColumn > -1 And loc.X >= 1 And loc.X <= Me.ClientSize.Width - 2 Then
Me.ColumnStyles(selColumn).SizeType = SizeType.Absolute
Dim ref As Single = loc.X - Me.ColumnStyles(selColumn).Width
If selColumn > 0 Then ref -= VBorders(selColumn - 1)
If Me.ColumnStyles(selColumn).Width + ref > 0 Then
If Me.ColumnCount > selColumn + 1 Then
If Me.ColumnStyles(selColumn + 1).Width - ref < 1 Then Exit Sub
Me.ColumnStyles(selColumn + 1).Width -= ref
End If
Me.ColumnStyles(selColumn).Width += ref
End If
End If
End If
ElseIf m.Msg = WM_LBUTTONUP Then
selColumn = -1
selRow = -1
End If
End If
End Sub
End Class
然后你需要build一下你的工程。build之后在工具箱中会自动生成TableLayoutPanelEx控件。你需要把他拉到form中即可。然后有个重要的地方需要注意下：你需要设置RowCount 和 ColumnCount属性，达到你想达到的最大值，我们假设为10行10列吧，就设置RowCount等于10，ColumnCount等于10，这些都是在窗口设计模式中做到的。
接下来，我们再加两个NumericUpDown控件到Form中，命名为 (NUD_Rows) 和 (NUD_Columns)
最后把下面的代码放到Form中即可。
Public Class Form1
Public Sub New()
InitializeComponent()
‘Set the minimum of the 2 NumericUpDown controls for the rows and columns to 1
‘Set the maximum of the 2 NumericUpDown controls to the number of rows and columns you have set in the [Design] tab properties
NUD_Rows.Minimum = 1
NUD_Rows.Maximum = TableLayoutPanelEx1.RowCount
NUD_Columns.Minimum = 1
NUD_Columns.Maximum = TableLayoutPanelEx1.ColumnCount
‘Set to the rows and columns counts back to what you want for the default
TableLayoutPanelEx1.ColumnCount = 4
TableLayoutPanelEx1.RowCount = 4
‘Set the 2 NumericUpDown control values to the current count of rows and columns
NUD_Rows.Value = TableLayoutPanelEx1.RowCount
NUD_Columns.Value = TableLayoutPanelEx1.ColumnCount
End Sub
Private Sub NUD_Rows_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NUD_Rows.ValueChanged
If Me.Created Then TableLayoutPanelEx1.RowCount = CInt(NUD_Rows.Value)
End Sub
Private Sub NUD_Columns_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NUD_Columns.ValueChanged
If Me.Created Then TableLayoutPanelEx1.ColumnCount = CInt(NUD_Columns.Value)
End Sub
End Class
你可以运行和调试了。Good lucy baby!
理想的效果应该是你可以用鼠标改变行高和列宽了。可以通过 NumericUpDown控件改变行数和列数。
这边是我的效果图：
时间： 2024-10-29 19:06:37