WinForms윈폼 마우스 휠로 좌우이동
페이지 정보
작성자 강한 작성일 2024-03-14 18:06 조회 42회 댓글 0건본문
관련링크
Private Sub FpSpread1_MouseWheel(sender As Object, e As MouseEventArgs) Handles spdPatList.MouseWheel
If Control.ModifierKeys = Keys.Shift Then
OnMouseWheel(e)
End If
End Sub
Protected Overrides Sub OnMouseWheel(e As MouseEventArgs)
If Control.ModifierKeys = Keys.Shift Then
Dim deltaY As Integer = e.Delta
' Y축으로 이동한 양을 X축으로 적용하여 수평 스크롤 동작으로 변환
Dim deltaX As Integer = 0 ' X축으로의 이동량
If deltaY <> 0 Then
Dim visibleColumns As Integer = spdPatList.GetViewportRightColumn(0) - spdPatList.GetViewportLeftColumn(0) + 1
deltaX = CInt(deltaY / 120 * visibleColumns)
End If
' 반대 방향으로 이동
spdPatList.SetViewportTopRow(0, spdPatList.GetViewportTopRow(0) + (deltaY / 120))
spdPatList.SetViewportLeftColumn(0, spdPatList.GetViewportLeftColumn(0) - deltaX)
End If
End Sub
이런식으로 마우스 휠+Shift 키로 좌우이동을 구현했습니다.
하지만 좌우뿐 아니라 상하로도 같이 움직이네요ㅜㅜ 혹시 Shift+마우스휠로 좌우로만 움직이도록 구현 가능할까요?
댓글목록
등록된 댓글이 없습니다.