【テクニカル・上級編】Windows FormsのContextMenuStripにおけるOwnerDrawの活用：アイコン付きメニューやカスタムハイライトを持つリッチな右クリックUIの自作 – Visual Basic (VB / VB.NET)解析バイブル

【極限のUI設計】ContextMenuStripを支配する：OwnerDrawによる高密度・高機能コンテキストメニューの実装

業務アプリケーションの設計において、UI（ユーザーインターフェース）は単なる「飾り」ではない。それは、膨大なデータと複雑な操作体系をユーザーに伝えるための「インターフェース（接点）」そのものである。

特に、大量のレコードや複雑なオブジェクトを扱うエンタープライズ向けシステムにおいて、右クリックから呼び出される「コンテキストメニュー」は、ユーザーの思考を加速させるか、あるいはノイズとなって作業を阻害するかを分ける極めて重要なコンポーネントだ。

標準の `ContextMenuStrip` は、手軽ではあるが、業務特化型の要件――例えば「ステータスに応じたアイコンの動的変化」「警告レベルを示すテキストカラーの変更」「特定の条件下でのみ表示するカスタムハイライト」――には応えられない。

本稿では、Windows Formsにおける `OwnerDraw` モードを完全に掌握し、GDI+を自在に操ることで、パフォーマンスを犠牲にすることなく、極めてリッチで情報密度の高いメニューを構築する手法を解説する。

1. OwnerDrawの本質：宣言的UIから命令的描画への転換

標準のメニューは、プロパティに値をセットするだけの「宣言的」なものだ。しかし、`DrawMode` を `OwnerDrawFixed` に設定した瞬間、コントロールの描画権限はWindowsの標準レンダリングから、我々エンジニアの手へと移譲される。

これは「自由」であると同時に、「責任」を意味する。
描画ロジックが不適切であれば、UIのちらつき（Flickering）が発生し、GDI+オブジェクト（Brush, Pen, Font）の解放を怠れば、アプリケーションはメモリリークを引き起こし、長時間稼働する業務システムにおいて致命的なクラッシュを招く。

2. 実装のアーキテクチャ：リソース管理と描画ロジックの分離

まず、実装における鉄則を定義しておく。

1. GDI+リソースの局所化: `DrawItem` イベント内で `New Pen()` や `New SolidBrush()` を直接呼び出すことは厳禁だ。描画のたびにヒープメモリを消費し、GC（Garbage Collector）への過度な負荷を強いることになる。必ず `Using` ブロックを使用するか、あらかじめキャッシュされたリソースを使用せよ。
2. 描画状態（State）の厳格な判定: `e.State` を参照し、`Selected`（マウスホバー）、`Checked`、`Disabled` の状態を正確に判定して描画を分岐させる。
3. 座標計算の正確性: `e.Bounds` を基点として、テキストやアイコンの描画位置をピクセル単位で制御する。

3. 実装例：高機能カスタムコンテキストメニュー

以下に、アイコン、カスタムカラー、およびステータスに応じた描画を行う、実戦投入レベルのコードを示す。

Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms

