vb6 滚动条VScroll控件，控制超过-32768~+32768行数据呢？

Question

vb6 滚动条VScroll控件，控制超过-32768~+32768行数据呢？
有种方法是按比例放大，有没有相关的代码？
我总觉得放大不好实现，假如我恰好有32769行数据该怎么处理呢？

Answer 1

你就不能把想法收收,用在好的方向上,你设计一个程序,怎么滴还要加上这个实际上用不到的代码,程序是健壮了,但却不是最优.
那如果我设计一只笔还要设计它是左手拿的还是右手拿的,是给正常人拿的还是残疾人拿的,是给小孩拿的还是给大人拿的
if PencilOperator="左手" then
elseif PencilOperator="右手" then
...
end if是,考虑很周到,但是实用吗?

Answer 2

我都是以32000为分界点，行数小于32000直接用，大于32000，则：
假设行数是 32769 那么：
dim a as long
a=32769 \ 32000+1 'a为放大比例,这里a为2,即为2倍
vscroll1.min=1
vscroll1.max=32769\a '设定滚动条的最大值为32769\a,即在32000的范围之内使用时：
当前行=vscroll1.value*a 

Answer 3

分页显示吧,就算你能够扩展到bigint级,照样有客户不按照使用说明来操作的.