[VB6] controllare se tutti i form sono chiusi

[gendarme]

Buongiorno a tutti!
Ho un quesito:
Io apro lo stesso form diverse volte in tempi diversi nel seguente modo:

Dim fpop(1 To 100) As Form

n = n + 1
Set fpop(n) = New Form1
fpop(n).Show vbModeless
fpop(fpopn).Show vbModeless


Come faccio a verificare se tutti i form facenti parte dell'array fpop(n) sono chiusi o meno??

Vi ringrazio per l'aiuto

[gibra]

Dovrebbe essere così, ma ho scritto al volo quindi occhio agli errori.

    For Each frm In Forms
        If TypeOf frm Is Form1 Then
            Unload frm
        End If
    Next

Ciao

[gendarme]

Ciao Gibra!
Grazie x l'aiuto!

io ho usato il codice nel seguente modo:

For Each frm In Forms
If TypeOf frm Is Form1 Then
nfrm = nfrm + 1
End If
Next
MsgBox (nfrm)

lo uso per contare quanti form di quel tipo sono aperti ma mi restituisce numeri sballati...
sbaglio in qualcosa?

Grazie

[gibra]

Prova a dichiarare

Dim fpop(1 To 100) As Form1

perchè Form è generico.
In effetti tu dichiari As Form , ma poi crei l'istanza con
Set fpop(n) = New Form1

Ciao

[gendarme]

Il risultato non cambia.. impazzirò!!

[gibra]

Originariamente inviato da gendarme
Il risultato non cambia.. impazzirò!!

Prima che tu impazzisca :quote:

Dim fpop(1 To 100) As Form1

    Dim frm As Form
    Dim nFrm As Integer
    For Each frm In Forms
        If TypeOf frm Is Form1 Then
            nFrm = nFrm + 1
        End If
    Next
    MsgBox (nFrm)

Ciao