【実務・中級編】実務中級者向け：VB.NETにおける「IDisposable」パターンの完全実装：自作クラスでのマネージド・アンマネージド資源解放 – Visual Basic (VB / VB.NET)解析バイブル

VB.NET実務の急所：`IDisposable`パターンの完全実装と資源管理の極意

開発現場でよく見かける光景がある。「動いているから大丈夫」と、ファイルストリームやデータベース接続を開きっぱなしにし、GC（ガベージコレクタ）の気まぐれな回収に命運を委ねているコードだ。

業務自動化ツールや社内ニッチシステムであればあるほど、こうした「リソースの解放漏れ」は致命傷になる。ファイルがロックされて次のバッチが落ちる、DBのコネクションプールの枯渇で突然画面がフリーズする――これらはすべて、開発者がオブジェクトのライフサイクルをコントロールしきれていないことが原因だ。

今回は、VB.NETにおいて自作クラスで資源（マネージド・アンマネージド）を安全に、かつ確実に解放するための「IDisposableパターンの完全実装」を、チーフアーキテクトの視点からロジカルに伝授する。

—

1. なぜ「ガベージコレクタがあるから大丈夫」という幻想を捨てるべきなのか？

VB.NET（.NET Runtime）には強力なGCが存在する。しかし、GCは「メモリがひっ迫した時」に「いつか」動くものであって、あなたが今開き終えたファイルハンドルをすぐに閉じてくれるわけではない。

特に以下の資源は、GCの管轄外またはGC任せにすべきではない最重要ターゲットだ。

• マネージド資源: `IDisposable`を実装している他の.NETオブジェクト（`StreamReader`, `SqlConnection`など）。
• アンマネージド資源: Windows APIのハンドル、COMオブジェクト、ネイティブDLLのメモリ、OSレベルのファイルロック。

これらを適切なタイミングで確実にお掃除するデザインパターンが、`.NETにおける `IDisposable` 標準パターン` である。

—

2. 【アンチパターン】やってはいけない資源管理

まずは、よくある「惜しいけれどバグの温床になる」コードを見てみよう。

‘ 【悪例】ファイナライザだけに頼る、または何も考えていないクラス
Public Class BadResourceWrapper
Private fileStream As FileStream

Public Sub New(ByVal filePath As String)
Me.fileStream = New FileStream(filePath, FileMode.Open)
End Sub

Public Sub WriteData(ByVal data As String)
‘ 処理…
End Sub

‘ Destructor (ファイナライザ) に頼るアプローチは最悪のパフォーマンスを生む
Protected Overrides Sub Finalize()
If fileStream IsNot Nothing Then
fileStream.Close()
End If
MyBase.Finalize()
End Sub
End Class

なぜこれがダメなのか？

1. ファイナライザ（`Finalize` / VBでは `Destructor`）のコストは極めて重い： GCの世代交代アルゴリズムを阻害し、オブジェクトがメモリ上に不必要に長く生存する（メモリフラグメンテーションの原因）。
2. 確定的な解放（Deterministic Finalization）ができない： 「いつ」ファイルが閉じられるかがOSとCLRの機嫌次第になるため、直後のファイル操作で `IOException (The process cannot access the file…)` が発生する。

—

3. 【正解】プロダクション品質の `IDisposable` 完全実装コード

プロフェッショナルなVB.NET開発者が書くべき、堅牢なクラスのテンプレートを提示する。マネージド・アンマネージド双方の解放をハンドリングし、二重解放（Double Free）を防ぐガード節を備えた実装だ。

Imports System
Imports System.IO
Imports System.Text

”’

Public Class ProductionResourceWrapper
Implements IDisposable

‘ 1. マネージド資源（IDisposableを実装したオブジェクト）
Private _memoryStream As MemoryStream

‘ 2. アンマネージド資源の模擬（例：外部ハンドルやファイルストリーム）
Private _fileStream As FileStream

‘ 3. 既に解放処理が実行されたかを示すフラグ（二重解放防止）
Private _disposed As Boolean = False

”’

Public Sub New(ByVal targetFilePath As String)
Try
‘ マネージド・アンマネージド資源の初期化
_memoryStream = New MemoryStream()
_fileStream = New FileStream(targetFilePath, FileMode.OpenOrCreate, FileAccess.ReadWrite)
Catch ex As Exception
‘ コンストラクタ内で例外が発生した場合、中途半端に獲得した資源を自力で解放する
Me.Dispose(False)
Throw New ApplicationException(“リソースの初期化に失敗しました。”, ex)
End Try
End Sub

