2017上海一本分数线:VB 关于VScroll滚动LargeChange和Max问题 （有悬赏）

来源：百度文库 编辑：杭州交通信息网 时间：2024/05/01 08:39:33
现在有picture2在Picture1里面，VScroll1在Form1上
tHeight＝picture2.Height+120
picture2是需要动态拉长的
即：在设置VScroll1的Max和SmallChange和LargeChange都要根据实际tHeight的大小作调整。

滚动条代码如下：
Private Sub VScroll1_Change()
Dim j As Integer
Picture2.Top = -VScroll1.value + 120
End Sub
Private Sub VScroll1_Scroll()
Call VScroll1_Change
End Sub

另外正常情况下SmallChange要设为300;
正常情况下LargeChange是7*SmallChange;
在tHeight<＝Picture1.Height时Max＝0，LargeChange不设置值;
但是在tHeight>Picture1.Height时如何设置VScroll的LargeChange属性呢？
因为如果LargeChange>Max时，VScroll就会不正常显示。
如何设置才能使VScroll1无论tHeight多大多少都能平滑地移动Picture2呢？

悬赏的在这里（因为掉得太低了，再加分）
http://zhidao.baidu.com/question/9998167.html
VB 关于VScroll滚动LargeChange和Max问题 （有悬赏） VB关于VScroll控件的简单问题 问 VB程序设计中，VScroll的困惑？ VB滚动条 VB滚动条 vb form 滚动条问题 有个VB的编程问题需要求教，是关于滚动条的！~ vb滚动显示一个文本文件的代码 VB 如何去掉滚动条 WebBrowser 关于滚动条问题