「エラーが出た」を「解決できた」に変える。現場を救うカスタム例外ダイアログの設計術
「あの、さっきの画面、エラーが出て動かなくなりました……」
開発者として、この言葉ほど胃がキリキリする瞬間はないでしょう。しかも、その報告が「なんか変なメッセージが出た」という曖昧なものだったら、原因特定のためにユーザーの操作を一つずつ聞き直す、気の遠くなるような作業が始まってしまいます。
こんにちは。今日は、プログラミング初学者の方や、Excelマクロから一歩踏み出してWindows Forms（VB.NET）の世界へ飛び込んできた皆さんに、「エンジニアとしての生存戦略」とも言える、極めて実践的な技術をお伝えします。
それは、「エラー情報を整理し、ワンタッチで開発者に届けるカスタム例外ダイアログ」の作り方です。
これをマスターすれば、あなたは「ただコードを書く人」から、「運用までを見据えたプロフェッショナル」へと進化できるはずです。さあ、一緒に見ていきましょう。
1. なぜ標準の `MsgBox` では足りないのか？
VB.NETでエラーを扱うとき、多くの人はまずこう書きます。
Try
' 何か危ない処理
Catch ex As Exception
MsgBox("エラーが発生しました：" & ex.Message)
End Tryもちろん、これでも動きます。しかし、現場ではこれだけでは「情報不足」なのです。
原因を特定するには、以下の3つの要素が不可欠です。
1. 何が起きたのか？ (Exception.Message)
2. コードのどこで起きたのか？ (Exception.StackTrace)
3. どんな環境で起きたのか？ (OSのバージョン、ユーザー名、実行中のPC名など)
標準の `MsgBox` は、これらを綺麗に並べて表示する機能も、ユーザーが「コピーしてメールに貼り付ける」ための操作性も持っていません。そこで、自分専用の「エラー報告専用ダイアログ」を作る必要があるのです。
2. 設計の核心：情報の「パッケージ化」
いきなりUI（画面）を作る前に、まずは「何を伝えるか」というデータの構造を考えましょう。プロの設計者は、バラバラな情報を一つの「塊（オブジェクト）」として扱います。
ステップ1：エラー情報をまとめるクラスを作る
まずは、エラーメッセージや環境情報をひとまとめにするための、小さな箱（クラス）を定義します。
''' <summary>
''' エラー報告に必要な情報を格納するための専用クラス
''' </summary>
Public Class ErrorReportInfo
Public Property ErrorMessage As String ' エラーの内容
Public Property StackTrace As String ' どこでエラーが起きたかの足跡
Public Property EnvironmentInfo As String ' OSやPCなどの環境情報
''' <summary>
''' 全ての情報を一つのテキストに整形するメソッド
''' </summary>
Public Function ToFullText() As String
Dim sb As New System.Text.StringBuilder()
sb.AppendLine("【エラー報告レポート】")
sb.AppendLine("--------------------------------------------------")
sb.AppendLine($"発生時刻: {DateTime.Now:yyyy/MM/dd HH:mm:ss}")
sb.AppendLine($"エラー内容: {ErrorMessage}")
sb.AppendLine("")
sb.AppendLine("【スタックトレース（実行経路）】")
sb.AppendLine(StackTrace)
sb.AppendLine("")
sb.AppendLine("【システム環境情報】")
sb.AppendLine(EnvironmentInfo)
sb.AppendLine("--------------------------------------------------")
Return sb.ToString()
End Function
End Class【アーキテクトの視点】
ここで `StringBuilder` を使っているのがポイントです。文字列を `&` で何度も連結するのは、メモリに負荷をかけます。大量のテキストを扱うときは、この `StringBuilder` を使うのが「デキるエンジニア」の作法ですよ。
3. 実装：カスタムダイアログの構築
次に、この情報を表示するためのフォームを作ります。
ステップ2：エラー表示用フォーム (frmErrorDialog) の設計
Windows Formsのデザイナーで、以下のコントロールを配置したフォームを作成してください。
- TextBox (`txtDetails`): `Multiline = True`, `ReadOnly = True`, `ScrollBars = Both` に設定。
- Button (`btnCopy`): 「情報をコピーする」というテキスト。
- Button (`btnClose`): 「閉じる」というテキスト。
そして、コードビハインドに以下のロジックを記述します。
Public Class frmErrorDialog
' 表示したい情報を保持するプロパティ
Private _report As ErrorReportInfo
''' <summary>
''' ダイアログを表示するための入り口
''' </summary>
''' <param name="info">集約されたエラー情報</param>
Public Sub ShowError(info As ErrorReportInfo)
_report = info
' テキストボックスに整形済みのテキストを流し込む
txtDetails.Text = _report.ToFullText()
Me.ShowDialog()
End Sub
''' <summary>
''' 「コピー」ボタンが押された時の処理
''' </summary>
Private Sub btnCopy_Click(sender As Object, e As EventArgs) Handles btnCopy.Click
Try
' クリップボードにテキストをコピー
Clipboard.SetText(txtDetails.Text)
MessageBox.Show("クリップボードにコピーしました。開発者へ送付してください。", "完了")
Catch ex As Exception
MessageBox.Show("コピーに失敗しました: " & ex.Message)
End Try
End Sub
Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
Me.Close()
End Sub
End Class4. 実戦投入：アプリケーション全体での使い方
最後に、これらを実際のアプリケーションのメイン処理でどう使うかを学びましょう。
ステップ3：メイン処理でのエラーハンドリング
Public Class Form1
''' <summary>
''' 実行ボタンが押された時のメイン処理
''' </summary>
Private Sub btnRun_Click(sender As Object, e As EventArgs) Handles btnRun.Click
Try
' --- ここに本来やりたい処理を書く ---
PerformRiskyOperation()
' ----------------------------------
Catch ex As Exception
' エラーが発生したら、専用のハンドラを呼び出す
HandleGlobalError(ex)
End Try
End Sub
''' <summary>
''' エラーをキャッチして、情報を収集し、ダイアログを表示する
''' </summary>
Private Sub HandleGlobalError(ex As Exception)
' 1. エラー情報の収集
Dim info As New ErrorReportInfo()
info.ErrorMessage = ex.Message
info.StackTrace = ex.StackTrace
' 2. 環境情報の収集（ここが重要！）
Dim env As New System.Text.StringBuilder()
env.AppendLine($"PC名: {Environment.MachineName}")
env.AppendLine($"ユーザー名: {Environment.UserName}")
env.AppendLine($"OS: {Environment.OSVersion}")
env.AppendLine($".NET Framework: {Environment.Version}")
info.EnvironmentInfo = env.ToString()
' 3. カスタムダイアログの表示
Using dlg As New frmErrorDialog()
dlg.ShowError(info)
End Using
End Sub
''' <summary>
''' テスト用のエラー発生メソッド
''' </summary>
Private Sub PerformRiskyOperation()
' ゼロ除算エラーをわざと発生させる
Dim zero As Integer = 0
Dim result As Integer = 10 \ zero
End Sub
End Class5. ここをクリアすれば、あなたはもう初心者卒業です
今回の実装には、プロの現場で必須となる重要な考え方が詰まっています。
陥りやすい罠：例外を「握り潰す」な
初学者がやってしまいがちなのが、`Catch` ブロックの中で何もせずに `End` させたり、単に `MsgBox(“エラー”)` とだけ書くことです。これを「例外の握り潰し」と呼びます。
エラーが起きた事実は記録し、原因を特定できる情報を必ず残すこと。これが、システムを安定稼働させるための鉄則です。
ライフサイクルとリソース管理
`Using dlg As New frmErrorDialog()` という書き方に注目してください。これは、ダイアログを使い終わった後に、メモリを確実に解放するための作法です。Windows FormsのようなGUIアプリケーションでは、こうした「使い終わったら片付ける」という意識が、動作の重さを防ぐ鍵となります。
スタックトレースの価値
`ex.StackTrace` は、エラーが起きた瞬間の「関数の呼び出し履歴」です。
「A関数がB関数を呼び、B関数がC関数を呼び、そこでエラーが起きた」という道筋がわかれば、デバッグのスピードは10倍、100倍と上がります。
最後に
今回紹介した仕組みを導入するだけで、あなたのアプリケーションの信頼性は劇的に向上します。ユーザーは「自分の報告が役に立っている」と感じ、あなたは「迷うことなく原因に辿り着ける」ようになる。これは、開発者とユーザーの間の最高の信頼関係の構築法でもあります。
一歩ずつ、コードの裏側にある「なぜ？」を大切にしながら進んでいきましょう。
応援していますよ！
