Question

vb VScroll控件

如何把vscroll变成按向上键则加，下则键。。。。
还有就是它怎么一直闪呀？
VScroll1.TabStop = False
这个我设了，怎么还是在闪？
哦是菜鸟

Answer 1

当他获得焦点的时候就老闪，失去焦点就不闪了，你可以用完就把焦点放到其他控件上
VSCroll的主要属性max,min,largechang,smallchang,value
也不知道单词有没有写错，汗
max是滚动条在最下变时的value
min是最上时的
largechang是点击空白出value值改变的量
smallchang是点击箭头的改变量
value值的变化会触发change事件
比如你想让滚动条没拖动时为0，拖到最大为100
你可以在窗体load时间里写
with vscroll1
.max =100
.min=0
.largechang=5
.smallchang=1
end with
saveValue=0
在change事件里写
dim saveValue as long
dim a as integer
a = vscroll1.value -saveValue
debug.print a
这样你拖动滚动条的时候a就不断变化了
同理，你可以使用滚动条进行局部控件的滚动，数据库里读出来的值进行滚动显示等等

上面的代码是手写的，也没在VB里写，测试.由于英语不好，记忆也不咋地，可能会有单词写错。