执行Redim出现错误！

[Lin2000y]

原来showbutton为10，我想把数组维数设小，但是执行以下代码时出错：

ReDim Preserve ShowButton(0 To 6)

提示为“下标越界”

在线等待！

[boywang]

可能你原来定义成ShowButton(1 to 10)吧。

[victorycyz]

在使用 Preserve 时，只能通过改变上界来改变数组的大小；改变下界则会导致错误。

[monglihong]

两个可能的原因
1、ReDim Preserve ShowButton(0 To 6)
Preserve目的是保存原来的数据，

2、ReDim Preserve ShowButton(0 To 6)
ShowButton(0 To 6)如果像楼上兄弟说的原来的下标为1则有可能出错

[szwanghuan]

建议原始定义时：
Dim Preserve ShowButton（）
确定维数后再Redim

[Lin2000y]

我声明时是也是这样的，
Dim Preserve ShowButton（）
只是首先
redim preserve showbutton(0 to 10)
然后再
redim preserve showbutton(0 to 6)
的
就是执行最后一句时出错了

[victorycyz]

Dim Preserve ShowButton（）?
Dim语句没有preserve关键字的！楼主你的代码究竟是怎样的？贴出来。不要随便唬弄人了。

[caferd]

改为
Dim ShowButton(0)
Dim Preserve ShowButton(6)
就可以啦,不要用什么0 to ...了

[qingming81]

可能是头一次redim preserve showbutton(0 to 10)
里面的数据已经超过6个。这一次你又redim preserve showbutton(0 to 6)，即要保留原来的数据，又限定维数0-6，改为
redim showbutton(0 to 6) ‘这样可能会丢失数据。