おやじプログラマー日記

久々にVB6を動かすことがあったのですが、マウスのホイールボタンには対応していなくて ソースを見るのが「．NET」とは勝手が違いました。

VB6は相当古いソフトなのでマウスのホイールボタンには対応していないのですが、 調べてみると、ホイールボタンに対応するDLLをMicroSoftが提供していました。

■「VB6MouseWheel.exe」ファイルのダウンロード

Microsoft の以下サポートページより、「VB6MouseWheel.EXE パッケージ」をダウンロードします。

http://support.microsoft.com/kb/837910/ja（マイクロソフト サポート オンライン）

■「VB6MouseWheel.exe」ファイルの展開

「VB6MouseWheel.exe」を適当なフォルダにダウンロードし、実行すると以下のファイルが解凍されます。

・EULA.txt
・Main.bas
・VB6IDEMouseWheelAddin.dll
・VB6IDEMouseWheelAddin.vbp
・VBA Mouse Wheel Fix.reg


■「VB6IDEMouseWheelAddin.dll」ファイルのレジストリ登録

「VB6IDEMouseWheelAddin.dll」を適当なフォルダにコピーして、レジストリ登録を行います。
私は、「C:\Program Files (x86)\Microsoft Visual Studio\VB98\」フォルダにコピーしました。
（64bitマシンだったので「x86」ですが）

その後で、Windowsシステムツールの「コマンドプロンプト」を管理者として実行し、ウインドウを開きます。 以下のコマンドを実行して、レジストリ登録を行います。

regsvr32 "C:\Program Files (x86)\Microsoft Visual Studio\VB98\VB6IDEMouseWheelAddin.dll"

■VB6のアドイン設定

VB6 の開発環境を開き、メニューの [アドイン] から [アドインマネージャ] を起動します。
[アドイン マネージャー] ボックスの一覧で、[MouseWheel Fix] を選択し、 [ロード/アンロード] チェックボックスと、[起動時にロード] チェックボックスをオンにします。
最後に「OK」ボタンをクリックし、開発環境を再起動すると、マウスのホイールが使用できるようになります。

これでやっと、ソースを見るのが少し楽になりました。