为何在卸载动态加载的数组控件时，提示“不能在该上下文中卸载”？

Question

代码如下：
load ctlTask(1)
...
for i=ctlTask.LBound+1 to ctlTask.UBound
  unload ctlTask(i)
next i其中ctlTask是自定义控件
当ctlTask.Ubound>=1时，出会现错误提示：“不能在该上下文中卸载”？
为什么？
请帮忙，给分！谢谢！

Answer 1

LBound和UBound是VB内置函数，你把它定义成控件的属性了？这里面也有问题：
for i=ctlTask.LBound+1 to ctlTask.UBound
  unload ctlTask(i)
next 如果说ctlTask(i)是自定义控件的一个实例，那么ctlTask.Bound中的ctlTask又代表什么呢？换这种种方法试试：
for i=1 to 10   
  unload ctlTask(i)
next i

Answer 2

呵呵,如果说ctlTask(i)是自定义控件的一个实例，那么ctlTask.Bound中的ctlTask又代表什么呢？它代表控件集合.

Answer 3

'我在FORM中添加一个TEXT控件,设置INDEX =0
'以下代码没有错误,其中 Command2_Click() 就是你那段代码,只是改了控件名.
Option ExplicitDim I       As LongPrivate Sub Command1_Click()    For I = 1 To 10
        Load Text1(I)
        Text1(I).Top = Text1(I - 1).Top + Text1(I - 1).Height
        Text1(I).Visible = True
    Next I
    
End SubPrivate Sub Command2_Click()
    
    For I = Text1.LBound + 1 To Text1.UBound
        Unload Text1(I)
    Next IEnd Sub

Answer 4

我添加一用户控件,设置NAME=Text1 ,INDEX=0,用上面一样的代码调试通过.

Answer 5

to:Quady515(柱子) 
惭愧，第一次知道LBound和UBound还能这样用。

Answer 6

惭愧，我第一次知道LBound和UBound还能这样用。谢谢了！大哥！！