Question

vb中滚动条控件 的 数据控制问题

用一个text控件和一个scrollbar控件来控制数据的递增和递减，当点击滚动条的上方箭头则数据加1，点击滚动条的下方箭头则数据减1 请问该怎么实现？求救各位大侠 先谢过。。

Answer 1

你这个非常简单哦：

（假设）在默认form1上画一个文本框text1 和一个水平滚动条HScroll1

窗体上一切默认，不要改变，使用一下程序改变：

Private Sub Form_Load()   '窗体加载时初始化

  HScroll1.Min = 1                '滚动条最小值（即文本框最小值）是1

  HScroll1.Max = 100           '滚动条最大值（即文本框最大值）是100

  HScroll1.Value = 50          '滚动条默认值（即文本框默认值）取一个中数50

  Text1.Text = HScroll1.Value  '将滚动条上的值赋给文本框text1

End Sub

Private Sub HScroll1_Change()  '滚动条变化的事件

  Text1.Text = HScroll1.Value      '将滚动条的值动态赋给文本框text1

End Sub

如下图所示：你试试看，一定让你成功！！

Answer 2

Private Sub Form_Load()
VScroll1.Value = 50
Text1 = VScroll1.Value
End Sub

Private Sub VScroll1_Change()
Text1 = VScroll1.Value
End Sub