> >やるとしたらサブクラス化してWM_MOUSEWHEELをとらえれば、
> >良さそうですね。
> 知識不足ですいませんがどうすれば良いのかわかりません。VBで可能なのでしょうか？
VBで可能だと思いますよ。
サンプル作ってあげたいんですが、ちょっと仕事の方が忙しくて
作れませんが、
手順は、
・VBのページのサブクラス化を参考に
MDIFormをサブクラス化する。
・WindowProcでWM_MOUSEWHEELのメッセージをとらえて、
・lParamをHIWORDとLOWORDで分解
パラメータの意味はヘルプ等で調べてね。
Public Function HIWORD(ByVal lngVal As Long) As Long
HIWORD = lngVal \ 2 ^ 16
End Function
Public Function HIWORD(ByVal lngVal As Long) As Long
HIWORD = lngVal \ 2 ^ 16
End Function
・分解した値によってMDIFormをスクロール。＜たぶんこれもAPIで
APIは SetScrollPos
これで、出来るんじゃあないかと思います。
まぁ、やって見なきゃわかりませんが。
＃連休あたりでサンプル作って見ますね。
＃とはいっても、うちのマウスドライバはMDIFormも
＃スクロールしちゃうんですけど（＾＾；
|