投稿日	： 2005/01/24(Mon) 15:32
投稿者	： まっちゃん
ＵＲＬ	：
タイトル	： インテリマウスで水平スクロールを実現したい

インテリマウスを使いたいのですが、ホイールの回転により画面を
上下させることはサンプルプログラムを見ながら実現できました。

今度は画面を左右にインテリマウスにより
動かしたいのですが、行き詰ってしまいました。

インテリマウスを押してマウスを動かしたときに画面をスクロールさせたい
のですが、MButtonDownイベントに飛んでいかないのです。

どなたかお助けください！！




Private Sub IntMouse1_MouseWheel(ByVal zDelta As Integer, ByVal xPos As Integer, ByVal
yPos As Integer, ByVal fwKeys As Integer)
    
    Dim k As Integer
    
    k = VScroll1.Value
    If zDelta > 0 Then
        k = k - zDelta / 120 - 500
        If k < VScroll1.Min Then
            k = VScroll1.Min
        End If
    Else
        k = k + 500
        If k > VScroll1.Max Then
            k = VScroll1.Max
        End If
    End If
    VScroll1.Value = k
end sub

開発環境VB6.0/WinXp