こんにちは！日々、業務の自動化やデスクトップアプリの開発に奮闘しているエンジニアの皆さん。
Excelのマクロ（VBA）の記録から一歩踏み出し、「もっと本格的なWindowsアプリを作りたい！」とVB.NETの世界に飛び込んだ方も多いのではないでしょうか。
今回は、Windows Formsアプリケーション開発において、一歩進んだ「クリップボード監視ツール」の作り方を解説します。
「他のアプリでコピーされた文字を、自分のアプリで自動でキャプチャしてデータベースに保存する」——そんな夢のような常駐型ツール、作ってみたくありませんか？
実はこれ、Windowsの仕組みを少しだけ知るだけで、驚くほど安全かつスマートに実装できてしまうんです。さあ、一緒にプロの技を学んでいきましょう！
—
1. 昔ながらの「WndProcオーバーライド」の罠
クリップボードを監視するプログラムを作ろうとネットで調べると、よく出てくるのが `WndProc` というメソッドをオーバーライド（上書き）する方法です。
これは、Windowsから送られてくるすべてのOSメッセージ（ウィンドウズメッセージ）を直接キャッチして、「今、クリップボードが書き換わったな？」と検知する古典的な手法です。
しかし、ここには大きな罠があります。
- すべてのOSメッセージが流れてくるため、少しでも処理を間違えるとアプリ全体の動作が重くなったり、最悪の場合は強制終了（フリーズ）したりします。
- 初学者の方がこれをやると、デバッグ（不具合探し）で泥沼にハマりがちです。
そこで今回おすすめするのが、Windows Vista以降で用意された `AddClipboardFormatListener` というAPIを使う方法です！
—
2. `AddClipboardFormatListener` が神である理由
このAPIを使うと、WindowsのOSに対して「ねえ、クリップボードが書き換わったら、私のウィンドウにだけこっそり教えて！」と登録（リスナー登録）することができます。
`WndProc` のようにすべてのメッセージを監視する必要がなく、クリップボードの変更通知（`WM_CLIPBOARDUPDATE`）ピンポイントで受け取れるため、圧倒的に安全で、コードもシンプルになります。
ここをクリアすれば、Windows Formsのイベント駆動の仕組みとOS連携の基本はバッチリですよ！
—
3. 実装の全体像（VB.NET コード）
それでは、実際に動くコードを見てみましょう。
Visual Studioで新しい「Windows Forms アプリケーション（VB.NET）」を一つ作り、Form1に以下のコードをそのまま貼り付けてみてください。
Imports System.Runtime.InteropServices
Imports System.Text
Public Class Form1
‘ =========================================================================
‘ Win32 API のインポート (OSの機能直接呼び出し)
‘ =========================================================================
‘ クリップボード監視の「登録」をするAPI
Private Shared Function AddClipboardFormatListener(hwnd As IntPtr) As Boolean
End Function
‘ クリップボード監視の「解除」をするAPI
Private Shared Function RemoveClipboardFormatListener(hwnd As IntPtr) As Boolean
End Function
‘ クリップボードが更新されたことを示すWindowsメッセージ定数
Private Const WM_CLIPBOARDUPDATE As Integer = &H31D
‘ =========================================================================
‘ フォームのライフサイクル管理
‘ =========================================================================
‘ 1. フォームが読み込まれたとき
Protected Overrides Sub OnLoad(e As EventArgs)
MyBase.OnLoad(e)
‘ OSに「このウィンドウでクリップボードを監視する！」と登録します
If Not AddClipboardFormatListener(Me.Handle) Then
MessageBox.Show(“クリップボードリスナーの登録に失敗しました。”, “エラー”, MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub
‘ 2. フォームが閉じられるとき
Protected Overrides Sub OnFormClosed(e As FormClosedEventArgs)
‘ 登録したままアプリを終了するとメモリリークの原因になるため、必ず解除します
RemoveClipboardFormatListener(Me.Handle)
MyBase.OnFormClosed(e)
End Sub
‘ =========================================================================
‘ OSメッセージのキャッチと処理
‘ =========================================================================
‘ WndProcを完全に置き換えるのではなく、安全に「通知」だけをフックします
Protected Overrides Sub WndProc(ByRef m As Message)
‘ 飛んできたメッセージが「クリップボード更新」かどうかをチェック
If m.Msg = WM_CLIPBOARDUPDATE Then
‘ クリップボードの中身を取得する独自のメソッドを呼び出す
CaptureClipboardText()
End If
‘ その他のメッセージは通常のWindows Formsの処理にそのまま流す（これ重要！）
MyBase.WndProc(m)
End Sub
‘ =========================================================================
‘ クリップボードデータ取得の実処理
‘ =========================================================================
Private Sub CaptureClipboardText()
Try
‘ クリップボードにテキストデータが入っているかチェック
If Clipboard.ContainsText() Then
Dim copiedText As String = Clipboard.GetText()
‘ 【実務での活用ポイント】
‘ ここで取得した文字列を、データベースに保存したり、
‘ 自社のWebAPIに送信したり、テキストボックスに自動追記させることができます！
Console.WriteLine(“キャッチした文字列: ” & copiedText)
‘ 今回は簡易的にコンソールと、もし画面にTextBoxがあればそこに出力する例
‘ (フォームに txtLog という名前のTextBoxを置いておくと動きます)
‘ txtLog.AppendText(DateTime.Now.ToString(“HH:mm:ss”) & ” -> ” & copiedText & vbCrLf)
End If
Catch ex As Exception
‘ クリップボードは他のアプリ（Excelやブラウザなど）と競合しやすいため、
‘ 取得時に瞬間的なロックエラーが発生することがあります。
‘ 実運用では必ずTry-Catchで例外をガードしてください。
Console.WriteLine(“クリップボード読み取りエラー: ” & ex.Message)
End Try
End Sub
End Class
—
4. コードの深掘りとエンジニアの知見
このコードには、現場で生き残るための「プロの知見」がいくつも詰まっています。ポイントを整理しておきましょう。
① ライフサイクル（開始と終了）のペアを絶対に崩さない
`AddClipboardFormatListener` でOSに「監視するぞ」と宣言したら、アプリが終了するときには必ず `RemoveClipboardFormatListener` で解除しなければなりません。
これを忘れると、最悪の場合OSのメモリ上にゴミが残り、PCの動作が不安定になります。`OnLoad` と `OnFormClosed` のペアで確実に管理するのが鉄則です。
② 他のアプリとの競合（例外処理）への配慮
人間が「コピー（Ctrl + C）」した瞬間、Windowsのクリップボードは一瞬だけ「ロック状態」になります。そこに別のアプリ（今回の自作ツール）が「中身をくれ！」と割り込むと、タイミングによっては例外（エラー）が発生します。
そのため、`Try…Catch` ブロックで例外を優しく包み込み、エラーでアプリが落ちないようにすることが、常駐型ツールを作る上での絶対条件です。
—
5. まとめ
いかがでしたでしょうか？
今回は、`AddClipboardFormatListener` を使った、安全でモダンなクリップボード監視ツールの実装方法を解説しました。
- 古典的な全メッセージ監視（WndProcの丸抱え）はやめる。
- 必要な通知だけをピンポイントで受け取るAPIを使う。
- リソースの登録と解除（ライフサイクル）を正しく管理する。
ここさえクリアすれば、Windows Formsを使った常駐型業務支援ツールの開発は怖くありません。ぜひ自分の仕事や現場の課題を解決する自動化ツールに挑戦してみてください。
あなたのVB.NETライフが、さらに実りあるものになるよう応援しています！
