【入門編】Windows FormsのAxHostを継承した独自ActiveXコントロールの埋め込み：レガシーなCADビューアや外部機器制御モジュールの安全なラップ手法 – Visual Basic (VB / VB.NET)解析バイブル

レガシーを力に変える：AxHostで実現する「最強のActiveXラップ」設計術

「マクロの記録は使えるようになったけれど、もっと複雑な、例えば業務で必須のCADビューアや、特殊な計測機器の制御パネルを自作の画面に組み込みたい……」

そんな壁にぶつかっていませんか？

こんにちは。今日は、プロフェッショナルな現場で避けては通れない、しかし多くのエンジニアが「正しく扱う方法」を知らない、少し特殊でエキサイティングな領域についてお話ししましょう。

テーマは「Windows FormsにおけるAxHostを利用したActiveXコントロールの安全なラッピング」です。

言葉が少し難しいかもしれませんが、大丈夫。一つずつ紐解いていけば、必ず「あぁ、そういうことか！」と繋がるはずです。ここをマスターすれば、あなたは単なる「コードを書く人」から、「システムの構造を設計できるエンジニア」へと一歩踏み出すことができますよ。

1. なぜ「そのまま」ではいけないのか？

まず、私たちが直面している状況を整理しましょう。

業務システムの世界には、最新の .NET では作れない、あるいは作り直すコストが膨大な「完成された部品」が存在します。例えば、20年続くCADエンジンのコントロールや、特定のハードウェアを動かすためのActiveXコンポーネントです。

これらを Windows Forms (VB.NET) に配置しようとすると、ツールボックスからドラッグ＆ドロップするだけで「動いては」くれます。しかし、そのままの実装では、以下のような「プロの現場では致命的となる問題」が潜んでいます。

1. ライフサイクルの不一致: .NETのガベージコレクション（掃除屋）が、ActiveX（古い部品）のメモリを勝手に片付けようとして、アプリが突然クラッシュする。
2. スレッドの衝突: .NETのマルチスレッドと、ActiveXが要求する「シングルスレッド（STA）」のルールが衝突し、動作が不安定になる。
3. 密結合の罠: 画面（Form）の中にActiveXのコードがベタ書きされ、後で部品を交換したくなった時に、プログラム全体が壊れてしまう。

これらを解決するために、私たちは「AxHostを継承した独自のラッパー（包み紙）を作る」という手法を取るのです。

2. 概念図：ブリッジ（橋渡し）を設計する

イメージしてみてください。あなたは「日本語（VB.NET）」を話す人です。一方で、ActiveXは「古代ギリシャ語」を話す賢者です。

直接話そうとしても、言葉が通じず、無理に話しかけると賢者は怒って（クラッシュして）しまいます。そこで、「通訳（AxHostを継承したクラス）」を用意します。

[ あなたのプログラム (VB.NET) ]
      │
      ▼ (モダンな命令)
[ 独自のラッパークラス (AxHost継承) ]  <-- ここが「通訳」
      │
      ▼ (COM/ActiveXの作法に従った命令)
[ レガシーActiveXコントロール ]

この「通訳」を作ることで、あなたのメインプログラムはActiveXのややこしい作法を一切気にせずに済むようになります。これが「カプセル化」という、設計の極意です。

3. 実践：安全なラッパーの実装コード

では、実際にコードを見てみましょう。ここでは、例として `LegacyCADLib` という名前の古いCADコントロールを包み込む設計を行います。

ステップ1：ラッパー（通訳）クラスの作成

単にコントロールを置くのではなく、`AxHost` を継承したクラスを作り、その中で「安全な窓口」を定義します。

Imports System.Runtime.InteropServices
Imports AxHostLib ' ここにはActiveXの型定義が入ります

