【テクニカル・上級編】Windows Formsにおけるユーザー定義コントロールの継承：TextBoxを拡張して「フォーカス取得時の全選択」と「エラー時背景色変更」を標準装備した共通パーツの作り方 – Visual Basic (VB / VB.NET)解析バイブル

Windows Formsにおける「再利用可能なUI部品」の極意：継承によるTextBoxの高度な抽象化

開発現場において、最も忌むべき悪習の一つは、「同じロジックを、異なるFormのイベントハンドラに何度も書き散らすこと」である。

「フォーカスが当たったら全選択する」「バリデーションエラー時に背景色を変える」——これらは一見、些細なUIの振る舞いに見える。しかし、100画面、1000画面と規模が拡大したシステムにおいて、これらのロジックが各Formの `Enter` イベントや `Validating` イベントに散在している状況は、技術的負債の温床でしかない。修正が必要になった際、全てのFormを巡回してコードを書き換える作業は、エンジニアの時間を浪費するだけでなく、修正漏れによる不整合を必然的に招く。

我々プロフェッショナルが目指すべきは、「振る舞いをオブジェクトの中に閉じ込める（Encapsulation）」ことだ。

本稿では、Windows Formsにおける「コントロールの継承」を用い、標準の `TextBox` を拡張して、高度なUI制御を標準装備した「スマートな共通パーツ」を構築する手法を解説する。これは単なるテクニックではない。保守性と堅牢性を担保するための、アーキテクチャ設計の根幹である。

1. 継承による抽象化の設計思想

なぜ「コンポジション（合成）」ではなく「継承」なのか。
今回の目的は、既存の `TextBox` が持つ「テキスト入力」という強力な機能を、そのままに「特定の振る舞い」を付加することにある。`TextBox` クラスのプロパティ、メソッド、イベントをすべて引き継ぎつつ、特定のイベントに対する応答（Response）だけを上書き（Override）する。これが最も効率的で、利用側のコードを汚さない手法となる。

設計する `SmartTextBox` クラスの要件は以下の通りである。

1. Focus-on-SelectAll: フォーカスを得た際、既存のテキストを即座に全選択する。
2. ErrorState Management: `IsError` プロパティを介して、エラー状態を視覚的に表現する。

2. 実装：SmartTextBox の設計図

以下に、VB.NETを用いた実装例を示す。単に動くだけのコードではない。メモリ効率と、Windows メッセージループの性質を考慮した設計である。

Imports System.ComponentModel
Imports System.Runtime.InteropServices

''' <summary>
''' 業務アプリケーション向けの拡張TextBox。
''' フォーカス時の全選択およびエラー状態の視覚化を標準装備する。
''' </summary>
<DefaultEvent("TextChanged")>
Public Class SmartTextBox
    Inherits TextBox

    ' --- Windows API の定義 ---
    ' 高度な制御が必要な場合、SendMessageを使用してWindowsメッセージを直接送る手法もあるが、
    ' TextBox.SelectAll() は内部的に適切に実装されているため、ここでは標準メソッドを使用する。
    ' ただし、フォーカス制御のタイミングを制御するためにメッセージループの理解は不可欠である。

    ' --- フィールド ---
    Private _isError As Boolean = False
    Private _errorBackColor As Color = Color.MistyRose
    Private _normalBackColor As Color = Color.White

    ' --- プロパティ ---

    ''' <summary>
    ''' エラー状態かどうかを制御する。
    ''' Trueの場合、背景色をエラー色に変更する。
    ''' </summary>
    <Category("Appearance")>
    <Description("エラー状態 true の場合、背景色をエラー色に変更します。")>
    Public Property IsError As Boolean
        Get
            Return _isError
        End Get
        Set(value As Boolean)
            _isError = value
            UpdateVisualState()
        End Set
    End Property

    ''' <summary>
    ''' エラー時の背景色を設定する。
    ''' </summary>
    <Category("Appearance")>
    <Description("エラー状態の時の背景色を指定します。")>
    Public Property ErrorBackColor As Color
        Get
            Return _errorBackColor
        End Get
        Set(value As Color)
            _errorBackColor = value
            UpdateVisualState()
        End Set
    End Property

    ' --- コンストラクタ ---

    Public Sub New()
        MyBase.New()
        ' 初期状態の設定
        _normalBackColor = Me.BackColor
    End Sub

    ' --- イベントハンドラ ---

    ''' <summary>
    ''' Enterイベント（フォーカス取得時）をオーバーライド。
    ''' ユーザーの利便性を高めるため、入力を容易にする全選択を行う。
    ''' </summary>
    Protected Overrides Sub OnEnter(e As EventArgs)
        MyBase.OnEnter(e)
        ' Windowsのフォーカス遷移のタイミングを考慮し、
        ' 確実にテキストが選択されるように制御する。
        Me.SelectAll()
    End Sub

    ''' <summary>
    ''' Leaveイベント（フォーカス喪失時）をオーバーライド。
    ''' </summary>
    Protected Overrides Sub OnLeave(e As EventArgs)
        MyBase.OnLeave(e)
        ' フォーカスが外れた際に全選択を解除する
        Me.SelectionLength = 0
    End Sub

    ' --- 内部メソッド ---

    ''' <summary>
    ''' プロパティの変更に応じて、コントロールの外観を更新する。
    ''' </summary>
    Private Sub UpdateVisualState()
        If _isError Then
            Me.BackColor = _errorBackColor
        Else
            Me.BackColor = _normalBackColor
        End If
        
        ' 再描画を強制し、GDIリソースの整合性を保つ
        Me.Invalidate()
    End Sub

    ''' <summary>
    ''' オブジェクトの破棄プロセス。
    ''' カスタムコントロールで外部リソース（GDIハンドル等）を扱う場合は、
    ''' 必ずここで明示的に解放を行う必要がある。
    ''' </summary>
    Protected Overrides Sub Dispose(disposing As Boolean)
        If disposing Then
            ' Managedリソースの解放
        End If
        ' Unmanagedリソースの解放（必要に応じて）
        MyBase.Dispose(disposing)
    End Sub

