Manualandia
a- a+

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

 

 



Ti potrebbe interessare anche

commenta la notizia