Lacos 發問時間: 電腦與網際網路程式設計 · 1 0 年前

請問如何讓我的陣列數字自動往前補

大概是說

現在我做出了text1(1)、text1(2)、text1(3)

但是我又把text1(1)給unload掉了

我現在遇到問題就是說

當我先把text1(1)unload掉了以後

接著我用

for i = 1 to text1.count-1

unload text1(i)

next

想要一次全部unload掉text1(1)到text1(text1.count-1)時

系統顯出錯誤說:此項陣列中,找不到\"1\"元素

所以我想說 是否有辦法可以在text1(1)被unload掉的同時

讓其他的text()的index全部自動往前呢

已更新項目:

我想puppy大大沒聽懂我的意思

我的意思是說 任意unload其中一個

例如我unload text1(2)

在迴圈跑到2時

會找不到text1(2)

因此發生錯誤

不知道有沒有方法解決

1 個解答

評分
  • puppy
    Lv 5
    1 0 年前
    最佳解答

    最簡單的方式

    for i = 2 to text1.count-1

    unload text1(i)

    next

    要不然就要用指標

    2006-06-06 21:09:53 補充:

    QUICK AND DIRTY的方式,利用on error gto

    Private Sub Command1_Click()

    Unload Text1(6)

    End Sub

    Private Sub Command2_Click()

    On Error GoTo err

    For i = 1 To 9

    Unload Text1(i)

    Next i

    err:

    Resume Next

    End Sub

    Private Sub Form_Load()

    Text1(0).Width = 20

    Text1(0).Text = 0

    For i = 1 To 9

    Load Text1(i)

    Text1(i).Visible = True

    Text1(i).Left = 400 * i

    Text1(i).Text = i

    Next i

    End Sub

還有問題?馬上發問,尋求解答。