【VB.NET極限活用】現場を救う！検証機能付きカスタムコントロールの設計と実装
開発現場でこんな絶望を味わったことはないか？
「システム全体で50画面あるのに、必須入力チェックの仕様変更で全画面の修正が発生した」
「テキストボックスに入力できる文字種の制御が、担当プログラマの気まぐれでバラバラになっている」
VB.NETによる業務アプリケーション開発において、UIの統制はプロジェクトの成否を握る生命線だ。画面ごとに似たような入力チェックコードをコピペで量産する時代は、今日で終わらせる。
今回は、アーキテクトである私が、`UserControl`（ユーザーコントロール）と`Inherited Control`（継承コントロール）を適材適所へ配置し、堅牢かつ保守性の高い「検証機能付きカスタムテキストボックス」を構築する極限の知見を授けよう。
—
1. なぜ「コピペ開発」は滅びるべきなのか？
業務アプリのUI設計において、最もやってはいけないアンチパターンが「標準コントロールの裸使い」だ。
例えば、社員番号を入力させるテキストボックスがあったとしよう。
- 画面A：`TextBox1_Validating` イベントで半角英数チェック
- 画面B：ボタンクリック時に正規表現でバリデーション
- 画面C：チェック忘れ（バグ）
これではアプリケーション全体の品質が担保できない。
「UIの振る舞い（挙動）とバリデーションロジックは、コントロール自身にカプセル化すべきである」
これが、大規模・長寿命な業務システムを破綻させないための絶対原則だ。
—
2. ２つのアプローチの使い分け：UserControl vs Inherited Control
カスタム部品を作る際、我々は常に2つの選択肢のどちらを選ぶべきか迫られる。
1. UserControl（複合コントロール）
- 特徴: 複数のコントロール（例：TextBox + Label + Button）を一つの部品としてまとめる。
- ユースケース: 住所検索ボタン付き郵便番号入力欄など。
2. Inherited Control（継承コントロール）
- 特徴: 既存のコントロール（`TextBox` や `ComboBox` など）を継承し、機能を拡張・特化させる。
- ユースケース: 入力制限機能を持たせたテキストボックス、自動でフォーカス時全選択するテキストボックスなど。
今回は、純粋に「テキストボックスとしての機能を維持しつつ、強力な検証機能とデザインの標準化を付加する」ため、Inherited Controlを採用する。
—
3. 実践：バグを寄せ付けない「ValidatedTextBox」の全体像
それでは、プロダクション環境でそのまま使える実用コードを公開する。
このコントロールは以下の要件を満たす。
- 必須入力チェック（`IsRequired`）
- 最大文字数チェック（`MaxLength` のラップ）
- 入力モードの自動制御（数値のみ、半角英数など）
- 検証エラー時に視覚的フィードバック（背景色変更）を行う
プロダクションコード：`ValidatedTextBox.vb`
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Drawing
”’
”’
Public Class ValidatedTextBox
Inherits TextBox
‘ — 独自プロパティの定義 —
Private _isRequired As Boolean = False
Public Property IsRequired As Boolean
Get
Return _isRequired
シルク_Set(ByVal value As Boolean)
_isRequired = value
Me.Invalidate() ‘ 再描画を促す
End Set
End Property
Private _customErrorMessage As String = “この項目は必須です。”
Public Property CustomErrorMessage As String
Get
Return _customErrorMessage
End Get
Set(ByVal value As String)
_customErrorMessage = value
End Set
End Property
‘ エラー時の背景色保持用
Private ReadOnly ErrorBackColor As Color = Color.MistyRose
Private ReadOnly NormalBackColor As Color = Color.White
”’
”’
Public Sub New()
MyBase.New()
‘ 初期設定
Me.NormalBackColor = MyBase.BackColor
End Sub
”’
”’
Protected Overrides Sub OnValidating(e As CancelEventArgs)
MyBase.OnValidating(e)
‘ 必須チェック
If _isRequired AndAlso String.IsNullOrWhiteSpace(Me.Text) Then
Me.BackColor = ErrorBackColor
‘ エラープロバイダ等との連携もここで行う
Else
Me.BackColor = NormalBackColor
End If
End Sub
”’
”’
Protected Overrides Sub OnEnter(e As EventArgs)
MyBase.OnEnter(e)
‘ フォーカス取得時に自動で全選択する（数値入力などで極めて有効）
Me.SelectAll()
End Sub
”’
”’
Protected Overrides Sub OnKeyPress(e As KeyPressEventArgs)
MyBase.OnKeyPress(e)
‘ 必要に応じてここに文字種制限ロジックを挟む
‘ 例: 独自プロパティ IsNumericOnly が True の場合の処理など
End Sub
End Class
—
4. アーキテクトが教える実装の急所（Tips）
上記のコードには、単なる「動くコード」を超えた、現場のトラブルを防ぐための知見が詰まっている。
① `OnValidating` メソッドの活用
VB.NETのWindowsフォームには、フォーカスが離れるタイミングで発火する `Validating` イベントが存在する。標準の `TextBox` でも使えるが、これをコントロール内部（`Protected Overrides`）でカプセル化することにより、開発者がイベントハンドラを書き忘れるというヒューマンエラーを物理的に根絶できる。
② UI/UXへの配慮（`OnEnter` での `SelectAll`）
業務アプリのユーザーは毎日大量のデータを入力する。「フォーカスが入った瞬間にテキストが全選択状態になる」仕様は、ユーザーのキーストローク数を劇的に削減する。これを個別の画面で実装させると必ず漏れが出るが、基底クラスに埋め込めば全画面で一瞬にして統一される。
③ デザイナとの親和性
`
—
5. 導入と運用における注意点（データベース・ファイル連携）
自作コントロールをプロジェクトに導入する際、以下の罠に注意せよ。
1. ビルド順序の呪縛
カスタムコントロールを「同じソリューション内の別プロジェクト（クラスライブラリ）」として作成した場合、必ず先にクラスライブラリをビルドしてからでないと、メインのWindows Formsデザイナ上にコントロールがツールボックスから正しく配置できない。ビルドエラーが起きたときは大体これが原因だ。
2. データバインディングとの相性
業務アプリで `DataSource` や `DataBindings.Add` を多用する場合、プロパティ変更通知（INotifyPropertyChangedなど）の設計が必要になる場合がある。単純なテキストの入出力であれば今回のコードで十分耐えうるが、複雑な複合コントロール（UserControl）を作る際はデータバインディングのスコープに細心の注意を払うこと。
—
総括
カスタムコントロールの自作は、単なる「コードの共通化」ではない。
「プロジェクト全体の品質の基準値を引き上げる、極めてレバレッジの高い投資」である。
今回紹介した `ValidatedTextBox` をベースに、日付専用、金額フォーマット自動適用など、あなたの現場特有のルールを詰め込んだ「最強のパーツ群」を育成してほしい。
コピペの呪縛から解放された美しいアーキテクチャで、真に価値のあるビジネスロジックの開発にリソースを集中させよう。
