如何使用滚动条更改文本框的值

Question

我有一个滚动条，如果向右滚动则滚动条将txtRangeSpread文本框的值更改为10，如果向左滚动则更改为-10。

我可以这样做吗？

Answer 1

见这里：http://msdn.microsoft.com/en-us/library/system.windows.forms.scrollbar.scroll.aspx 在这里：http://msdn.microsoft.com/en-us/library/system.windows.forms.scrolleventargs.aspx

1. 为滚动条的滚动事件创建事件处理程序。
2. eventargs包含NewValue和OldValue的参数。检查哪一个更大将告诉您用户滚动的方式。
3. 相应地更新文本框。

虽然您可能遇到的一些问题是，任何滚动事件（例如拖动或点击）都会触发事件，因此您可能会获得超出预期范围的值。

Answer 2

假设它是HScrollbar1

HSCrollBar1.Maximum = 19
HSCrollBar1.Minimum = -10
HSCrollBar1.SmallChange = 1

并且更改了值事件

Private Sub HScrollBar1_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles HScrollBar1.ValueChanged
    txtRangeSpread.Text = Format(HScrollBar1.Value)
End Sub 

要链接文本框和滚动条..也许您可以在表单加载事件或激活事件或按钮点击事件中执行此操作。

txtRangeSpread.Text = "0"
HScollBar1.Value = val(txtRangeSpread.Text)