MouseUp事件是否可以添加到Windows窗体滚动条..？

Question

我在VB.Net 2012中的表单上有一个HScrollbar。我想在释放鼠标按钮时滑块回到零。但HScrollbar和VScrollbar没有MouseUp事件。我能够通过使用MouseLeave模拟一些行为，但它不够精确和有问题。

我知道一个类可以扩展，但我不知道它是否适用于这种情况。是否可以扩展滚动条类以添加MouseUp事件？如果是这样，怎么样？

这里是我的代码示例：

Public Class Form1 

    Private Sub HScrollBar1_MouseLeave(sender As Object, e As EventArgs) Handles HScrollBar1.MouseLeave 
     HScrollBar1.Value = 0 
    End Sub 

End Class 

Answer 1

的MouseCaptureChanged和ValueChanged活动相结合，为我工作：

Private Sub HScrollBar1_MouseCaptureChanged(sender As Object, e As EventArgs) Handles HScrollBar1.MouseCaptureChanged 
    If Not HScrollBar1.Capture Then 
     HScrollBar1.Value = 0 
    End If 
End Sub 

Private Sub HScrollBar1_ValueChanged(sender As Object, e As EventArgs) Handles HScrollBar1.ValueChanged 
    If Not HScrollBar1.Capture Then 
     HScrollBar1.Value = 0 
    End If 
End Sub