数组控件的Unload

Question

如果在使用的过程中，将数组控件中的一个控件Unload（如cmd(2))，然后将此控件数组循环赋值（如增添颜色），但是读到cmd(2)的时候会提示该空间不存在，有没有办法解决这个问题，请不要建议为On Error resume next，谢谢

Answer 1

dim ccc as object' 这里改成对应控件的对象类型，如文本框TextBoxfor each ccc in cmd
ccc.BackColor=....'该对象应该有此属性，否则
next

Answer 2

dim I as integerfor I = cmd.count - 1 to 0 step -1
    if not cmd(i) is nothing then
        cmd(i).XXXcolor = vbred
    endif
next i