【実務・中級編】Windows Formsにおける派生コントロールの作成：TextBoxを継承して「フォーカス取得時に全選択」「エンターキーで次へ移動」「バリデーション色変更」を標準装備した社内共通入力パーツの開発 – Visual Basic (VB / VB.NET)解析バイブル

【Windows Forms設計論】コピペ開発からの脱却！業務アプリの品質を底上げする「最強の継承TextBox」の作り方

こんにちは。開発プロジェクトのリーダー、そしてアーキテクトとして日々数々の業務システムを見てきた私に言わせれば、「どの画面を開いても、TextBoxのGotFocusイベントに `SelectAll()` を手書きしているコード」を見かけた瞬間、そのプロジェクトの設計破綻の未来が透けて見えます。

「全画面でエンターキーを押したら次のコントロールにフォーカスを移したい」
「未入力やエラーのときは背景色を薄い赤に変えたい」
「数字しか入れたくない項目で、制御を毎回書きたい」

これらをすべてのフォーム、すべてのTextBoxで個別実装（あるいはコピペ）していませんか？
そんな非効率なアプローチは今日で終わりにしましょう。

今回は、VB.NETのオブジェクト指向の恩恵を最大限に引き出し、Windows FormsにおけるUI開発の生産性を爆発的に向上させる「カスタム継承コントロール」の実装手法を授けます。

—

1. なぜ「コピペ開発」が地獄を生むのか？

業務アプリケーションにおいて、入力フォームの挙動の統一性はユーザービリティ（UX）の基本です。しかし、これを各画面のイベントハンドラや共通関数に頼ろうとすると、以下の問題が必ず発生します。

1. 修正漏れ地獄: 仕様変更で「エンターキーの挙動を変えたい」となった時、数十〜数百あるフォームのコードを修正する羽目になります。
2. イベントの競合: 開発者が変わるたびに似たようなロジックが異なるイベント（`Enter`, `KeyDown`, `Validating`等）にバラバラに記述され、予期せぬフォーカス泥棒や無限ループが発生します。
3. カプセル化の欠如: データの状態（Valid状態など）がUIコントロールの外側（Formクラス）にべったり依存し、画面のテストが困難になります。

これを解決する唯一にして最高の手段が、`System.Windows.Forms.TextBox` を継承した独自のカスタムコントロールクラスの作成です。

—

2. 設計要件：プロフェッショナルが求める3大機能

今回作成する社内共通入力パーツ `ExTextBox`（Extended TextBox）には、以下の3つの機能を「標準装備」させます。

1. フォーカス取得時の自動全選択 (`SelectAll`): ユーザーが入力済みの値を書き直す際、一発で全選択状態にし、キーストロークを最小化する。
2. Enterキーによるシームレスなフォーカス移動: `Tab` キーだけでなく、`Enter` キーでも自然に次のコントロールへフォーカスを遷移させる（ビープ音も消去する）。
3. バリデーション連動の動的背景色変更: 状態に応じた背景色（通常・エラー・フォーカス中）を自動制御し、視覚的なフィードバックを即座に与える。

—

3. プロダクションコード：実装の全貌

余計な解説は省きます。以下のコードは、そのままあなたのプロジェクトの「Controls」フォルダなどに放り込んで即座にビルドできる堅牢なプロダクションコードです。

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

”’

Public Class ExTextBox
Inherits TextBox

‘ — 内部状態管理用のフィールド —
Private _isError As Boolean = False
Private _normalBackColor As Color = Color.White
Private _errorBackColor As Color = Color.FromArgb(255, 230, 230) ‘ 薄い赤
Private _focusBackColor As Color = Color.FromArgb(255, 255, 204) ‘ 薄い黄色

Public Property IsError As Boolean
Get
Return _isError
End Get
Set(value As Boolean)
_isError = value
UpdateBackgroundColor()
End Set
End Property

Public Property EnableEnterAsTab As Boolean = True

Sub New()
MyBase.New()
‘ 初期値の設定
Me._normalBackColor = MyBase.BackColor
End Sub

”’

Protected Overrides Sub OnGotFocus(e As EventArgs)
MyBase.OnGotFocus(e)

‘ BeginInvokeを使うことで、マウスリックによるフォーカス奪取時にも確実全選択を実現
Me.BeginInvoke(New Action(Sub()
Me.SelectAll()
End Sub))

UpdateBackgroundColor()
End Sub

”’

