掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
マウスホイールのイベント取得方法 (ID:139616)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
少し長くなってしまいますが http://homepage.mac.com/t_fukumori/iblog/C1746881529/E2116345545/index.html をベースに、http://okwave.jp/qa2912840.htmlとあわせ技で追加分だけ modWheelMouse.bas Option Explicit Public Type POINTAPI x As Long y As Long End Type Public Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Function SubClassProc(ByVal hwndx As Long, _ (略 Dim hWnd As Long Dim pt As POINTAPI (略 Case WM_MOUSEWHEEL '' Wheelを回した GetCursorPos pt hWnd = WindowFromPoint(pt.x, pt.y) If hwndx = hWnd Then zDelta = CInt(wParam / 2 ^ 16) 略 End If frmMain.frm Private Sub m_CWheel_MouseWheel(ByVal iniVector As Integer) 'これはただ単に分かりやすくするため lblView.Caption = "MouseWheel" & iniVector End Sub こんなもんでどうでしょ?
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.