VB6.0 スクロールする方法

このご時勢でVB6.0の話をするのはどうかと思うけど...それでもまだ.NETに移行せずに、VB6.0で稼動しているシステムも多いし、システム改訂の需要があれば対応しなきゃいけないのは、仕事上どうしようもないわけで...。

VB6.0の開発環境を初めて触った時、マウスホイールでコードがスクロールしてくれなくて随分と苦労したものです。1モジュール1000ステップを越えると、ドラッグしながらスクロールするってのはかなり非効率です。そこで、マウスホイールイベントできちんとスクロールしてくれるようにする方法をメモしておきます。（時代遅れなのは重々承知してます。でもしょうが無いんです。。。）

実はこの機能、きちんと対応する方法がマイクロソフトのサポートページに記載してあります。アドレスは↓こちら
http://support.microsoft.com/default.aspx?scid=kb;ja;837910

概要は大体こんな感じ

1. VB6MouseWheel.EXE パッケージをダウンロード (Click!)
2. VB6MouseWheel.EXE を適当な場所に解凍 (C直下がいいかと。)
3. [スタート]→[ファイル名を指定して実行]で以下のコマンドを入力
   「regsvr32 (解凍先)¥VB6IDEMouseWheelAddin.dll」
4. VB6.0を起動し[アドイン] →[アドイン マネージャ]
5. 「MouseWheel Fix」を選択
6. [ロード/アンロード] と [起動時にロード]の項目にチェック
7. [OK] で完了

これでマウスホイールイベントを受け付けてもらえるようになります。ってかなんでこんな面倒なことをしなきゃいけないんだか。ねぇ。