TableLayoutPanelを極めよ：動的行追加と自動リサイズ制御のアーキテクチャ
Windows Forms開発において、業務アプリケーションの寿命を縮める最大の要因は何か。それは、固定座標（`Location`と`Size`）に依存したスパゲッティUIの散逸である。
「画面解像度が変わるとレイアウトが崩れる」「明細行が動的に増えるとコントロールが重なる」「高DPI環境で文字が切れる」――。
こうした現場の悲鳴を根絶するため、我々は`TableLayoutPanel`（以下、TLP）を真に掌握しなければならない。単なるコンテナとして配置し、プロパティウィンドウで数値をいじるだけの設計は、プロの所業ではない。
本稿では、VB.NETのイベント駆動とメモリライフサイクルの深淵を覗きつつ、実行時の動的行追加、レイatingのフリーズ制御、そしてGDI+レベルのパフォーマンス最適化を伴う「壊れない業務画面」の設計思想を叩き込む。
—
1. なぜ素のTLPは「重く」「ちらつく」のか？
TLPは内部で各セルのサイズ計算とレイアウトパスを動的に実行する。行や列を1つ追加・削除するたびに、フレームワークはすべてのコントロールに対して測量（Measure）と配置（Arrange）を走らせる。
これを制御せずにループ内で100行追加しようものなら、UIスレッドは悲鳴を上げ、画面は盛大にちらつき（Flicker）、最悪の場合は応答なしとなる。
さらに、VB.NETのガベージコレクション（GC）とWin32ウィンドウハンドルの破棄が絡み合うと、メモリリークの温床となる。
この呪縛を断ち切るための大原則が2つある。
1. レイアウトロジックの完全な一時停止（`SuspendLayout` / `ResumeLayout`）
2. ダブルバッファリングとWM_SETREDRAWの制御
—
2. 実装：動的行追加とメモリ安全性を担保したフォーム設計
以下のコードは、数千件規模のデータを扱う可能性のあるレガシー・モダン混在環境を想定し、極限まで最適化された動的行追加コンポーネントの骨子である。
Imports System.Windows.Forms
Imports System.Runtime.InteropServices
Public Class DynamicGridForm
‘ ウィンドウの再描画を抑止するためのWin32 API（ちらつきの完全撲滅用）
Private Shared Function SendMessage(hWnd As IntPtr, msg As Integer, wParam As IntPtr, lParam As IntPtr) As IntPtr
End Function
Private Const WM_SETREDRAW As Integer = &HB
”’
”’
Private Sub FreezeLayout(target As Control, freeze As Boolean)
SendMessage(target.Handle, WM_SETREDRAW, If(freeze, IntPtr.Zero, New IntPtr(1)), IntPtr.Zero)
If Not freeze Then
target.Invalidate(True)
End If
End Sub
”’
”’
Public Sub AddBusinessRow(itemData As String, amount As Decimal)
‘ 1. TLP全体のレイアウト処理を停止
TableLayoutPanel1.SuspendLayout()
‘ 2. Win32レベルでウィンドウ描画をロック
FreezeLayout(TableLayoutPanel1, True)
Try
‘ 現在の行数を取得し、行スタイルを動的に追加
Dim newRowIndex As Integer = TableLayoutPanel1.RowCount
TableLayoutPanel1.RowCount = newRowIndex + 1
TableLayoutPanel1.RowStyles.Add(New RowStyle(SizeType.Absolute, 35.0F))
‘ コントロールのインスタンス生成（明示的な型指定）
Dim lblName As New Label() With {
.Text = itemData,
.Dock = DockStyle.Fill,
.TextAlign = ContentAlignment.MiddleLeft,
.Margin = New Padding(3)
}
Dim txtAmount As New TextBox() With {
.Text = amount.ToString(“N0″),
.Dock = DockStyle.Fill,
.TextAlign = HorizontalAlignment.Right,
.Tag = newRowIndex
}
‘ イベントハンドラの登録（メモリリークを防ぐため、フォーム破棄時に確実に外す設計にする）
AddHandler txtAmount.TextChanged, AddressOf AmountTextBox_TextChanged
‘ TLPへコントロールを配置 (Column, Row)
TableLayoutPanel1.Controls.Add(lblName, 0, newRowIndex)
TableLayoutPanel1.Controls.Add(txtAmount, 1, newRowIndex)
Catch ex As Exception
‘ 業務システムにおける例外はログに落とし、上位へスロー
System.Diagnostics.Trace.WriteLine($”[Error] Row Add Failed: {ex.Message}”)
Throw
Finally
‘ 3. 描画ロック解除とレイアウト再開の順序を厳守
FreezeLayout(TableLayoutPanel1, False)
TableLayoutPanel1.ResumeLayout(True)
End Try
End Sub
Private Sub AmountTextBox_TextChanged(sender As Object, e As EventArgs)
‘ 業務ロジックのプレースホルダー
Dim txt = CType(sender, TextBox)
‘ 入力検証などの処理をここに記述
End Sub
End Class
—
3. チーフアーキテクトが教える「絶対に踏んではいけない地雷」
地雷その1：`AutoSize = True` の安易な連用
TLPや親フォームに対して`AutoSize = True`を指定すると、コントロールの増減に伴いフォーム全体が無限にリサイズされようとし、ウィンドウマネージャーと競合を起こす。
【鉄則】 フォーム自体のAutoSizeは基本`False`とし、スクロールが必要な場合は`TableLayoutPanel`を`Panel`（`AutoScroll = True`）でラップせよ。
地雷その2：イベントハンドラのデッドロックとメモリリーク
動的に生成されたコントロール（TextBoxやButtonなど）に対して`AddHandler`でラムダ式や匿名メソッドを紐付けると、ガベージコレクションの参照カウントが意図せず残り、画面を閉じてもメモリ上にコントロールが残留する（マネージドメモリリーク）。
【鉄則】 動的コントロールを削除・クリアする際は、必ず`RemoveHandler`を実行するか、コンテナの`Controls.Clear()`呼び出し前に各コントロールのイベントを明示的に解除し、`Dispose()`を叩くループを挟め。
‘ 行を全削除してメモリを解放する際の正しい手順
Private Sub ClearAllRows()
TableLayoutPanel1.SuspendLayout()
Try
For Each ctrl As Control In TableLayoutPanel1.Controls
‘ イベントの解除（必要に応じて）
If TypeOf ctrl Is TextBox Then
RemoveHandler CType(ctrl, TextBox).TextChanged, AddressOf AmountTextBox_TextChanged
End If
ctrl.Dispose() ‘ Win32ハンドルとマネージド資源の即時解放
> Next
TableLayoutPanel1.Controls.Clear()
TableLayoutPanel1.RowStyles.Clear()
TableLayoutPanel1.RowCount = 0
TableLayoutPanel1.RowStyles.Add(New RowStyle(SizeType.Absolute, 35.0F)) ‘ ヘッダー行などの復元
Finally
TableLayoutPanel1.ResumeLayout(True)
End Try
End Sub
地雷その3：パーセント指定（`SizeType.Percent`）とピクセル指定の混迷
可変行にパーセントを指定すると、行が増えるたびに比率の再計算が走り、レイアウトがガタつく。
【鉄則】 データ入力明細のような「行数が可変のエリア」の高さは必ず`SizeType.Absolute`（ピクセル固定）または`SizeType.AutoSize`で制御し、ウィンドウ全体の伸縮に追従させたい余白行のみに`SizeType.Percent`（値は100）を割り当てて下部に追いやれ。
—
総括
Visual Basic (VB.NET) によるWindows Forms開発は、レガシーではない。現代のハードウェアスペックと適切なWin32 APIの制御、そしてオブジェクトのライフサイクル管理（`Dispose`の徹底）を組み合わせれば、WebアプリケーションのDOM操作を凌駕する圧倒的な爆速UIを実現できる。
「動かない」「重い」と嘆く前に、自身のコードがTLPに無駄な再描画とレイアウト計算を強いていないか見直せ。
アーキテクチャの優劣は、コードの行数ではなく、こうした細部への執念に宿るのだ。
