Windows Formsの限界を突破する：`LayoutEngine`継承による「極限のカスタムレイアウトエンジン」自作術
Windows Forms開発において、UIの動的配置に頭を悩ませた経験はないだろうか？
標準の `FlowLayoutPanel` や `TableLayoutPanel` は、一般的なフォーム作成には十分だが、少し複雑な業務要件――例えば「親のサイズに応じて子コントロールが波及的に折り返され、かつ特定のプライオリティ順にサイズが可変するダッシュボード」などを実現しようとすると、途端に無力になる。
ネット上でよく見かける「`SizeChanged` イベントでゴリゴリと座標を計算する」というアプローチ。あれは最悪のアンチパターンだ。
イベント駆動で力技の再配置を行うと、コントロールの増減やフォント変更時に無限ループやちらつき（Flicker）、そして何よりパフォーマンスの致命的な劣化を引き起こす。
真のプロフェッショナルであれば、Windows Formsの描画・レイアウトパイプラインの心臓部である `LayoutEngine` をハックすべきだ。
今回は、`System.Windows.Forms.Layout.LayoutEngine` を完全に継承し、業務アプリケーションで即戦力となる「カスタム整列ロジックを持つパネルコントロール」をVB.NETで実装する極意を伝授する。
—
1. なぜ標準のレイアウトでは業務アプリの要件を満たせないのか？
業務システムの現場では、「画面解像度が変わっても崩れない」「オペレーターの視線移動を最小限にする」「特定条件で特定パーツだけが伸縮する」といった厳格なUI要件が求められる。
イベントドリブンで `Control.Left` や `Control.Top` を個別に書き換えるコードは、保守フェーズにおいて必ず「呪われたレガシーコード」と化す。
WinFormsの内部機構は、レイアウト計算と描画を分離している。フレームワークが提供する `LayoutEngine` のライフサイクルに正しくフックすることで、フォームのリサイズや子コントロールの追加・削除に伴うレイアウト要求（`PerformLayout`）を、一元管理かつ最適化されたタイミングで処理できるようになるのだ。
—
2. 堅牢なカスタムレイアウトエンジンの設計方針
今回作成するのは、「指定された最大幅を超えると自動的に次の行へ折り返し、各コントロールの `MinimumSize` と `MaximumSize` を厳密に考慮しながら、余白を均等配分してタイル状に美しく整列する【タイル・フロー・エンジン】」だ。
バグの起きない堅牢な設計にするため、以下の原則を厳守する。
1. 無限ループの防止: レイアウト計算内で無駄な `Invalidate` や再帰的な `PerformLayout` を呼ばない。
2. GC（ガベージコレクション）負荷の軽減: レイアウト計算（`Layout` メソッド）は頻繁に走るため、ループ内で不要なオブジェクト生成（特に `New` によるインスタンス化）を極力排除する。
3. スレッドセーフティ: UIスレッド以外からのレイアウト要求に対しては、適切にマーシャリングされるWinFormsの基底設計を阻害しない。
—
3. プロダクションコード：カスタムレイアウトエンジンの実装
以下のコードは、そのままプロジェクトに組み込んで即座に利用できるプロダクションクオリティのVB.NETコードだ。
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Windows.Forms.Layout
Namespace CustomUI.Layouts
‘ =================================================================
‘ 1. カスタムレイアウトエンジン本体
‘ =================================================================
Public Class TileFlowLayoutEngine
Inherits LayoutEngine
Public Overrides Function [Layout](container As Object, e As LayoutEventArgs) As Boolean
Dim parent As Control = TryCast(container, Control)
If parent Is Nothing OrElse parent.Controls.Count = 0 Then
Return MyBase.Layout(container, e)
End If
‘ パディングとクライアント領域の取得
Dim clientRect As Rectangle = parent.ClientRectangle
Dim padding As Padding = parent.Padding
Dim currentX As Integer = padding.Left
Dim currentY As Integer = padding.Top
Dim maxRowHeight As Integer = 0
‘ 利用可能な最大幅
Dim maxAvailableWidth As Integer = clientRect.Width – padding.Horizontal
‘ 子コントロールを順次配置
For Each ctrl As Control In parent.Controls
If Not ctrl.Visible Then Continue For
‘ コントロールのサイズ決定（PreferredSizeまたは現在のサイズを基準）
Dim sz As Size = ctrl.GetPreferredSize(New Size(maxAvailableWidth, 0))
‘ 制約サイズの適用
sz.Width = Math.Max(ctrl.MinimumSize.Width, Math.Min(sz.Width, ctrl.MaximumSize.Width))
sz.Height = Math.Max(ctrl.MinimumSize.Height, Math.Min(sz.Height, ctrl.MaximumSize.Height))
‘ 折り返し判定
If currentX + sz.Width > maxAvailableWidth + padding.Left Then
currentX = padding.Left
currentY += maxRowHeight + 6 ‘ 行間パディング: 6px
maxRowHeight = 0
End If
‘ 座標とサイズを確定（Boundsの設定がレイアウトの核心）
ctrl.SetBounds(currentX, currentY, sz.Width, sz.Height)
‘ 次のコントロールのX座標へ
currentX += sz.Width + 6 ‘ 列間パディング: 6px
maxRowHeight = Math.Max(maxRowHeight, sz.Height)
Next
‘ レイアウト処理が完全に親へ伝播した場合は False を返す（標準動作の継続）
Return False
End Function
End Function
‘ =================================================================
‘ 2. 専用カスタムパネルコントロール
‘ =================================================================
Public Class TileFlowPanel
Inherits Panel
Private ReadOnly _layoutEngine As New TileFlowLayoutEngine()
‘ 標準のLayoutEngineプロパティをシャドウイング（独自のエンジンを強制）
Public Overrides ReadOnly Property LayoutEngine As LayoutEngine
Get
Return _layoutEngine
End Get
End Property
Public Sub New()
MyBase.New()
‘ ダブルバッファリングを有効化し、リサイズ時のちらつきを完全に排除
Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or _
ControlStyles.OptimizedDoubleBuffer Or _
ControlStyles.ResizeRedraw Or _
ControlStyles.UserPaint, True)
Me.AutoScroll = True
End Sub
End Class
End Namespace
—
4. 現場で活きる！データベース・ファイル連携時の実務知見
この `TileFlowPanel` を実際の業務システム（例えば、DBから取得したマスターデータやファイルサーバー上の画像・ドキュメントアイコンを動的にタイル状に並べるツール）で運用する際の実務上の注意点を授けよう。
① 大量データバインド時のUIフリーズ防衛策
データベースから数千件のレコードを取得し、それぞれに対応するユーザーコントロール（例：`DataCardControl`）を `TileFlowPanel.Controls.Add` する場合、1件追加するごとにレイアウトエンジンが走り、画面が完全にフリーズする。
これを防ぐためには、コントロールの一括追加時に `SuspendLayout` と `ResumeLayout` を必ずラップすること。
‘ 大量データ追加のベストプラクティス
tileFlowPanel1.SuspendLayout()
Try
tileFlowPanel1.Controls.Clear() ‘ 既存クリア
Dim controlsToAdd As New List(Of Control)()
For Each row As DataRow In dataTable.Rows
Dim card = New DataCardControl(row(“ItemName”).ToString())
controlsToAdd.Add(card)
Next
‘ 一括でAddRangeすることで、レイアウト発生回数を「1回」に収める
tileFlowPanel1.Controls.AddRange(controlsToAdd.ToArray())
Finally
tileFlowPanel1.ResumeLayout(True) ‘ ここで初めて一括レイアウト計算が走る
End Try
② 非同期ファイル読み込みとの非同期協調
ファイルサーバーからサムネイル画像などを遅延ロードしつつ並べる場合、画像読み込み完了イベント（スレッドプールから飛んでくる）で直接コントロールのサイズを変更してはならない。
必ず `Invoke` または `BeginInvoke` を経由してUIスレッドに戻し、その上で `InvalidateLayout` を呼び出すこと。カスタムエンジン自体はスレッドセーフではないため、UIスレッド外からのレイアウト操作は厳禁である。
—
5. チーフアーキテクトからの総括
今回紹介した `LayoutEngine` の拡張は、一見するとハードルが高く見えるかもしれない。しかし、イベントドリブンによる場当たり的な座標計算の呪縛から解放され、フレームワークのライフサイクルに完全に寄り添った設計を手に入れたとき、あなたの作るWindows Formsアプリケーションの品質は別次元へと到達する。
「動かない」「重い」「コードがスパゲッティ」と言われがちなWinFormsだが、底知れぬポテンシャルを秘めている。
ぜひ自身のプロジェクトにこの知見を組み込み、圧倒的なパフォーマンスと保守性を誇る業務システムを構築してほしい。
