绑架美女故事一万字:VB滚动条
来源:百度文库 编辑:高校问答 时间:2024/10/02 18:08:15
如果移动滚动跳上的滚动框,则可扩大或缩小文本框的高度
应该怎么编写?
应该怎么编写?
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,我更喜欢这样控制倍数来调节