Protected Overrides Sub OnLostFocus(e As EventArgs)
MyBase.OnLostFocus(e)
UpdateBackgroundColor()
End Sub

”’

Protected Overrides Sub OnKeyDown(e As KeyEventArgs)
If EnableEnterAsTab AndAlso e.KeyCode = Keys.Enter Then
‘ Formの機能を使って次のコントロールへフォーカスを移動
‘ Shift+Enterの場合は逆向きに移動する配慮も忘れない
Dim forward As Boolean = Not e.Shift
SendKeys.Send(IIf(forward, “{TAB}”, “+{TAB}”))

‘ Windows標準の「ピピッ」という警告音を完全に消去する
e.SuppressKeyPress = True
e.Handled = True
End If

MyBase.OnKeyDown(e)
End Sub

”’

Private Sub UpdateBackgroundColor()
If Me.DesignMode Then Return

If _isError Then
MyBase.BackColor = _errorBackColor
ElseIf Me.Focused Then
MyBase.BackColor = _focusBackColor
Else
MyBase.BackColor = _normalBackColor
End If
End Sub

”’

Public Overrides Property BackColor As Color
Get
Return MyBase.BackColor
End Get
Set(value As Color)
If Not _isError AndAlso Not Me.Focused Then
_normalBackColor = value
End If
MyBase.BackColor = value
End Set
End Property

End Class

—

4. チーフアーキテクトが解説する「実装の急所」

上記のコードには、現場で幾度となく遭遇するトラブルを回避するための「匠の技」が組み込まれています。

① `BeginInvoke` によるマウスフォーカス時の全選択バグ回避

TextBoxがフォーカスを得る時、キーボードによる移動（Tabキー等）と、マウスによる直接クリックではイベントのライフサイクルが微妙に異なります。特にマウスでクリックされた場合、`OnGotFocus` 内で単に `SelectAll()` を呼ぶだけだと、クリックした瞬間のカーソル位置によって選択が解除されてしまうという現象が起きます。
これを `BeginInvoke` でメッセージキューの末尾に遅延実行させることで、確実な全選択を実現しています。

② `SuppressKeyPress` によるビープ音の完全排除

Windows Formsで `Enter` キーをハンドリングする際、これを怠るとOS標準の不快な警告音（ピピッ）が鳴り響きます。`e.SuppressKeyPress = True` を指定することで、キー入力をフォームに消費させず、安全に `SendKeys.Send(“{TAB}”)` へルーティングしています。

③ デザイナモードへの配慮 (`Me.DesignMode`)

カスタムコントロール開発で最もやりがちなミスが、Visual Studioのデザイナ画面を開いただけでクラッシュする不具合です。`UpdateBackgroundColor` 内に `If Me.DesignMode Then Return` を挟むことで、デザイン時と実行時のコンテキストを安全に分離しています。

—

5. 導入方法と実務での運用ルール

1. ソリューションへの組み込み:
上記のコードをプロジェクト内に `ExTextBox.vb` という名前で保存し、プロジェクトを一度ビルドします。
2. ツールボックスへの自動出現:
ビルドが成功すると、Visual Studioのツールボックスの最上部に、自動的に `ExTextBox` がアイコン付きで現れます。
3. フォームへの配置:
従来の `TextBox` の代わりに、この `ExTextBox` をドラッグ＆ドロップして配置するだけです。これだけで、全画面で一貫した「プロ仕様の入力挙動」が手に入ります。

バリデーション連携の例（フォーム側）

入力チェックでエラーになった際も、以下のように非常にスマートに記述できます。

Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
If String.IsNullOrWhiteSpace(txtUserName.Text) Then
‘ エラー状態をTrueにするだけで、自動的に背景色が赤に変わる！
txtUserName.IsError = True
MessageBox.Show(“ユーザー名を入力してください。”, “入力エラー”, MessageBoxButtons.OK, MessageBoxIcon.Warning)
txtUserName.Focus()
Return
End If

‘ 正常に戻す場合
txtUserName.IsError = False
End Sub

—

総括

オブジェクト指向の基本である「継承」と「カプセル化」をWindows Formsのコントロールに応用するだけで、コードの量は劇的に減り、保守性は圧倒的に向上します。

「動けばいいや」のコピペコーディングから脱却し、メンテナンスコストの低い美しいアーキテクチャを構築することこそが、私たちプロフェッショナルエンジニアの使命です。明日からのあなたの開発現場で、ぜひこの `ExTextBox` を導入してみてください。生産性の違いに驚くはずです。