”’

Public Sub ProcessData(ByVal message As String)
‘ すでに破棄されている場合は例外をスロー（Fail-Fastの原則）
CheckDisposed()

Dim data() As Byte = Encoding.UTF8.GetBytes(message)
_memoryStream.Write(data, 0, data.Length)
End Sub

Region ” IDisposable Pattern Implementation ”

”’

Public Sub Dispose() Implements IDisposable.Dispose
‘ 実際の解放処理（Trueはユーザーからの要求であることを示す）
Dispose(True)

‘ ファイナライザ（GC）による二重の解放処理を抑制する（パフォーマンス最適化）
GC.SuppressFinalize(Me)
End Sub

”’

”’ True: マネージド/アンマネージド両方、False: アンマネージドのみ Protected Overridable Sub Dispose(ByVal disposing As Boolean)
If Not _disposed Then
If disposing Then
‘ ==========================================
‘ 【マネージド資源の解放】
‘ ほかのIDisposableオブジェクトのDisposeを明示的に呼ぶ
‘ ==========================================
If _memoryStream IsNot Nothing Then
_memoryStream.Dispose()
_memoryStream = Nothing
End If
End If

‘ ==========================================
‘ 【アンマネージド資源の解放】
‘ ファイルハンドルやWin32 APIのポインタ等の解放
‘ ==========================================
If _fileStream IsNot Nothing Then
_fileStream.Close()
_fileStream.Dispose()
_fileStream = Nothing
End If

_disposed = True
End If
End Sub

”’

Protected Overrides Sub Finalize()
‘ disposing = False として呼び出す（マネージド資源には触れてはならない）
Dispose(False)
MyBase.Finalize()
End Sub

”’

Private Sub CheckDisposed()
If _disposed Then
Throw New ObjectDisposedException(Me.GetType().FullName, “このオブジェクトはすでに破棄されています。”)
End If
End Sub

Region ” IDisposable Pattern Implementation End ”
End Class

—

4. 現場で使える！実践的な利用パターン (`Using` ステートメント)

クラス側で正しく `IDisposable` を実装したら、呼び出し側では必ず `Using` ステートメント（またはVB.NETの `Using` ブロック）を使用すること。これにより、例外が発生しようとも、スコープを抜けた瞬間に確実かつ自動的に `Dispose()` が走る。

Public Sub ExecuteBusinessLogic()
Dim filePath As String = “C:\Logs\operation.log”

‘ Usingブロックを使うことで、例外発生時でも確実にリソースが解放されます
Using resourceWrapper As New ProductionResourceWrapper(filePath)

resourceWrapper.ProcessData(“処理を開始します…” & vbCrLf)
resourceWrapper.ProcessData(“正常にデータを書き込みました。” & vbCrLf)

End Using ‘ <-- ここで自動的に resourceWrapper.Dispose() が呼ばれる ' ここを抜けた時点で、ファイルロックは確実に解除されている End Sub ---

5. チーフアーキテクトからの実践的アドバイス

1. コンストラクタ失敗時の罠に注意しろ
コンストラクタの途中で例外が発生した場合、そのクラスの `Destructor` や `Dispose` は自動的には呼ばれない。そのため、上のコード例のように、コンストラクタ内で例外が発生した場合は自前で `Me.Dispose(False)` を呼んで部分的に取得したリソースを巻き戻す実装（あるいはtry-catchでのケア）がプロの技量だ。
2. 継承階層（Inheritance）を意識せよ
もしこのクラスをさらに別のクラスが継承する場合、`Protected Overridable Sub Dispose(ByVal disposing As Boolean)` のオーバーライドを忘れてはならない。派生クラス側でも独自のマネージド資源を追加した場合は、必ず基底クラスの `MyBase.Dispose(disposing)` をチェインさせること。

まとめ

オブジェクト指向プログラミングにおいて、メモリやリソースの「後始末」は美学であり、信頼性の証明だ。「動けばいい」の精神を脱却し、`IDisposable` パターンを完璧にマスターしたコードベースは、長期間稼働する業務自動化ツールの堅牢性を劇的に引き上げる。

今日からあなたの書くVB.NETコードの資源管理を、ワンランク上のステージへ引き上げよう。