vb如何实现文本框与滚动条的值互相调整？

Private Sub HScroll1_Change()
Text1.Text = HScroll1.Value
End Sub

Private Sub Text1_Change()
If Val(Text1.Text) > HScroll1.Max Or Val(Text1.Text) < HScroll1.Min Or Text1.Text = "" Then
MsgBox "你输入的数据超出了滚动条滚动范围，请重新输入！！"
Else
HScroll1.Value = Val(Text1.Text)
End If
End Sub
直接粘贴复制过去 建一个滚动条 和 text 就可以直接用 刚刚运行过 没问题的 你试试 这绝对是本人自己做的 不存在 溢出问题 有问题 再联系我

直接设置文本框的属性就可以了

首先是MultiLine属性，设置为True，这样文本框可以显示多行文本

然后是ScrollBars属性，一共有4个选项，一个是None，没有滚动条，其他三个分别是水平，垂直滚动条以及同时有水平和垂直滚动条。

分别在文本框（T1）的Change事件和滚动条（HS1）的Change事件中实现，代码如下：

Private Sub HS1_Change()
T1.Text = Str(HS1.Value)
End Sub

Private Sub T1_Change()
HS1.Value = Val(T1.Text)
End Sub
不过最好用变量，并且限定类型和大小，否则回发生溢出错误。