vb.net - 如何使用滚动条更改文本框的值

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

和 changedvalue 事件

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)