Manualandia
a- a+

Chiudere tutti i FORM secondari

Se si utilizza, per la gestione, l'oggetto Collection, l'operazione è semplice: occorre scaricare i form secondari tramite l'Unload MDIchildForm e rimuoverli dall'oggetto Collection utilizzando il metodo Remove(indice)

Esempio:

 

Private Sub mnuClose_Click( )

    Dim I As Integer
    For I = colMDIforms.Count to 1 Step -1

        'scarica il form MDI
        Unload colMDIforms.Item(I)
        'rimuove il form MDI dalla serie dei form
        volMDIforms.Remove I

    Next I

End Sub

 

 



Ti potrebbe interessare anche

commenta la notizia

C'è 1 commento
Pier Paolo
Condividi le tue opinioni su questo articolo!