16,555
社区成员
发帖
与我相关
我的任务
分享
Public Function PreFilterMessage(ByRef m As System.Windows.Forms.Message) As Boolean Implements System.Windows.Forms.IMessageFilter.PreFilterMessage
'If m.HWnd = Me.GetCurrentWnd Then
If m.Msg = WM_MOUSEWHEEL Then
'MessageBox.Show(1)
If IsAtMaxScroll(m) Then
RaiseEvent NextFile(Me, EventArgs.Empty)
'MessageBox.Show(GetScrollSize(m))
'MessageBox.Show(2)
ElseIf IsAtMinScroll(m) Then
RaiseEvent PrevFile(Me, EventArgs.Empty)
End If
End If
'End If
Return False
End Function