''' <summary>
''' 業務特化型リッチコンテキストメニューの実装
''' </summary>
Public Class AdvancedContextMenu
    Inherits ContextMenuStrip

    Public Sub New()
        MyBase.New()
        ' OwnerDrawモードを有効化。これによりDrawItemイベントが発火する。
        Me.DrawMode = ToolStripDrawMode.OwnerDrawFixed
        ' メニューの高さや項目の高さを最適化
        Me.AutoSize = True
    End Sub

    ''' <summary>
    ''' 各メニュー項目の描画を制御する核心部
    ''' </summary>
    ''' <param name="e">描画イベントの引数</param>
    Protected Overrides Sub OnDrawItem(e As ToolStripDrawItemEventArgs)
        ' 基本的な描画コンテキストを取得
        Dim g As Graphics = e.Graphics
        Dim bounds As Rectangle = e.Bounds
        Dim item As ToolStripItem = e.SelectedItem

        ' アンチエイリアスの設定（描画品質の向上）
        g.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit
        g.SmoothingMode = SmoothingMode.AntiAlias

        ' 1. 背景の描画
        ' マウスホバー状態（Selected）に応じたハイライト色の決定
        Dim backColor As Color = If(e.State.HasFlag(ToolStripItemState.Selected),
                                    Color.FromArgb(45, 125, 154), ' カスタムハイライト色
                                    Color.White)
        
        Using br As New SolidBrush(backColor)
            g.FillRectangle(br, bounds)
        End Using

        ' 2. アイコンの描画
        ' 各アイテムにTagプロパティ等でアイコン情報を保持させている想定
        ' ここでは例として、TagにImageオブジェクトが入っているものとする
        Dim iconImage As Image = TryCast(item.Tag, Image)
        Dim iconRect As Rectangle
        
        If iconImage IsNot Nothing Then
            ' アイコンの配置位置を計算（左端から5pxのオフセット）
            iconRect = New Rectangle(bounds.X + 5, bounds.Y + (bounds.Height - iconImage.Height) \ 2, iconImage.Width, iconImage.Height)
            g.DrawImage(iconImage, iconRect)
        End If

        ' 3. テキストの描画
        ' テキスト位置の計算（アイコンがある場合はその分右へずらす）
        Dim textX As Integer = If(iconImage IsNot Nothing, iconRect.Right + 5, bounds.X + 5)
        Dim textRect As New Rectangle(textX, bounds.Y, bounds.Width - (textX - bounds.X), bounds.Height)
        
        ' 状態に応じたテキストカラーの決定
        Dim textColor As Color = Color.Black
        If e.State.HasFlag(ToolStripItemState.Disabled) Then
            textColor = Color.Gray
        ElseIf e.State.HasFlag(ToolStripItemState.Selected) Then
            textColor = Color.White
        End If

        ' 業務ロジック：特定の条件（例：警告フラグ）に基づいた色変更
        ' Item.Tagに特定のステータスコードが入っていると仮定
        If item.Name.Contains("Warning") Then
            textColor = Color.Red
        End If

        ' テキストの描画実行
        Using fontBrush As New SolidBrush(textColor)
            ' テキストの垂直方向の中央揃え
            Dim sf As New StringFormat()
            sf.LineAlignment = StringAlignment.Center
            sf.Alignment = StringAlignment.Near
            
            g.DrawString(item.Text, Me.Font, fontBrush, textRect, sf)
        End Using

        ' 4. チェックマークの描画
        If item.Checked Then
            Dim checkRect As New Rectangle(bounds.Right - 20, bounds.Y + (bounds.Height \ 4), 15, 15)
            Using checkPen As New Pen(textColor, 2)
                g.DrawRectangle(checkPen, checkRect)
            End Using
        End If
    End Sub

    ''' <summary>
    ''' メニュー全体の背景描画（境界線などの制御）
    ''' </summary>
    Protected Overrides Sub OnPaint(e As PaintEventArgs)
        ' 標準の描画を呼び出した後、必要に応じて境界線などを追加する
        MyBase.OnPaint(e)
        Using borderPen As New Pen(Color.LightGray, 1)
            e.Graphics.DrawRectangle(borderPen, 0, 0, Me.Width - 1, Me.Height - 1)
        End Using
    End Sub
End Class

4. 伝説的アーキテクトの視点：パフォーマンスと保守性の極致

このコードを単なる「動くコード」として終わらせてはならない。シニアエンジニアとして、以下の3点に留意せよ。

A. GDI+オブジェクトのライフサイクル管理

上記のコードでは、`Using` ステートメントを多用している。これは、`SolidBrush` や `Pen` といった `IDisposable` を実装したオブジェクトを、描画直後に確実に解放するためだ。
`OnDrawItem` はマウスの移動やクリックのたびに、極めて高頻度で呼び出される。ここでリソースをリークさせれば、数時間でシステムのメモリ使用量は膨れ上がり、OSのデスクトップウィンドウマネージャー（DWM）にまで悪影響を及ぼす。

B. メモリ最適化：画像のキャッシュ戦略

`item.Tag` から `Image` を取得しているが、もしこれが描画のたびに `New Bitmap(…)` で生成されるものなら、設計ミスだ。画像オブジェクトは、アプリケーションの起動時、あるいはデータロード時に一度だけ生成し、メモリ上にキャッシュ（静的変数またはマネージャークラスで保持）しておくべきである。

C. レガシー環境への配慮

業務システムの中には、依然として .NET Framework の古いバージョンや、特定の解像度（DPI）設定が強制される環境が存在する。
`e.Graphics.TextRenderingHint` の設定や、ピクセル計算における `Integer` 除算の扱いには細心の注意を払え。DPIスケーリングの影響を受ける場合、座標計算に `Me.DeviceDpi` を考慮した係数を掛ける必要がある。

5. 結論

`ContextMenuStrip` の `OwnerDraw` 活用は、単なる見た目のカスタマイズではない。それは、ユーザーが直面する情報を整理し、誤操作を防ぎ、システムの信頼性を視覚的に担保するための「エンジニアリング」である。

標準機能の限界を感じたとき、それを「できない」と切り捨てるのではなく、低レイヤーの描画制御へと踏み込む。その一歩が、凡庸なアプリケーションを、プロフェッショナルのための道具へと昇華させるのだ。