现在是末法时代吗:VB 关于VScroll滚动LargeChange和Max问题 (有悬赏)
来源:百度文库 编辑:神马品牌网 时间:2024/08/27 06:39:07
现在有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
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