[VB6] Chiusura di Form "MDI Child" per mantenerne aperta solo una

[jigen80]

Ciao a tutti,
ho realizzato un'applicazione in vb6 costituita da una MDIform principale e da altre form figlio ke si aprono all'azione del click su una barra dei pulsanti.
Quello che vorrei è far si che al click di ogni pulsante (che apre una finestra) tutte le altre finestre (form figlio) che sono aperte vengano chiuse, in maniera tale ke sia sempre e solo una la finestra figlio aperta nella MDIform principale.
...grazie, a presto

[kalosjo]

Così dovrebbe andare...

for each lform in forms
  unload lform
next

Controlla se chiude anche la MDI..... altrimenti metti un controllo

[jigen80]

mi dà "errore nel caricamento di MDIform1, controllare nel file .log"...però tutto sommato fa il codice funziona...come posso fare ad eliminare quell'errore?!?...
grazie, ciao

[LMondi]

Ciao jigen80,
ad integrazione di quanto ti ha suggerito kalosjo, potresti fare così:

Public Sub ChiudiModAttivo()
    On Error GoTo ErrHandler
    
    Dim Frm As Form
    
    For Each Frm In Forms
       If Frm.Name <> "MDIFrm" And Frm.Name <> "FrmImmag" Then
            Unload Frm
            Set Frm = Nothing
        End If
    Next
    

ErrHandler:
    If Err.Number <> 0 Then
        MsgBox "Errore: " & Err.Number & " " & Err.Description & "." & Chr(13) _
        & "Errore nella procedura.", vbCritical, "...."
        Err.Clear
        Exit Sub
    End If

End Sub

Come vedi in questo modo Non vengono chiusi due Frm "MDIFrm" ed il
"FrmImmag" che nel caso specifico fa da sfondo al programma.
La routine la richiami cosi: Call ChiudiModAttivo .

[jigen80]

grazie LMondi (e grazie anche a te kalosjo)
ora funziona alla perfezione!!!
...come al solito siete stati "troppo" esaustivi
grazie tante ancora....saluti