2016-10-10 12 views
0

VB.Net 2012のフォームにHScrollbarがあります。マウスボタンが離されたときにスライダーをゼロに戻したいと思います。しかし、HScrollbarとVScrollbarにはMouseUpイベントがありません。私はMouseLeaveを使用して動作をいくらかシミュレートできますが、それは不正確で問題があります。MouseUpイベントをWindowsフォームのスクロールバーに追加できますか?

私はクラスを拡張することができると知っていますが、この場合に適用されるかわかりません。 MouseUpイベントを追加するためにスクロールバークラスを拡張することは可能ですか?もしそうなら、どうですか?ここで

は、私のコードの例です:

Public Class Form1 

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

End Class 
+0

あなたは 'MouseCaptureChanged'イベントを試してみましたか? –

答えて

0

MouseCaptureChangedValueChangedイベントの組み合わせが私の仕事:

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 
関連する問題