Manualandia
a- a+

Aggiungere FORM MDI secondari

Abbiamo detto che un form MDI principale (MDIparent) può avere uno o più form figli che vengono definiti tali nella finestra Object Explorer. La finestre Object Explorer contiene sempre almeno un form figlio. Una implementazione fissa di form MDI principale con un numero prestabilito di form figli è di più semplice gestione ma limita le possibilità MDI. E' meglio dunque prevedere un numero di form secondari variabili e quindi lasciare all'utente la devisione di quanti form MDI secondari utilizzare.

 

Per gestire i form secondari di un progetto, occorre utilizzare a livello di form una delle varibili riportate di seguito:

·         un oggetto di tipo Collection che memorizzi i form secondari come oggetti;

·         un indice di form secondari che tenga traccia del numero totale dei form secondari creati via via.Il programma deve incrementare il valore di questo indice ogni volta che viene creato un nuovo form secondario e non lo decrementerà qundo verrà chiuso un form figlio, in modo tale da fornire sempre un identificativo univoco per ogni form secondario. E' consigliabile porre tale numero identificativo come parte dell'etichetta del form secondario.

 

Vediamo ora come aggiungere ad un progetto un form secondario.

1.       Per prima cosa occorre dichiarare una variabile locale che crei un nuovo form secondario;

2.       incrementare poi di 1 il valore dell'indice del form secondario;

3.       caricare il form secondario mediante il comando Load object;

4.       a questo punto visualizzare il nuovo form secondario attraverso l'uso del metodo Show( );

5.       infine aggiungere il nuovo form secondario alla serie di oggetti servendosi del metodo Add(oggettoDaAggiungere).

 

Il codice che segue è un esempio di gestore di evento associato al comando new, che crea e visualizza un nuovo form secondario.

 

 

Private Sub mnuNew-Click( )

Dim MDIchildForm as New_MDIchild

'incrementa la variabile di livello del form

MDIchildIndex = MDIchildIndex + 1

Load MDIchildForm

MDIchildForm.Caption = "MDI dipendente"

Str(MDIchildIndex"

MDIchildForm.Show

ColMDIform.Add MDIchildForm

End Sub

 

Il codice dichiara una variabile locale (individuare qual è) che crea un nuovo form secondario, incrementa di 1 l'indice di livello del form secondario, carica il form, inserisce il valore desiderato nella caption, visualizza il nuovo form e lo aggiunge alla serie di oggetti relativi.

 




Ti potrebbe interessare anche

commenta la notizia

C'è 1 commento
Lorenzo
Hai qualche domanda da fare?