【テクニカル・上級編】VB.NETによるカスタムUIコントロールの自作：UserControlとInherited Controlを駆使した業務アプリの共通部品化 – Visual Basic (VB / VB.NET)解析バイブル

企業システムを支配せよ：VB.NETによるカスタムUIコントロール極限活用論

多くのSIerや事業会社で稼働する巨大なWindows Forms（WinForms）アプリケーション群。その寿命は予想を遥かに超えて延命され続けている。
「画面ごとにバリデーションロジックが散在している」「担当者によって入力値の制御がバラバラで、DB登録時に例外が多発する」。
こうした現場の悲鳴を根絶するため、我々は散らばったUIの断片を統合し、要塞のごとき堅牢性を持つ「カスタムUIコントロール」として再定義しなければならない。

今回は、VB.NETにおける`UserControl`（合成コントロール）と`Inherited Control`（継承コントロール）の挙動を極限まで理解し、メモリリークの罠を回避しながら、業務アプリの品質を強制的に統一するアーキテクチャを解説する。

—

1. なぜ「継承コントロール」と「合成コントロール」を使い分けるべきか

UI部品化の失敗の多くは、アプローチの選択ミスから始まる。

• Inherited Control (継承コントロール): `TextBox` や `Button` などの既存クラスを継承する。ネイティブのAPI挙動を維持しつつ、機能の「拡張」に最適。
• UserControl (合成コントロール): 複数のコントロールをコンテナ上で組み上げる。複合的な入力フォーム（例：郵便番号＋住所検索ボタン）の「カプセル化」に最適。

業務アプリの入力規則（フォーカス時の背景色変更、半角英数強制、IME制御など）において、既存の `TextBox` を一から `UserControl` で包むのは悪手だ。タブオーダーの狂いや、デザイナ上でのプロパティ露出漏れなど、無駄なオーバーヘッドを生む。
「単一コントロールの拡張は継承、複数コントロールの結合はUserControl」。これが鉄則である。

—

2. 実装：業務必須要件を網羅した「セキュア・バリデーション・テキストボックス」

ここでは、基幹システムで求められる「フォーカス取得時のハイライト」「IME自動制御」「数値・桁数制限」を内包した継承コントロールをVB.NETで実装する。

さらに、業務アプリの鬼門である「フォントやDPIのスケーリング崩れ」「API呼び出しによるメモリ最適化」をも考慮した、実戦投入可能なコードを提示する。

Imports System.Windows.Forms
Imports System.Drawing
Imports System.ComponentModel

”’

Public Class ValidatedTextBox
Inherits TextBox

‘ — 独自プロパティの定義 —
Private _IsRequired As Boolean = False


Public Property IsRequired() As Boolean
Get
Return _IsRequired
Get
Set(ByVal value As Boolean)
_IsRequired = value
Me.Invalidate() ‘ 再描画を強制
End Set
End Property

Private _MaxByteLength As Integer = 0


Public Property MaxByteLength() As Integer
Get
Return _MaxByteLength
Get
Set(ByVal value As Integer)
_MaxByteLength = value
End Set
End Property

‘ フォーカス時の背景色（静的アロケーションを避け、GC負荷を抑制）
Private ReadOnly FocusColor As Color = Color.LightYellow
Private ReadOnly DefaultColor As Color = Color.White

Public Sub New()
MyBase.New()
‘ ダブルバッファリングの有効化による描画パフォーマンスの極限最適化
Me.SetStyle(ControlStyles.OptimizedDoubleBuffer Or _
ControlStyles.AllPaintingInWmPaint Or _
ControlStyles.UserPaint, True)
End Sub

”’

Protected Overrides Sub OnGotFocus(ByVal e As EventArgs)
MyBase.OnGotFocus(e)
Me.BackColor = FocusColor

‘ 必要に応じてここでWin32 API(ImmAssociateContext等)を叩き、IMEを強制制御する拡張も可能
End Sub

”’

Protected Overrides Sub OnLostFocus(ByVal e As EventArgs)
MyBase.OnLostFocus(e)

‘ 必須チェック
If _IsRequired AndAlso String.IsNullOrWhiteSpace(Me.Text) Then
Me.BackColor = Color.MistyRose
Else
Me.BackColor = DefaultColor
End If
End Sub

”’

Protected Overrides Sub OnKeyPress(ByVal e As KeyPressEventArgs)
MyBase.OnKeyPress(e)

If _MaxByteLength > 0 Then
‘ 制御文字（バックスペース等）はスルー
If Char.IsControl(e.KeyChar) Then Return

