臭的英文是什么:VB滚动条

来源:百度文库 编辑:高考问答 时间:2024/05/14 02:31:41
如果移动滚动跳上的滚动框,则可扩大或缩小文本框的高度
应该怎么编写?

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