数値入力の「あるある」を撲滅する：MaskedTextBoxとNumericUpDownを超えた「究極のカスタムコントロール」自作術
こんにちは。業務自動化の世界へようこそ。
プログラミングを学び始め、Windows Forms（以下WinForms）でアプリケーションを作り始めると、必ずと言っていいほど直面する「壁」があります。それが「数値入力」です。
「金額を入力させたいのに、カンマが入らないと見にくい」
「未入力のときは『0』ではなく『空欄』にしておきたい」
「入力しようとクリックした瞬間、文字が全選択されていれば楽なのに！」
標準の `MaskedTextBox` を使えばカンマは打てますが、柔軟性に欠け、数値としての扱いが面倒です。かといって `NumericUpDown` は、桁数が大きくなると扱いにくく、空欄状態を作るのも一苦労です。
今日は、そんな現場の「あるある」をすべて解決する、「MaskedTextBoxの見た目の良さ」と「NumericUpDownの数値特性」をいいとこ取りしたカスタムコントロールを一緒に作っていきましょう。
ここをマスターすれば、あなたは「単にコードを書く人」から、「ユーザーの使い心地（UX）を設計できるエンジニア」へと一歩踏み出すことができますよ。
1. なぜ「既存のコントロール」では満足できないのか？
設計の前に、まずは敵（課題）を知ることから始めましょう。エンジニアの仕事は、道具をそのまま使うことではなく、「目的に合わせて道具を最適化すること」です。
| コントロール | メリット | デメリット（現場の悩み） |
|---|---|---|
| TextBox | 最も自由度が高い | 数字以外が入ってしまう、カンマがない |
| MaskedTextBox | フォーマットが固定できる | 桁数が変わると対応しづらい、数値計算への変換が面倒 |
| NumericUpDown | 数値として扱いやすい | 「未入力（空欄）」の状態を作るのが難しい、カンマ表示が標準では弱い |
私たちが作るべきは、「入力中は素早く数字を打てて、フォーカスが外れた瞬間に beautiful な 3桁区切りに整い、かつプログラムからは数値として簡単に取り出せる」コントロールです。
2. 設計図：継承（Inheritance）という魔法を使う
ゼロからコントロールを作るのは大変です。そこで、既存の `TextBox` の機能を「継承」して、必要な部分だけをカスタマイズする手法をとります。これがオブジェクト指向の真骨頂です。
実装するロジックの全体像
1. Enterイベント: フォーカスが当たったら、中の文字を全選択する（ユーザーの入力の手間を省く）。
2. KeyPressイベント: 数字とバックスペース以外の入力をブロックする（不正な入力を防ぐ）。
3. Leaveイベント: フォーカスが外れたら、数値を 3桁区切り（例: `1,234`）に整形する。
4. プロパティの追加: 文字列（Text）ではなく、直接 `Decimal` 型（数値）として値を取得できる仕組みを作る。
3. 実装：SmartNumericTextBox のコード
さあ、魂を込めたコードを書いていきましょう。このコードを新しいクラスファイルとして追加するか、プロジェクトの末尾に貼り付けてください。
''' <summary>
''' 金額や数量入力に特化した、高機能な数値入力コントロール
''' </summary>
Public Class SmartNumericTextBox
Inherits TextBox
' 数値として値を扱うための内部変数
Private _decimalValue As Decimal = 0D
''' <summary>
''' プログラムから数値として値を取得・設定するためのプロパティ
''' </summary>
<DesignerSerializationVisibility(DesignerSerializationVisibility.Content)>
Public Property DecimalValue As Decimal
Get
Return _decimalValue
End Get
Set(value As Decimal)
_decimalValue = value
' 設定された値をフォーマットして表示に反映
If value = 0D Then
Me.Text = ""
Else
Me.Text = value.ToString("N0") ' N0は小数点なしの3桁区切り
End If
End Set
End Property
Public Sub New()
' 初期設定：入力の挙以便性を高める
Me.TextAlign = HorizontalAlignment.Right ' 数値なので右寄せが基本
End Sub
' --- イベント制御 ---
''' <summary>
''' フォーカスが当たったとき：文字を全選択して、即座に上書きできるようにする
''' </summary>
Protected Overrides Sub OnEnter(e As EventArgs)
MyBase.OnEnter(e)
' 少し遅延させないとSelectAllが効かない場合があるため、BeginInvokeを使用
Me.BeginInvoke(Sub() Me.SelectAll())
End Sub
''' <summary>
''' キー入力時：数字以外の入力をガードする
''' </summary>
Protected Overrides Sub OnKeyPress(e As KeyPressEventArgs)
MyBase.OnKeyPress(e)
' 数字、バックスペース、制御文字以外を拒否
If Not Char.IsDigit(e.KeyChar) AndAlso Not Char.IsControl(e.KeyChar) Then
e.Handled = True ' 「このイベントは処理済み（＝何もさせない）」という意味
End If
End Sub
''' <summary>
''' フォーカスが外れたとき：見た目を整え、数値を確定させる
''' </summary>
Protected Overrides Sub OnLeave(e As EventArgs)
MyBase.OnLeave(e)
' 入力されたテキストを数値に変換
Dim tempValue As Decimal
' カンマを除去して解析（Parse）
If Decimal.TryParse(Me.Text.Replace(",", ""), tempValue) Then
_decimalValue = tempValue
' 未入力（空文字）の場合は、見た目も空にする
If String.IsNullOrWhiteSpace(Me.Text) Then
_decimalValue = 0D
Me.Text = ""
Else
' 3桁区切りのフォーマットを適用
Me.Text = _decimalValue.ToString("N0")
End If
Else
' 数値として解釈できない場合は、入力をクリアして0にする（エラー防止）
_decimalValue = 0D
Me.Text = ""
End If
End Sub
End Class4. 伝説のアーキテクトによる徹底解説
コードを書くだけでは、エンジニアとしての成長は止まってしまいます。なぜこの書き方をしたのか、その「意図」を理解しましょう。
① `BeginInvoke` の隠れたテクニック
`OnEnter` の中で `Me.SelectAll()` を呼んでも、実はうまく動かないことがあります。なぜなら、Windowsが「フォーカスを当てる処理」を完了する前に「全選択」が走ってしまうからです。
`Me.BeginInvoke` を使うことで、「フォーカス処理が終わった直後に、この処理を実行してね」と予約を入れることができます。これはプロが現場で使う「タイミング制御」のテクニックです。
② `e.Handled = True` の重要性
`KeyPress` イベントでこれを使うことは、ユーザーに対する「防波堤」を築くことです。
`e.Handled = True` と書くと、「このキー入力は、すでにプログラム側で処理（ハンドル）したから、もうシステム側で文字を入力させる必要はないよ」と伝えることができます。これにより、ユーザーが誤って「A」や「あ」を入力することを物理的に防げます。
③ `Decimal` 型を使う理由
「金額を扱うなら `Double` や `Single` でいいのでは？」と思うかもしれません。しかし、浮動小数点型（Double等）は、コンピュータ内部の計算誤差が発生しやすい性質を持っています。
業務システム、特に「お金」を扱うプログラムでは、誤差が許されない `Decimal` 型を使うのが鉄則です。
5. 陥りやすいエラーと回避策
このコントロールを使う際、初心者がハマりやすいポイントが2つあります。
1. 「0」と「未入力」の混同
今回の実装では、`DecimalValue` プロパティを通じて、未入力時は `0` として扱えるようにしています。しかし、もし業務ルールとして「0と未入力は厳密に区別せよ」と言われた場合は、`DecimalValue` を `Nullable(Of Decimal)`（`Decimal?`）に変更する設計変更が必要になります。
2. カンマの除去忘れ
`Decimal.TryParse` は、文字列にカンマが含まれていると失敗することがあります。必ず `.Replace(“,”, “”)` でカンマを取り除いてから解析する癖をつけましょう。
結びに：一歩先のエンジニアへ
お疲れ様でした！これで、あなたは標準コントロールの限界を突破し、ユーザーに寄り添った「プロ仕様の入力欄」を手に入れました。
「マクロの記録」から脱却する過程では、こうした「自作のパーツ（コントロール）」を作れるようになることが、最も大きな飛躍となります。一つ一つのパーツが、あなたのアプリケーションの信頼性を支える部品（コンポーネント）になっていくのです。
「ここをこう変えたら、もっと使いやすくなるかな？」
そんな風に考える癖をつけてください。その思考こそが、世界最高峰のエンジニアへの道です。
さあ、次はどんな便利な道具を作りますか？
