Question

vb！卸载控件数组！

我用timer 定时添加image（i）控件，用的load语句
我想按下空格键（keycode=32）时将所有image（）删掉
但是当我输入unload image（） 时却出问题了！
怎么回事？能否给下代吗？
timer 里我用随机函数设置新建image（i）的位置
那么我要卸载某个范围内的image（）怎么办？
如left在10~10000
top在20~10000

Answer 1

不能直接卸载控件数组，但可以把数组中的元素清空。
Redim image(0)
unload image(0)

追问

timer 里我用随机函数设置新建image（i）的位置
那么我要卸载某个范围内的image（）怎么办？
如left在10~10000
top在20~10000

追答

for i=LBound(Image) to UBound(Image) '遍历image中的元素
On Error GoTo ReadErr'如果某控件已卸载则将出错，由ReadErr行的语句处理错误（其实就是忽略错误-_-b）
If (Image(i).Left >=10 And Image(i).Left =20 And Image(i).top <=10000) then'根据条件判断是否卸载控件
unLoad image(i)
End if
ReadErr :
Next
ps：用手机回的有的符号可能有问题，如果VB不认则请自行替换其为长相相近的半角字符。

追问

不行啊，多次后显示错误 元素不存在
如何判断控件元素是否存在？

追答

用动态数组记录吧，如果是vb.net的话很好办，可以通过引用是否为“nothing”判断，VB6就不行了。
创建一个布尔型的动态数组(假设数组名为HasLoaded)，使它的上下限与控件数组一样，控件数组添加元素时，动态数组中元素相应改变，并且如果image(i)已加载则，相应的HasLoaded(i)的指为True，如果卸载image(i)则修改HasLoaded(i)的值为False，这样就可以通过HasLoaded(i)的值判断image(i)是否存在，以避免出错了。
PS:重定义HasLoaded的时候记得加上关键字 preserve（本人刚学的时候经常忘-_-#）

Answer 2

卸载控件数组元素时要保证其已经加载了