泥沼の「コピペ開発」に終止符を。VB.NETカスタムコントロールによるUI標準化の極意
業務システム開発において、フォームごとにバリデーションロジックを散乱させるのは「技術的負債」を自ら積み上げているに等しい。特に日付入力や数値入力といった頻出パーツを、毎回 `TextBox` を貼り付けてイベントハンドラを書いて……などとやっているようでは、一生メンテナンス地獄から抜け出せない。
今回は、`UserControl` を継承し、堅牢かつ再利用可能な「業務特化型入力パーツ」を設計するアーキテクチャを伝授する。
—
1. なぜ「継承」か？ それは変更を「一箇所」で完結させるためだ
多くの初学者は、フォーム上に直接コントロールを配置し、`TextChanged` イベントでバリデーションを書く。だが、仕様変更があったらどうする？ 100画面あれば100箇所の修正が必要だ。
我々が目指すのは「カプセル化された部品」だ。コントロール自身にバリデーションと和暦変換の責務を持たせる。これにより、呼び出し側のフォームは「値が正しいか」を気にせず、ただ結果を受け取るだけのクリーンな状態を保てる。
—
2. 実装：堅牢な「和暦対応日付入力コントロール」
まずは、日付入力に特化したカスタムコントロールのプロトタイプを見てほしい。ここで重要なのは、`System.ComponentModel` を活用し、プロパティエディタでの使い勝手を考慮することだ。
.net
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Globalization
”’
”’
Public Class DateInputControl
Inherits UserControl
Private WithEvents _txtInput As New TextBox With {.Dock = DockStyle.Fill}
Public Sub New()
Me.Controls.Add(_txtInput)
‘ デザイン時のサイズ調整を適切に行う
Me.Height = 25
End Sub
‘ プロパティ定義: 外部から値を取得・設定するための窓口
Public Property Value As DateTime?
Get
Dim result As DateTime
If DateTime.TryParse(_txtInput.Text, result) Then Return result
Return Nothing
End Get
Set(value As DateTime?)
_txtInput.Text = If(value.HasValue, value.Value.ToString(“yyyy/MM/dd”), “”)
End Set
End Property
‘ 入力時のバリデーション処理
Private Sub _txtInput_Validating(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles _txtInput.Validating
If String.IsNullOrWhiteSpace(_txtInput.Text) Then Return
Dim dt As DateTime
‘ ここで業務ロジックに基づく日付チェックを実行
If Not DateTime.TryParse(_txtInput.Text, dt) Then
MessageBox.Show(“正しい日付形式で入力してください（例: 2023/04/01）”, “入力エラー”, MessageBoxButtons.OK, MessageBoxIcon.Error)
e.Cancel = True ‘ フォーカス移動を阻止し、入力を強制させる
End If
End Sub
End Class
—
3. アーキテクトが教える「陥りやすい罠」と対策
① イベントの二重発行を防ぐ
コントロール内部の `TextBox` のイベントを公開しすぎないこと。外部には「値（Value）」というインターフェースだけを提供し、内部の `TextBox` はあくまで実装の詳細として隠蔽する。これが疎結合の鉄則だ。
② データベース連携時の落とし穴
`DBNull` の扱いに注意せよ。VB.NETの型安全性を過信し、`Nothing` をそのままSQLに投げれば例外が発生する。
- 対策: コントロール側で `Nullable(Of DateTime)` を返し、データアクセス層（DAL）側で `If(value, DBNull.Value)` を適用する変換ロジックを必ず挟むこと。
③ デザインタイムの挙動
`UserControl` は、デザイン画面で動かした時に `New()` が呼ばれる。データベース接続などの重い処理をコンストラクタに書くと、Visual Studioが頻繁にクラッシュする原因になる。「デザインモード判定」を必ず組み込むのがプロの流儀だ。
.net
If Not Me.DesignMode Then
‘ ここに実行時の初期化ロジックを書く
End If
—
4. なぜこの設計が最強なのか
1. 保守性の向上: バリデーションルール（例：未来日入力禁止など）を修正したければ、このクラスの `Validating` イベントを直すだけ。システム全体に即座に反映される。
2. 型安全性: `String` を直接やり取りするのではなく、`DateTime?` を通すことで、無効な文字列がシステム内部で循環するのを防げる。
3. 生産性: フォーム開発者は、ツールボックスからコントロールをドラッグ＆ドロップするだけで、既に「和暦変換とバリデーション機能」が備わった部品を手に入れられる。
結び：エンジニアとしての誇り
「動けばいい」コードを書くのは誰にでもできる。だが、「誰が使ってもバグを生みにくい部品」を設計できるのは、アーキテクチャを理解したエンジニアだけだ。
このカスタムコントロールの実装をテンプレートとして、あなたの現場の「共通ライブラリ」を構築してほしい。それが、単なる作業者から「自動化エンジニア」へと脱皮する第一歩となる。
次回のテーマは、「DIコンテナを用いたフォーム間の疎結合通信」について深掘りする予定だ。準備はいいか？
