[VB6] Oggetti Inesistenti

[Brainjar]

Una Matrice di controlli e/o di oggetti non presenta elementi vuoti
dopo la rimozione di un elemento. E non si comporta come una normale
Collection.
Un escamotage è quello che ti posto come esempio.
Il secondo ciclo ti permette di ricavarti gli indici presenti nella
matrice, dall'esame dei risultati si può risalire all'indice mancante.

Public Sub Testa()
Dim nIdx As Integer
Dim oObj As Object

On Error Resume Next

For nIdx = 0 To Text1.Count - 1
    Set oObj = Text1(nIdx)
    If oObj.Name = "" Then
        Debug.Print "Vuoto " & nIdx
    Else
        Debug.Print Text1(nIdx).Index
    End If
Next nIdx

Debug.Print
Debug.Print "-------------------------------------------------------"
Debug.Print

For Each oObj In Text1
    Debug.Print oObj.Index
Next oObj

End Sub

Ciao,