‘ Shift JIS等でのバイト数換算を想定した厳密な長さをチェック
Dim sjis As System.Text.Encoding = System.Text.Encoding.GetEncoding(“Shift_JIS”)
Dim currentBytes As Integer = sjis.GetByteCount(Me.Text)

If currentBytes >= _MaxByteLength Then
e.Handled = True ‘ 入力をキャンセル
System.AppDomain.CurrentDomain.GetType() ‘ ダミー（必要に応じビープ音等）
Console.Beep()
End If
End Sub
End Sub

”’

Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing Then
‘ マネージドリソースの解放
‘ イベントハンドラの解除漏れがないかここで確認すること
End If
‘ アンマネージドリソースの解放（必要な場合）
Finally
MyBase.Dispose(disposing)
End Try
End Sub
End Class

—

3. アーキテクチャの急所：メモリリークとガベージコレクションの制御

WinFormsアプリが数日稼働するとメモリを食いつぶしていく現象。その原因の多くは、カスタムコントロール内で登録したイベントハンドラの解放忘れにある。

親フォームが破棄されても、カスタムコントロールがアプリケーション全体の静的イベント（例：共通メッセージバスやログイン状態監視など）に `AddHandler` されたままになっていると、GC（ガベージコレクタ）は当該コントロールオブジェクトを回収できない。これが「メモリリークの温床」である。

対策：IDisposable パターンの徹底

カスタムコントロールや、それを配置するUserControlを設計する際は、必ず `Dispose` メソッドをオーバーライドし、自身が購読している外部イベントをすべて `RemoveHandler` せよ。

‘ イベント解除のイディオム
Private Sub UnsubscribeEvents()
‘ 例：グローバルイベントからの離脱
‘ RemoveHandler GlobalEventManager.StatusChanged, AddressOf OnStatusChanged
End Sub

—

4. レガシー連携・Win32 APIの直接鎮圧

業務アプリでは、標準コントロールのプロパティだけでは制御できない領域に直面する。例えば、「テキストボックスのプレースホルダー（透かし文字）表示」や「タスクバーの点滅による警告」などだ。

VB.NETから直接Windows API（User32.dll）を叩き、カスタムコントロールの機能を拡張する手法を提示する。

Imports System.Runtime.InteropServices

Public Class AdvancedTextBox
Inherits TextBox

‘ Win32 APIのインポート

Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wParam As IntPtr, ByVal lParam As String) As IntPtr
End Function

Private Const EM_SETCUEBANNER As Integer = &H1501

”’

Public Sub SetWatermark(ByVal watermarkText As String)
If Me.IsHandleCreated Then
SendMessage(Me.Handle, EM_SETCUEBANNER, IntPtr.Zero, watermarkText)
End If
End Sub

Protected Overrides Sub OnHandleCreated(ByVal e As EventArgs)
MyBase.OnHandleCreated(e)
‘ ハンドル生成時にプレースホルダーを再適用
‘ (DPIスケーリングや親変更時のロストを防ぐ)
End Sub
End Class

APIを呼び出す際は、必ず `Me.IsHandleCreated` を確認すること。WinFormsの初期化ライフサイクルにおいて、ハンドルが生成される前にAPIを叩くと、NullReferenceExceptionや致命的なアクセス違反（AccessViolationException）を引き起こす。これはシニアエンジニアであれば絶対に踏んではならない地雷である。

—

5. チーフアーキテクトからの提言：ガバナンスなき共通化は「負債の複製」である

カスタムUIコントロールの自作は、社内システムの品質を劇的に向上させる特効薬である。しかし、設計思想の共有なきまま現場のプログラマーに勝手な改修を許すと、数ヶ月後には「どのバージョンが最新か分からない魔改造コントロールの山」が築かれることになる。

1. コントロールは単一のクラスライブラリ（DLL）プロジェクトとして完全分離せよ。
2. 変更履歴とバージョン管理（SemVerなど）を厳格に適用せよ。
3. デザイナでの表示崩れを防ぐため、常に `DesignMode` 判定を考慮したロジックを組め。

VB.NETは、その長い歴史ゆえに「古い言語」と揶揄されることがある。だが、メモリとフレームワークの挙動を完全に掌握した者が書いたVB.NETのコードベースは、現代のどのモダン言語のアプリケーションよりも堅牢で、予測可能で、保守しやすい。

自らの手でアーキテクチャを統制し、レガシーの荒野に秩序をもたらせ。