核桃壳里长毛能吃么:VB滚动条

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/12 13:01:54
如果移动滚动跳上的滚动框,则可扩大或缩小文本框的高度
应该怎么编写?

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

VScroll1的max min自己看合适的

这样就行了:
Private Sub VScroll1_Change()
Text1.Height = VScroll1.Value
End Sub

还有:
Private Sub VScroll1_Change()
Text1.Height = VScroll1.Value*X
End Sub
X是Text1的初始Height,我更喜欢这样控制倍数来调节