苏州和硕员工宿舍:VB滚动条

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/05 10:11:17
如果移动滚动跳上的滚动框,则可扩大或缩小文本框的高度
应该怎么编写?

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,我更喜欢这样控制倍数来调节