’TableLayoutPanel1のCellPaintイベントハンドラ
Private Sub TableLayoutPanel1_CellPaint(sender As Object, e As TableLayoutCellPaintEventArgs) Handles TableLayoutPanel1.CellPaint
Dim KuroppoiColor As New SolidBrush(Color.FromArgb(64, 64, 64))
If e.Column = 20 And e.Row = 3 Then
e.Graphics.FillRectangle(KuroppoiColor, e.CellBounds) '上で指定したKuroppoiColor
End If
If e.Column = 20 And e.Row = 4 Then
e.Graphics.FillRectangle(KuroppoiColor, e.CellBounds)
End If
If e.Column = 20 And e.Row = 5 Then
e.Graphics.FillRectangle(KuroppoiColor, e.CellBounds)
End If
If e.Column = 20 and e.Row = 6 Then
e.graphics.FillRectangle(Brushes.Black, e.CellCounds) '黒
End Sub
GroupBoxのかわりにセルの色でコントロール群を分類してもいいかも。
