静的なUI設計を捨てろ：AddHandlerとAddressOfで実現する、極限の動的フォーム構築術
業務システムの世界において、「画面設計書通りにコントロールを配置する」という発想は、時に設計者の限界を示す。
データベースのテーブル定義が拡張されるたびに、あるいはユーザーの権限によって入力項目が変動するたびに、Visual Studioのデザイナを開いてコントロールを引き直しているようでは、真の業務自動化エンジニアとは呼べない。変化するビジネスロジックに追従できるのは、「実行時にUIを自己組織化させる」設計思想だけだ。
本稿では、VB.NETにおける動的コントロール生成の真髄、すなわち `AddHandler` と `AddressOf` を駆使した、堅牢かつスケーラブルな動的UI構築の実務について、その設計思想から実装の極意までを伝授する。
1. なぜ「静的配置」ではいけないのか
一般的な開発者は、フォーム上に `TextBox` や `ComboBox` をドラッグ＆ドロップで配置する。これは小規模なツールでは問題ない。しかし、以下の要件が加わった瞬間、その設計は崩壊する。
1. メタデータ駆動型UI: DBの列定義（カラム名、型、必須属性）に基づいて、入力項目が動的に変わる。
2. 極端な多機能性: 数十、数百のパラメータを、条件に応じて出し分けなければならない。
3. 保守性の限界: 項目が増えるたびに `Form1.Designer.vb` が肥大化し、マージコンフリクトとバグの温床となる。
我々が目指すべきは、「コントロールの生成」と「イベントの配線」を分離し、ロジックによってUIを制御するアーキテクチャである。
2. AddHandler と AddressOf のメカニズムを掌握する
動的UIの要は、生成したコントロールに対して「いつ、どのメソッドを呼び出すか」を、実行時に紐付けることにある。ここで登場するのが `AddHandler` と `AddressOf` だ。
AddressOf：メソッドへのポインタ
`AddressOf` は、単なるキーワードではない。これは、特定のメソッド（ハンドラ）のメモリアドレスを指し示す「デリゲート」を生成するための演算子である。
AddHandler：イベントの動的結合
`AddHandler` は、特定のオブジェクトのイベントに対して、`AddressOf` で指定したメソッドを動的に登録する命令である。
「設計時にイベントを繋ぐ」のではなく、「実行時に契約を結ぶ」。このパラダイムシフトこそが、動的UIの正体である。
3. 【極限の設計図】メモリリークを回避するライフサイクル管理
ここからが、プロフェッショナルとアマチュアを分ける境界線だ。
`AddHandler` を使う際、最も恐ろしいのは「メモリリーク」である。
動的に生成したコントロールがフォームから破棄される際、そのコントロールに紐付けたイベントハンドラが適切に解除（`RemoveHandler`）されていないと、ガベージコレクタ（GC）はコントロールをメモリから解放できない。コントロールが「幽霊」のようにメモリに残り続け、最終的に `OutOfMemoryException` を引き起こすのだ。
鉄則：
1. 生成と破棄のペアを徹底せよ: `AddHandler` を書いたら、必ず対応する `RemoveHandler` を検討せよ。
2. コントロールのオーナーシップを明確にせよ: 生成したコントロールは、必ず親コンテナ（`Panel` や `FlowLayoutPanel`）の `Controls.Clear()` と共に適切に破棄されるルートに乗せよ。
4. プロダクション・コード例：メタデータ駆動型ダイナミックフォーム
以下に、データベースの定義（を模したリスト）から、入力フォームを自動生成し、共通のイベントハンドラで値を回収する、堅牢な実装例を示す。
''' <summary>
''' 動的フォーム生成のマスタークラス
''' </summary>
Public Class DynamicFormEngine
''' <summary>
''' 入力項目の定義（本来はDBから取得する）
''' </summary>
Public Structure FieldDefinition
Public Name As String
Public Label As String
Public ControlType As Type
Public IsRequired As Boolean
End Structure
''' <summary>
''' 動的生成されたコントロールを管理するための辞書
''' これにより、イベント発生時にどの項目かを即座に特定できる
''' </summary>
Private ReadOnly _controlMap As New Dictionary(Of String, Control)
''' <summary>
''' フォームの構築を実行する
''' </summary>
''' <param name="container">コントロールを配置する親コンテナ</param>
''' <param name="definitions">項目の定義リスト</param>
Public Sub BuildForm(container As Control, definitions As List(Of FieldDefinition))
' 既存のコントロールを安全に破棄
ClearContainer(container)
Dim layout As New FlowLayoutPanel()
layout.Dock = DockStyle.Fill
layout.FlowDirection = FlowDirection.TopDown
layout.AutoScroll = True
container.Controls.Add(layout)
For Each def In definitions
' 1. ラベルの生成
Dim lbl As New Label() With {.Text = def.Label, .AutoSize = True}
layout.Controls.Add(lbl)
' 2. コントロールの動的生成
Dim ctrl As Control = DirectCast(Activator.CreateInstance(def.ControlType), Control)
ctrl.Name = def.Name
ctrl.Tag = def ' Tagに定義情報を埋め込むことで、イベント時に属性を参照可能にする
ctrl.Width = 250
' 3. イベントの動的配線 (AddHandler)
' ここでは TextChanged イベントを共通ハンドラに紐付ける
' 実際の業務では、型に応じて TextChanged, SelectedIndexChanged 等を使い分ける
If TypeOf ctrl Is TextBox Then
AddHandler ctrl.TextChanged, AddressOf OnControlValueChanged
ElseIf TypeOf ctrl Is ComboBox Then
AddHandler ctrl.SelectedIndexChanged, AddressOf OnControlValueChanged
End If
' 管理用辞書への登録
_controlMap(def.Name) = ctrl
layout.Controls.Add(ctrl)
Next
End Sub
''' <summary>
''' 共通イベントハンドラ
''' </summary>
Private Sub OnControlValueChanged(sender As Object, e As EventArgs)
Dim source As Control = DirectCast(sender, Control)
Dim def As FieldDefinition = DirectCast(source.Tag, FieldDefinition)
' 業務ロジックへの通知（例：リアルタイムバリデーションや、他項目の連動）
Console.WriteLine($"[Event] Field '{def.Name}' changed. New Value: {source.Text}")
' ここでDB連携やファイル入力を検討するが、UIスレッドを止めないよう注意が必要
End Sub
''' <summary>
''' コンテナ内のコントロールを安全に破棄する
''' </summary>
Private Sub ClearContainer(container As Control)
' コントロールを逆順でループして、イベント解除と破棄を行う
For i As Integer = container.Controls.Count - 1 To 0 Step -1
Dim ctrl = container.Controls(i)
' 【重要】イベントハンドラの解除 (RemoveHandler)
' メモリリークを防ぐため、AddHandlerしたものは必ず解除する
If TypeOf ctrl Is TextBox Then
RemoveHandler DirectCast(ctrl, TextBox).TextChanged, AddressOf OnControlValueChanged
ElseIf TypeOf ctrl Is ComboBox Then
RemoveHandler DirectCast(ctrl, ComboBox).SelectedIndexChanged, AddressOf OnControlValueChanged
End If
ctrl.Dispose()
Next
container.Controls.Clear()
_controlMap.Clear()
End Sub
''' <summary>
''' 現在の入力値を一括取得する
''' </summary>
Public Function GetValues() As Dictionary(Of String, String)
Dim results As New Dictionary(Of String, String)
For Each kvp In _controlMap
results(kvp.Key) = kvp.Value.Text
Next
Return results
End Function
End Class5. 実務における「落とし穴」と回避策
DB・ファイル連携時のスレッド管理
動的フォームのイベント（`TextChanged` 等）内で、直接データベースへのクエリや重いファイル読み込みを行ってはならない。これは、ユーザー体験を著しく損なう「UIフリーズ」の最大の原因だ。
- 解決策: `Async/Await` を活用せよ。イベントハンドラ自体を `Async Sub` とし、データ取得部分は `Task.Run` または非同期メソッドで実行し、結果を `Invoke` でUIに反映させる設計を徹底すること。
バリデーションの責務
動的なコントロールは、型が不確定である。
- 解決策: `FieldDefinition` 構造体に `ValidationRule`（正規表現や範囲指定）を持たせ、`OnControlValueChanged` 内で、`Tag` に格納されたルールに基づいて即時検証を行う。これにより、データ整合性を「入力時」に担保できる。
結言：アーキテクトとしての視座
動的フォームの構築は、単なるテクニックではない。それは、「変化を前提としたシステム設計」への挑戦である。
`AddHandler` と `AddressOf` を使いこなすことは、コードの柔軟性を引き出すと同時に、メモリ管理というエンジニアとしての規律を問われることでもある。単に「動く」コードを書くのではなく、「変化に強く、リソースを浪費しない」コードを書くこと。それこそが、プロフェッショナルな業務自動化エンジニアが目指すべき到達点である。
さあ、静的なデザイナを閉じ、コードでUIを支配する準備を始めよう。
