controlarr.index=i-1
就是动态的把后边的index都减1,看看行不行

解决方案 »

  1.   

    我回复的怎么没有了?????
    你为什么不直接在VB里改呢?
    要用代码来改的话也不难啊?
    做一个循环从被删除的下一个开始INDEX减1
    for j = 4 to 6
        控件(j).index=j-1    
    next j
      

  2.   

    空缺就空缺,其实 Microsoft 早想到了,用集合可以保证不会使用已经 Unload 的控件!
    Dim TextX As TextBox
    For Each TextX In Text1
        Debug.Print TextX.Index
    Next TextX
    而用
    For i=0 to Text1.count-1
       ...
    next i
    肯定会报错!
      

  3.   

    index在运行时是只读的,不可用
    playyuer(女㊣爱) 的方法是可以的,但那样就达到我要的效果了
      

  4.   


    On Error Resume Next
    For i=0 to Text1.count-1
      ...
    next i
      

  5.   

    空缺有什么关系,声明一个常量,保存索引Count 
    或者用集合,但是占用资源大