こんにちは！開発現場で日々、レガシーシステムと最新の.NETの橋渡しに奮闘しているシニアエンジニアです。
今回は、VB.NETでの開発において避けて通れない、しかし多くの開発者が躓く「アンマネージドメモリと構造体の高度なマッピング（`Marshal.PtrToStructure`）」についてお話しします。
「マクロの記録」や簡単なボタン処理から一歩進んで、C/C++製のレガシーDLLやWindows APIの生々しいポインタをVB.NETの世界に美しく召喚する方法をマスターしましょう。ここをクリアすれば、あなたのVB.NETスキルは間違いなくプロフェッショナルの領域に到達します。
温かく、かつ実践的に解説していきますので、ぜひ最後までついてきてくださいね！
—
1. なぜVB.NETから「アンマネージドメモリ」を扱う必要があるのか？
私たちが普段書いているVB.NETのコードは、.NETランタイム（CLR）という安全な管理下（マネージド環境）で動いています。メモリの確保も解放も、すべてガベージコレクタ（GC）が裏でよしなにやってくれますよね。
しかし、世の中にはCやC++で作られた高速なサードパーティ製DLLや、OSの根幹であるWindows APIが溢れています。これらはメモリを直接指し示す「ポインタ」という危険で強力なナイフを使ってデータをやり取りします。
VB.NETからこれらと連携する際、ポインタが指す生のメモリ領域（アンマネージドメモリ）を、私たちが扱いやすいVB.NETの「構造体（Structure）」に安全に変換（マッピング）してあげる必要があります。その主役となるのが、`System.Runtime.InteropServices.Marshal` クラスの `PtrToStructure` メソッドです。
—
2. 基礎知識：メモリのレイアウトを完全に一致させろ！
C/C++の構造体とVB.NETの構造体を連携させるとき、最もやりがちなミスが「メモリの並び順（レイアウト）の不一致」です。
CLRは、メモリ効率やパフォーマンスのために、構造体内のフィールドの並びを勝手に並べ替えることがあります（これを「最適化」と呼びますが、ネイティブAPIから見れば大迷惑です）。
そのため、アンマネージドと連携する構造体には、必ず `
—
3. 実践！ `Marshal.PtrToStructure` を使った安全なデータマッピング
百聞は一見にしかず。実際に、C++のDLLが返すポインタから、システム情報を取得するシナリオを想定したコードを見てみましょう。
コピペしてそのままプロジェクトのテストに使えるよう、丁寧にコメントを入れています。
Imports System
Imports System.Runtime.InteropServices
Module NativeInteropSample
‘ 【1. アンマネージド側（C++側）と完全に一致させる構造体の定義】
‘ LayoutKind.Sequentialを指定し、フィールドの宣言順にメモリを連続配置させます。
Public Structure SystemInfoNative
Public MajorVersion As UInteger
Public MinorVersion As UInteger
‘ 固定長文字列や配列のマーシャルについても考慮が必要な場合があります
Public DeviceName As String
End Structure
‘ 【2. Windows APIやレガシーDLLのシグネチャ定義の模擬】
‘ 実際には Declare 句や DllImport を使ってネイティブ関数を呼び出し、ポインタ(IntPtr)を受け取ります。
‘ ここでは解説のため、ダミーのポインタを返すメソッドを用意しています。
Public Function GetNativeDataPointer() As IntPtr
‘ 実際の開発ではここで外部DLLを呼び出します
Dim nativeStruct As New SystemInfoNative With {
.MajorVersion = 10,
.MinorVersion = 0,
.DeviceName = “Legacy-Device-X”
}
‘ アンマネージドヒープに手動でメモリを確保し、構造体のデータをコピー（模擬的なネイティブポインタの生成）
Dim size As Integer = Marshal.SizeOf(nativeStruct)
Dim ptr As IntPtr = Marshal.AllocHGlobal(size)
Try
Marshal.StructureToPtr(nativeStruct, ptr, False)
Return ptr
Catch
Marshal.FreeHGlobal(ptr)
Throw
End Try
End Function
‘ 【3. メイン処理：PtrToStructureによる華麗なマッピング】
Sub Main()
Console.WriteLine(“=== アンマネージドメモリ連携開始 ===”)
‘ ネイティブ側からポインタを取得
Dim pNativeData As IntPtr = GetNativeDataPointer()
If pNativeData = IntPtr.Zero Then
Console.WriteLine(“有効なポインタが取得できませんでした。”)
Return
End If
Try
‘ ★ここが今回の核心です！
‘ IntPtr が指す生データを、VB.NETのマネージド構造体に安全に変換します。
Dim managedInfo As SystemInfoNative =
CType(Marshal.PtrToStructure(pNativeData, GetType(SystemInfoNative)), SystemInfoNative)
‘ 結果を出力
Console.WriteLine($”[成功] メジャーバージョン: {managedInfo.MajorVersion}”)
Console.WriteLine($”[成功] マイナーバージョン: {managedInfo.MinorVersion}”)
Console.WriteLine($”[成功] デバイス名 : {managedInfo.DeviceName}”)
Catch ex As Exception
Console.WriteLine($”[エラー] マーシャリング中に例外が発生しました: {ex.Message}”)
Finally
‘ 【超重要】アンマネージドメモリの解放
‘ .NETのGCはアンマネージドヒープの管理外です。AllocHGlobalで確保したメモリは必ず自分で解放します。
If pNativeData <> IntPtr.Zero Then
Marshal.FreeHGlobal(pNativeData)
Console.WriteLine(“アンマネージドメモリを安全に解放しました。”)
End If
End Try
Console.WriteLine(“=== 処理終了 ===”)
End Sub
End Module
—
4. 現場でありがちな「落とし穴」と回避の極意
このテクニックを使う上で、プロフェッショナルとして絶対に押さえておかなければならない注意点が2つあります。
① メモリリーク（Memory Leak）の呪縛
先ほどのコードの `Finally` ブロックを見てください。`Marshal.AllocHGlobal` で確保したメモリは、GCの自動回収対象外です。`Marshal.FreeHGlobal` を忘れると、アプリが動き続けるたびにメモリが徐々に食いつぶされ、やがて致命的なOutOfMemoryExceptionを引き起こします。ネイティブ資源を扱うときは「取得したら必ず解放する（RAIIの精神）」を徹底してください。
② 文字列の文字コード（CharSet）の罠
C/C++のDLLと連携する際、文字コードの不一致（ANSI / Unicode / UTF-8）で文字化けやバッファオーバーランが起きることが多々あります。構造体に `
—
まとめ
今回は、VB.NET上級者への登竜門である `Marshal.PtrToStructure` を用いたアンマネージドメモリ連携の極意を解説しました。
- メモリレイアウトの固定化 (`
- 安全な型変換 (`Marshal.PtrToStructure`)
- 確実なメモリのライフサイクル管理 (`Marshal.AllocHGlobal` と `Marshal.FreeHGlobal`)
一見すると難しく感じるかもしれませんが、この仕組みを理解できれば、VB.NETであらゆるレガシーシステムやWindowsの深部と渡り合うことができるようになります。
「ここをクリアすれば、Visual Basicの基本はバッチリですよ！」
ぜひ実際のプロジェクトでも、安全で堅牢な相互運用コードを書いてみてくださいね。あなたのエンジニアライフを応援しています！
