• Programmazione » Programmi » Visual Basic 6 - Guida e manuale pratico al linguaggio di programmazione

Quando si desidera chiudere un form secondario attivoè necessario accedere alla proprietà ActiveFormdel form MDI principale. Quando si usa un oggetto Collectionper la gestione del form MDI dipendente, occorre utilizzare atal fine una procedura che ricerchi il form attivo, scarichiil form MDI secondario e rimuova tale form dall'oggettoCollection.

Esempio:

Private Sub mnuClose_Click( )    Dim I As Integer    'ricerca il form MDI attivo    For I = 1 To colMDIforms.Count    'confronta le proprietà Caption  If col.ColMDIforms.Item(I).Caption = MDIparent.ActiveForm.Caption Then  'trovato il form MDI attivo, lo scarica  Unload colMDIforms.Item(I)  'rimuove il form dalla serie  colMDIform.Remove I  'esce dopo aver rimosso il form MDI secondario   Exit Sub  End If    Next IEnd Sub