• Home
 · 
• Miscellaneous
 · 
• Scrolling on the Middle Mouse Button

Scrolling on the Middle Mouse Button

Scrolling on the Middle Mouse Button

API Declarations
Private m_cMiddleScroller As cMiddleButtonScroller

Rate Scrolling on the Middle Mouse Button

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

      
   ' Create the middle button scroller
   Set m_cMiddleScroller = New cMiddleButtonScroller
     
End Sub

Private Sub txtSample_MouseDown( _
      Button As Integer, Shift As Integer, _
      X As Single, Y As Single _
   )
   If (Button = vbMiddleButton) Then
      With m_cMiddleScroller
         .HorizontalMode = ePixelBased
         .VerticalMode = eLineBased
         .StartMiddleScroll txtSample.hwnd
      End With
   End If
End Sub