Chiudere tutti i FORM secondari

Se si utilizza, per la gestione, l'oggetto Collection,l'operazione è semplice: occorre scaricare i formsecondari tramite l'Unload MDIchildForm e rimuoverlidall'oggetto Collection utilizzando il metodoRemove(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 IEnd Sub

Articolo precedente Chiudere FORM secondario attivo
Articolo successivo Pulsanti bitmap, command button, check box, combo box