''' <summary>
''' レガシーCADコントロールを安全に扱うためのラッパークラス
''' </summary>
Public Class SafeCADWrapper
    Inherits AxHost.CreateAxHost(GetType(AxCADLib.CADControl))

    ' 内部で保持する実際のActiveXオブジェクト
    Private _innerControl As AxCADLib.CADControl

    Public Sub New()
        MyBase.New()
    End Sub

    ''' <summary>
    ''' ActiveXのメソッドを安全に呼び出すためのプロパティ
    ''' </summary>
    Public Property ZoomLevel As Double
        Get
            Return _innerControl.Zoom
        End Get
        Set(value As Double)
            ' ここで境界値チェックなどの「守り」を入れることができる！
            If value >= 0 AndAlso value <= 100 Then
                _innerControl.Zoom = value
            End If
        End Set
    End Property

    ''' <summary>
    ''' ActiveXのイベントをVB.NETのイベントとして公開する（ブリッジ）
    ''' </summary>
    Public Event ObjectSelected(sender As Object, e As CADEventArgs)

    ' コントロールの初期化時に内部オブジェクトを生成
    Protected Overrides Sub OnCreateControl()
        MyBase.OnCreateControl()
        ' AxHostがコントロールを作成した直後に、内部オブジェクトを紐付けます
        _innerControl = DirectCast(Me.AxControl, AxCADLib.CADControl)
        
        ' ActiveX側のイベントを、このクラスのイベントへ橋渡しする
        AddHandler _innerControl.OnSelectionChanged, 
            Sub(s, ev) Me.RaiseEvent ObjectSelected(Me, DirectCast(ev, CADEventArgs))
    End Sub

    ''' <summary>
    ''' メモリリークを防ぐための最も重要な処理：解放
    ''' </summary>
    Protected Overrides Sub Dispose(disposing As Boolean)
        If disposing Then
            ' COMオブジェクトの参照カウントを適切に減らす
            If _innerControl IsNot Nothing Then
                ' Marshal.ReleaseComObject は、プロの必須テクニックです
                Marshal.ReleaseComObject(_innerControl)
                _innerControl = Nothing
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
End Class

ステップ2：フォームでの利用

ラッパーが完成すれば、メインの画面（Form）は驚くほどスッキリします。

Public Class MainForm
    ' フォームの設計画面で、作成したSafeCADWrapperを配置するか、コードで生成します
    Private WithEvents _cadViewer As New SafeCADWrapper()

    Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 初期設定も、ラッパー経由で行うので安全
        _cadViewer.ZoomLevel = 50.0
    End Sub

    ' ActiveXの複雑なイベントではなく、自作したスッキリしたイベントを受け取る
    Private Sub OnCadObjectSelected(sender As Object, e As CADEventArgs) Handles _cadViewer.ObjectSelected
        MessageBox.Show($"オブジェクトが選択されました: {e.ObjectName}")
    End Sub

    ' フォームを閉じる時、確実に解放を促す
    Private Sub MainForm_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        _cadViewer.Dispose()
    End Sub
End Class

4. 陥りやすい「落とし穴」と回避術

ここからは、私が現場で何度も目にしてきた、初心者が躓きやすいポイントを伝授します。

① 「メモリが減らない！」問題（メモリリーク）

.NETのガベージコレクタは「.NETで作られたオブジェクト」の管理は得意ですが、ActiveXのような「COMオブジェクト」の管理は苦手です。
対策: コード例にある `Marshal.ReleaseComObject` を忘れないでください。これを使わずに放置すると、アプリを閉じてもプロセスがメモリに残るという、恐ろしい現象が起こります。

② 「突然の死」問題（STAスレッド）

ActiveXの多くは、STA (Single Threaded Apartment) という、「一つのスレッドからしか触っちゃダメだよ」というルールで動いています。
対策: もしバックグラウンドで計算を行ってActiveXを操作しようとしてエラーが出るなら、それはスレッドのルール違反です。`Control.Invoke` を使って、必ずUIスレッド（メインスレッド）から操作するように徹底しましょう。

③ 「プロパティが反映されない」問題

ActiveXのプロパティを変更した直後に、画面が更新されないことがあります。
対策: これはActiveX側の描画更新タイミングの問題です。ラッパーのプロパティ内で、変更後に `_innerControl.Invalidate()` や `_innerControl.Refresh()` を明示的に呼んであげると、非常に親切な設計になります。

まとめ：技術の「橋渡し」ができるエンジニアへ

いかがでしたでしょうか？

「古いものをそのまま使う」のではなく、「古いものを、新しい世界のルールに合わせて包み込んであげる（ラッピングする）」。この考え方こそが、レガシーな資産をモダンなシステムへと昇華させるプロの仕事です。

1. AxHostを継承して、自分専用の「通訳（ラッパー）」を作る。
2. ActiveXの複雑なイベントやプロパティを、使いやすい形で「公開」する。
3. `Dispose` と `ReleaseComObject` で、メモリの管理を徹底する。

この3点を守るだけで、あなたの作るアプリケーションの安定性は劇的に向上します。

最初は難しく感じるかもしれません。でも、一度この「構造」を理解してしまえば、どんなに古い、扱いにくいコンポーネントが来ても、あなたは冷静に「よし、ラッパーを作ろう」と微笑んで対処できるはずです。

そこまで到達できれば、あなたはもう、立派なエンジニアですよ。応援しています！