End Class

3. アーキテクトの視点：極限の知見

この実装には、単なる「機能追加」以上の意図が込められている。

A. メッセージループとイベントのタイミング

`TextBox.SelectAll()` を `GotFocus` イベントで呼び出すと、環境やOSのメッセージ処理のタイミングによっては、フォーカスが当たった直後にカーソルが末尾に移動してしまい、全選択がキャンセルされる現象が起きることがある。
本実装では、Windows Formsにおけるより上位のコンテキストイベントである `OnEnter` を使用している。これにより、コントロールがアクティブ化されるプロセスに確実に割り込むことが可能となる。

B. GDI+ リソースとメモリ管理

Windows Formsは内部的にGDI+ハンドルを使用している。カスタムコントロールにおいて、もし `OnPaint` をオーバーライドして独自の描画を行うような設計にするならば、`Graphics` オブジェクトの適切な `Dispose` は絶対条件である。
本コードでは `UpdateVisualState` 内で `Invalidate()` を呼び出している。これは「描画が必要な領域を無効化し、次のメッセージループで再描画を要求する」という命令であり、即座に描画を強制する `Refresh()` よりも、UIスレッドのブロッキングを最小限に抑えられる、洗練された手法である。

C. プロパティによる宣言的UI

`IsError` プロパティを公開したことは、設計上の大きな転換点である。
これにより、利用側のコード（Form側）は以下のように、極めてシンプルかつ「何をしているか」が明白な記述が可能になる。

' 悪い例（各Formに散在するロジック）
Private Sub txtInput_Validating(sender As Object, e As ValidationEventArgs) Handles txtInput.Validating
    If Not IsValid(txtInput.Text) Then
        txtInput.BackColor = Color.MistyRose
        MessageBox.Show("エラーです")
    Else
        txtInput.BackColor = Color.White
    End If
End Sub

' 優れた例（SmartTextBoxを利用した場合）
Private Sub txtInput_Validating(sender As Object, e As ValidationEventArgs) Handles txtInput.Validating
    ' ビジネスロジックの結果を、プロパティに流し込むだけ。
    ' 振る舞い（色の変更など）はコントロール自身が知っている。
    txtInput.IsError = Not IsValid(txtInput.Text)
End Sub

4. 結論：システムとしての品質

シニアエンジニアが目指すべきは、コードの行数を減らすことではない。「コードの責任範囲を明確にすること」である。

今回作成した `SmartTextBox` は、UIの振る舞いに関する責任を完全に自分自身の中に抱え込んでいる。これにより、将来的に「エラー時の色は赤ではなくオレンジにしたい」という要件変更が発生しても、修正箇所は `SmartTextBox` クラスたった一つで済む。

これこそが、レガシーな巨大システムを、制御可能な「生きたアーキテクチャ」へと昇華させる唯一の道である。継承を正しく使い、オブジェクトのライフサイクルを掌握せよ。そこに、真の自動化エンジニアの価値がある。